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INTRODUCTION 


RALPH* is a program for acquiring both singles and dual parameter 
coincidence data from scintillation detectors. RALPH is written in a 
psuedo fore ground /background environment which allows acquisition to 
continue while previously acquired data are being reduced or other func- 
tions are being performed. A 4K section of core is reserved for overlays 
which may be called in upon request. The overlays give greater program 
capability to the system than would otherwise be available in the limited 
core space. 

RALPH is written for the following computer configuration: 

PDP-9 computer with three (3) 8192-word memory banks and with 
the extended arithmetic element (EAE) . 

A 256K word RF15-RSQ9 DEC disk . 

DEC’s high-speed paper tape reader and punch unit. 

Calcomp Plotter Model 563 or 565. 

DEC tape (2 minimum) : TC02 controller with TU55 magnetic tape 

transports . 

Industry compatible magnetic tape transport model TU20 and TC59 
controller. 

Dual Nuclear Data ND-161 ADC’s (modified) and NH04C ADC controller 
(modified) . 

Four 18 bit scalers (designed by Digital Equipment Corp.). 

One 18 bit timer scaler (designed by Oak Ridge National 
Laboratory) . 

A bidirectional serial data interface between the PDP-9 and a 
PDP-8/L (designed by Aerojet Nuclear Company) . 

One control panel with function box (designed by Aerojet Nuclear 
Company) . 


The control panel and function box are used as a backup for the 
teletype and to control certain data acquisition and display functions. 

The serial data interface is used to transfer data to the PDP-9 
from a Nuclear Data 50/50 system through a PDP-8/L, 


*RALPH - Reduction and Acquisition of Lunar Pulse Heights 
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PROGRAM LAYOUT 


RALPH operates in two general modes called HIDE and SEEK. The 
command SEEK activates the acquisition mode and the command HIDE 
activates the data reduction mode. Activation of either mode really 
means that the data buffers being accessed have been changed. There 
are F, M, Sum, and scalers and counters buffers for both acquisition 
and data reduction (SEEK and HIDE) . See Appendix A for a description 
of the core layout. 

The main operating system of RALPH occupies the first 16600 8 
locations of bank 0. It contains all of the handlers for the several 
devices on the system such as DEC tape, plotter, panel, function box, 
disk, ADC, teletype real-time clock, live- time clock, etc. The main 
system also contains a refresh display loop which runs at idle time. 

Locations 16600 through 17631 are used for 268 special floating 
point registers. The commands Rl, R2, and RG;X are used to access 
these registers. The first two (2) registers are in 3 word floating 
point notation while the other 266 are in 2 word notation. These 
registers may be thought of as "COMMON" registers since the main system 
as well as all overlays can access them. 

Overlays can be called into core upon request to extend the 
functions or available commands of the system. All overlays occupy 
locations 20000-27777 of core memory and reside on absolute DEC tape 
blocks . 


Memory locations 30000 through 37777 are used for the duplicate 
data buffers for acquisition and data reduction, ADC list buffers, 
teletype buffer and miscellaneous scratch areas. Locations 40000 
through 57777 are used for the 127 x 127 folded matrix in acquisition 
mode. In HIDE mode, the use is dependent upon the overlay currently 
in core. 

1.1 Main Operating System 

The RALPH OS (Operating System) is an interrupt structured 
system written in macro-9 assembly language. RALPH operates a 
refresh display as the idle loop. Upon interrupt % all appropriate 
registers are saved on a stack. Return from the interrupt is made 
by popping off the stack the last set of registers to be pushed 
onto the stack. This allows for nesting of interrupts and sets 
the response time to any interrupt to a minimum. 

The RALPH OS contains all of the 1/0 handlers. This helps 
prevent illegal Interrupts from occurring by> having all devices 
resident. 

The teletype handler which is contained within the OS has a 
buffer which can handle up to 1 70 i 0 characters. This allows any 
number of characters to be individually erased or an entire line 
to be erased. Buffering the input in this manner also gives the 
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capability to have sequences of commands placed in the buffer 
before starting execution of them. See the SEQ commands. 

While the system is waiting on I/O or simply sitting idle, 
the OS runs through a display loop. A number of different displays 
are available upon operator request. 

1 . 2 Acquisition Mode (SEEK) 

After an initial loading of RALPH or upon typing SEEK, all 
acquisition buffers are made available to the user. The user may 
ask the system to give a live display of F, M, Sum, or coincidence 
spectra. The acquisition parameters may be changed, buffers 
erased and the 256 x 256 matrix on disk erased, and/or the data 
may be saved, etc. In short, most functions within the system 
may be performed on the acquisition data when in SEEK mode of 
operation. The data reduction (HIDE) buffers are not available 
to the acquisition (SEEK) mode. 

All overlays except EXTEND force program operation into hide 
mode when read in from DEC tape. However, once the particular 
overlay is in core, the SEEK command may be given and the overlay 
then used in seek. This precaution is provided to prevent the 
user from destroying acquired data by mistake. 


1,3 Data Reduction Mode (HIDE) 


The HIDE command makes all data reduction buffers available 
to the system thus protecting the acquisition data. This allows 
the user to start acquisition and then proceed with data reduction 
on previously acquired data. The acquisition of data will continue 
on as if nothing else were happening. There are two main options 
which are resident in HIDE. They are STRIP and 50/50 (C5050 and 
S5050). These commands function as resident overlays in that 
they add new features to the program. 


All overlays may be called into the hide mode. The overlays 
are always read from DEC tape unit 0 into memory locations 20000 
through 27777. Following is a list of the presently available 
overlays. Section 1.4 describes the overlays. 


EXTEND 

8.5 

LIB 

8.6 

SEARCH 

8.7 

SING 

8.8 

PLOT 

8.9 

FOCAL* 

8.10 

INVERT 

8.11 

FORMAT 

8.12 

STRIP 

8.3 

C5050 and S5050 

8.4 


Resident in RALPH hide mode 
Resident in RALPH hide mode 


* FOCAL is a trademark of DEC. 
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1.4 Overlays 

All overlays occupy core locations 20000 through 27777 . The 
system tape is assumed to be on DEC tape unit 0 and all overlays 
are read in from the system tape. Each overlay resides in partic- 
ular absolute blocks on tape. If the desired overlay is already 
in core, it is not read in again if requested. 

1.4.1 EXTEND 


EXTEND is found in blocks 20-37 of the system tape. 
The EXTEND overlay is read in when the command EXTEND is 
given. This overlay is the only one which can be read 
directly into the SEEK mode and should only be used in SEEK 
mode. All other overlays force the system to enter HIDE 
mode. 


EXTEND allows the user to display various parts of 
the 256 x 256 matrix. This overlay also has the commands 
to store the 256 x 256 matrix on any one of the output 
devices (DEC tape, mag tape, or disk) and to retrieve the 
same again and place it back on the disk. The following 
commands are in the EXTEND overlay. 

GMAG;X 8.5.2 

MGSLOTjX 8.5.3 

DMAGjX 8.5.1 

C0N;S ,Y ,DX,DY 8.5.4 

Some future commands will be: 

GMAG;±Y*X 
G MAG;±Y/Z*X 
MGSL0T;±Y*X 
MGSLOT ; ±Y/Z*X- 

1.4.2 LIB 

LIB is found in blocks 100 through 117 on the system 
tape. The LIB overlay is read into core when the command 
LIB is given. This overlay creates library tapes from data 
tapes. Library tapes contain only the ID blocks of indi- 
vidual spectra. This way information about many spectra 
from any DEC tapes (magnetic tape or disk) may be stored 
°n one tape. The following commands are available. 


LAST 

8.6.5 

LIND 

8.6.7 

LGET;X 

8.6.11 

GREELjX 

8.6.10 

XFER 

8.6.6 

OUTPUT 

8.6,4 


LREN;X,Y 

8.6.9 

LDELjX 

8.6.8 

LNEW 

8.6.1 

GET ;X 

8.6.2 

RDSL0T ;X 

8.6.3 

I SETUP 

8.1,2 
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1.4.3 SEARCH 


SEARCH is found in blocks 120 through 137 on the 
system tape. The SEARCH overlay is read into core when the 
command SEARCH is given. This overlay searches library 
tapes to find those spectra meeting certain criteria. The 
ID blocks of those spectra meeting the criteria are placed 
on a scratch tape. Criteria are selected by going through 
a SETUP command and entering the parameters, Special 
characters are used for and/or on parameters within a given 
command. All criteria must be met for a spectrum to be 
selected. The following commands are used within SEARCH: 



CLEAR 

8.7.1 


GO 

8.7.2 


FMT 

8.7.3 

1.4.4 

SING 



SING is 

i found in blocks 140 through 157 on the system 

tape. 

The SING overlay is read into core when the command 


SING is given. This overlay has the capability of handling 
singles spectra of up to 4096 channels. These spectra may 
come from pulse height analyzer systems which have paper 
tape output. The format must conform to the following: 

1. Leader must be either blank tape or eighth level 
punch only. 

2. If channel numbers are specified, they must have 
4 (four) digits, 

3. Each channel must be terminated by a character 
other than a number. 

4. The first channel on the tape will contain the 
time either in seconds or in hundredths of a 
minute, 

5. The tape must be terminated by a level 4 punch. 

Most all functions within RALPH may be used in the singles 
mode. Functions which change while in the SING overlay and 
all functions peculiar to SING are listed below. 

M,STJM,FM, and CONTUR are same as F 

W window size may increase to 4096 


READPT 

8.8.7 

RDTMC 

8.8.9 

READ8 

8.8.8 

SSING 

8 • 8 #4 

CSING 

8.8,3 
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1.4.5 


PLOT is found in absolute blocks 160 through 177 on 

the , Xhe FL0T overla y ±s *ead into core when 

disnla^rfn^the “ sivSn * tflliohe ver singles spectrum is 
on the scope may be plotted with this overlay. 

messaee which X.* draW \ firsC aloa S with any description 

lengthened or shorroned^d plltTZyte overlay^ note 6 

“Lt«= 2.1 SSLSr " l °* -»■ 

j r* *"**™* * * **** »* • A ****** 










The commands that are available are listed below: 


FLOTC;A,B 

PLX 

FORG 


BOTH 

SEX;N 

1.4.6 FOCAL 


8.9.4 

8.9.1 

8.9.6 

8.9.5 

8.9.2 

8.9.3 

8.9.7 


FOCAL is found in blocks 200 through 217 on the 
systems tape and is read in when the command FOCAL is given. 

nf i mrIf rla T, M f J c ° nverted directly from DEC’s PDP-8 vfrsion 
r JwAL a it has beatt moiljLf £&<£ to operate utider the rat pm 
os but it still maintains the same co»and structure ” 

FOCAL uses the upper 8K (40000 through 57777) for program 
ana data storage, ° 

Four new functions have been added and a number of 

feature f°™ a " ds )j ave fa een implemented. An automatic start 
feature has also been added to the FOCAL overlay. See 

section 8.10 or Appendix C for new FOCAL commands. 

1*4.7 INVERT 

INVERT is found in blocks 220 through 237 on the 

This overla ? is read in when the command 
INVERT is given. This overlay added two functions to the 

* he f * rst f |f nctlon performs non-linear least-squarej 
fi ting of up to twelve 256 channel component (known) spectra 

/ < un £ nown) s P^trum, The least-squares method 
so find the best ratios of each known spectra to the 
unknown which would cause the least amount of residue when 
each spectrum is multiplied by its corresponding ratio and 
subtracted from the unknown spectrum. The ratios are the 
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regression coefficients or the amount of component found in 
the composite. The residuals are the channel by channel 
amount left after the subtraction. 

The regression coefficients (intensities) of the 
spectra are stored in the common registers 3-14 and the 
corresponding standard deviations in registers 15-26, The 
residuals are stored in the F spectrum data area of HIDE 
mode and may be displayed. The residuals determine the 
quality of fit. 

The second function does zero and gain shifting of 
any singles spectra which is presently being displayed. It 
should be noted that some error is inherent in the method 
used. Some error is accountable to the integer truncation 
done when the data are placed back in the display area, other 
errors can occur when channels' are lost or gained by shifting. 

The following commands are available: 

MATRIX ;X 8.11,1 

INVERT ;N 8,11.2 

GSHIFT ; ±± 8,11.3 

1.4.8 FORMAT 

FORMAT is in blocks 240 through 257 on the systems 
tape. It is read into core when the command FORMAT is given. 
This program is the same format routine written by Digital 
Equipment Corporation. It has been modified to run in the 
overlay area under RALPH OS, Everything should be shut down 
including acquisition while running the formatter because 
the DEC tape marking routines are not interrup table. This 
overlay has one command called FORMAT (8.12), 
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2.0 ACQUISITION 


Although RALPH is primarily a multi-parameter program, it also 
simultaneously obtains singles spectra from each detector. The multi- 
parameter data are sorted, as they are acquired, and stored in a folded 
127 x 127 matrix in the upper most core bank and on the disk in a 
256 x 256 matrix. The unsorted coincidence data may also be stored on 
industry compatible magnetic tape as unsorted addresses rather than a 
spectrum. Singles spectra are stored in 256 channel ramp lengths, For 
purposes of backup and to obtain half-life data, all accumulated spectra 
including the 127 x 127 matrix may be periodically dumped on DEC tape 
unit 4. Because of the techniques used for storing the 127 x 127 matrix 
in upper core, it is essential to have gains and responses of the two 
detector systems as nearly identical as possible, 

2.1 Data Entry from ADC 

RALPH utilizes the ADC interface in the list mode. In the 
list mode, a buffer is set up for each detector. Upon arrival 
of each event from the ADC, the event and 6 bits of identifying 
information are stored into a buffer location on a memory cycle- 
stealing basis. For every event coming from the ADC, an entry 
is put in both the F and M buffer lists. For example: if an 

F singles event occurs, the proper channel number and identifying 
information is put in the F buffer list. In the corresponding 
location in the M buffer list, channel number 0 is stored with 
the identifying information specifying the M event to be a reject. 
In RALPH, these buffer lists are 16 events long. After 16 events 
have occurred, an interrupt is generated and the sorting of the 
data is begun. There are actually two sets of buffer lists so 
that when one set is being sorted, the other set is being filled. 

Only three of the six identification bits are used in the 
present mode of operation. The six bits are in bits 0-5 of an 
18 bit number. The bits of interest are 0, 1 and 3. Bit 0 
indicates which side the event arose from with the following 
convention: bit 0 on a 0 is an F event; bit 0 on a 1 is an M 

event. Bit 1 indicates if the event was accepted or rejected; 

0 being the accepted state and 1 the rejected state. Bit 3 
indicates whether the event was a single or coincidence event, 

0 being the singles event and 1 being the coincidence event. 

2.2 Data Sorting 

One of the great advantages that the list mode of operation 
enjoys is the ability to manipulate the data as they come into 
the machine and store them in any way desired. In RALPH, consid- 
erable information is gleaned from each data event. The sorting 
routine first takes a pair of events from the F and M buffer 
lists, then categorizes them into one of the following types: 

a) Good coincidence events 

b) Good singles events 


8 


c) Singles rejects 

d) Coincidence rejects 

e) Error rejects 

Once the sorting routine has identified which category a 
pair of events resides in, then several different pieces of 
information are derived, in the case of a good coincidence 
event, the coincidence matrix in upper core is incremented, 
the coincidence matrix on disk is incremented, a coincidence 
event is prepared to be written on the magnetic tape transport 
(if option specified) , and a sum spectrum is incremented and the 
number of good coincidence events is incremented. The sum 
spectrum is created by taking the F and M channels of a coinei^ 
dence event, converting them to 256-channel ramps, and adding 
them together to form a 512-channel sum spectrum. All channels 
above 256 are stored in channel 256 of the sum spectrum. If the 
event is identified as being a good singles event, it remains to 
identify which one was the reject and which one was the good 
event and to increment the appropriate singles spectrum. If the 
event is a singles reject event, then the sorting routine will 
increment a 36-bit register, i.e,„ two consecutive core locations. 
If the event is categorized as a coincidence reject, then again 
a 36-bit register is incremented. For every good singles event, 
one of the F or M singles registers is also incremented. If the 
event is not in any of the above categories, a 36-bit error 
reject register is incremented. 

Coincidence data are stored in upper core in a special 
format. If the gains and responses of both detector systems are 
kept nearly identical, it is possible to reduce by approximately 
one-eighth, the storage area required for a coincidence matrix. 
This is because the data can be stored in what might be described 
as an overlapped form. In the ordinary coincidence matrix, if 
one were to draw a diagonal from the lower left-hand corner to 
the upper right-hand corner, events falling at symmetric locations 
on either side of the diagonal are equivalent (if the gains and 
responses of the two detector systems are equal) . Under these 
conditions, it then becomes necessary to only store data on one 
side of the diagonal plus the diagonal itself. This is the type 
of storage that is being utilized in RALPH. In this case, the 
coincidence pairs are always arranged such that the M value is 
greater than or equal to the F value, which results in all data 
being stored in the upper half of the coincidence matrix. In 
addition, each coincidence pair is divided by 2 so that each 
point in the folded mtarix actually represents 4 points of the 
original 256 x 256 matrix. 

Each event of the original coincidence matrix is placed into 
a 64 io word buffer. A disk routine takes the events out of the 
buffer and writes them on the disk in a 256 x 256 matrix. If the 
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ADC ever fills the buffer before the disk routine can empty it, 
the ADC and timers are shut down until the disk catches up. 

In order to access unfolded data along the positron ridge 
' • ~ HeV) , a special 127— channel spectrum is created and 
overlays part of the coincidence matrix where M = 127 and/or 
? - 127 . The spectrum is created from events where F < M and 
iG £ ^ £ 1^« spectrum can be accessed by the commands C$;127, 

Once the events from the buffer lists have been stored, there 
are data of the following forms ; a 127 x 127 coincidence matrix 
stored in upper core, a 256 x 256 coincidence matrix in locations 
0 through 177777 of disk 0, unsorted 256 channel coincidence data 
stored on magnetic tape (if specified), a 256-channel spectrum 
for both the F and M singles, a 256-channel sum spectrum, and 
six 36«bit registers containing the good F singles, the good M 
singles, the singles rejects* the good coincidence events, the 
error rejects, and the coincidence rejects. In addition, the 
four hardwired scalers denoted as A, B, C, and D are used to 
collect information about the detector system. 

2.3 Count Capacities 

Up to 262,143 counts may be stored in each channel of spectral 
data. All counts in excess of this number are lost; i.e,, when 
the 262,144th count arrives in a channel, the contents of the 

channel will be 0. When one more count arrives, the contents will 
be 1, etc. 

All scaler quantities such as singles events, the four 
external scalers A, B, C, D, etc,, are stored with a 36-bit 
capacity. This is approximately 6,9 x 10^ events. 

2.4 Time 


RALPH has full provisions for keeping account of live- time 
and real-time. The user has the option at the beginning of the 
experiment to enter the length of live-time desired. The times 
are always entered as integer minutes. 

NOTE: If data reduction is taking place concurrently with 

data acquisition, the coincidence to magnetic tape option 
and the DEC tape dump to unit 4 option are ignored. The 
127 x 127 coincidence matrix is not stored either. The 
core used by the 127 x 127 matrix will be used by the data 
reduction routines. The SEEK command restores all the 
above. 
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3.0 


DATA REDUCTION 

The purpose of data reduction in RALPH is to determine the amounts 
of particular isotopes which are present in the substance from which data 
have been acquired* 

In order to do this, spectra are acquired from radioisotopic 
standards* These standards represent a known quantity of a particular 
isotope? After a representative selection of standards have been 
acquired, the actual data analysis may resume, 

There are two methods of reduction which may he used in RALPH. 

The two methods are stipping and least squares regression analysis. 

The stripping method strips the coincidence matrix as will as the singles 
spectra* The least squares method is used on singles spectra only, 

3* 1 Stripping 

Stripping is the subtraction of standard spectra from an 
unknown spectrum, If the exact amount of each component, which 
is present in the unknown, were subtracted from the unknown, the 
residual or amount left would be sero (0) , The general idea 
then is to subtract the correct amount of each standard present 
in the unknown from the unknown in order to obtain the lowest 
amount of residual. 

The correct amount to subtract is given by the ratio of the area 
of the unknown peak to the area of the corresponding standard peak. 


Stripping standards from an unknown is performed from the 
high energy peaks toward the low energy peaks because of the 
influence the compton scattering of high energy peaks has on 
the low energy peaks. Note, however, that single peaks are not 
stripped but that an entire isotope is stripped from the unknown. 

The commands GET;±F*X (8.2.2) and RDSL0T;±F*X (8.2.3) are 
used to strip the spectra. An example is presented here to show 
how the first isotope might be stripped. In this example, disk 
is used for scratch, DEC tape unit 3 has the unknown, and DEC 
tape unit 4 has the standards. 


HIDE 
STRIP 
DISK 
INIT 
D 3 

GET +1*14066 


/ Puts RALPH in HIDE mode. 

/ Activates the strip functions. 

/ Use DISK for scratch area. 

/ Zeroes out scratch area. 

/ Specify DEC tape unit 3, 

/ Add unknwon 14066 to scratch area. 


CS 14,15 
W 63,67 


/ Cuts a slice out of the 
/ coincidence matrix. 


R1 A 


/ Put the area in common 
/ register 1. 


11 



CS 13 
W 63,66 

/ 

Cut another slice. 

R1 +A 

/ 

Add the area to the previous 


/ 

contents of Rl. 

VER 12 
HOR 65 

/ 

Specify a particular point in the 


/ 

matrix. 

R1 +B 

/ 

Add point to Rl. 

/ R1 now contains the number of counts in the area under 

/ the peak 

for the unknown. 

D 4 

/ 

Specify. DEC tape unit 4. 

RDSLOT 1 

1 

Read in standard from slot 1. 

CS 14,15 
W 63,67 

/ 

Cut a slice. 

R2 A 

/ 

Put area in common register 2. 

CS 13 
W 63,66 

/ 

Cut another slice. 

R2 +A 

/ 

Add area of this slice to R2. 

CONTUR 
R2 +B 

/ 

Add point to R2. 

RDSLOT -*1 

/ 

Strip the amount R1/R2 of the 


/ 

standard in slot 1 from the 


/ 

unknown in the scratch area. 


Do next standard. 


3.2 Least Squares Analysis 

The least squares method performs a regression analysis of 
standard spectra to an unknwon spectrum. The user must supply 
all of the standards which are present in the unknown in order 
to get a good fit and to obtain the correct ratios. 

Once the ratios have been obtained through the least squares 
method, RALPH subtracts the appropriate amount of each standard 
from the unknown to form the residuals. The residuals determine 
the quality of fit. The closer the residuals approximate zero, 
the better the fit. 

The quality of fit is. affected by the similarity (or 
dissimilarity) of the standards to the unknown and the closeness 
of the gain and zero shifts of the spectra. 
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The co mman ds MATRIXjX (8*11*1) and INVERT ;N (8*11*2) are 
used to do a least squares analysis. A regression analysis 
example of a spectrum to itself is given below* 


HIDE 


/ 

Put RALPH in HIDE mode. 

F 


/ 

Specify F singles spectrum. 

INVERT 


/ 

Call in overlay. 

KDSLOT 

1 

/ 

Read data from slot 1. 

MATRIX 

0 

/ 

These data will be used as the 
unknown. 

MATRIX 

1 

/ 

These data are the standard. 

INVEST 

1 

l 

Perform the least squares fit. 


/ Common register 3 will contain the regression coefficient 
/ and register 15 will contain the standard deviation of 
/ the fit* 

3.3 Summary 

Both techniques have their advantages and disadvantages. 

The least squares method requires all standards to be present 
for a fit, whereas the stripping method does not. The stripping 
method, however, requires the user to determine the ratios by 
choosing the appropriate areas, whereas the least squares method 
calculates the ratios. 
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4.0 


PANEL 


The panel consists of an array of rotary switches and momentary 
contact push buttons. The switches are arranged in three rows of four 
switches ana the push buttons in two rows of 12 as shown in Figure 1. 


The rotary switches are numbered in octal code left to right 
starting in the upper left-hand comer with a switch code of 1. Each 
switch has eight possible positions which are coded in octal. The 24 
push buttonr are treated in the interface logic ass three eight-position 
switches with switch codes of 15, 16 and 17. * 


When a change in panel status occurs (i.e., a switch is turned 
or a button is pushed), an interrupt is generated. The program in turn 
reads the panel status into the accumulator to determine which knob or 
button generated the interrupt. Bits 11 through 14 of the AC will con- 
tain the switch code and bits 15 through 17, the position code when the 
panel status is read. 


The meaning of each position of a knob and of each push button is 
completely dependent upon the program which is presently interpreting 
the panel. The significance given by RALPH to each knob position and 
push button is discussed in sections 8.13 through 8.16 below. 

4.1 Panel Function 


RALPH uses the panel as a status indicator, a backup for 
the teletype, and to control certain display functions not 
available through the teletype. 

4.1.1 Status Indication 


Across the top of the Control Panel are six lights 
that may be turned on or off under program control. The 
program RALPH utilizes all the lights but the second from 
the left-hand side of the panel, 

RALPH ENABLED. If this light is on, the program 
RALPH is in the computer and operating. 

ERROR INDICATOR. This light is on any time a user 
has attempted to perform an illegal operation with the 
panel. The error condition will be removed by performing 
the desired operation in the proper manner. 


The following are the illegal operations that will 
cause the ERROR INDICATOR to be lit: 

1. In the block marked READ OUT CONTROL, the CLEAR 
button must be depressed before depressing the START 
button, otherwise an ERROR INDICATOR will be given. 


i 
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2. If the ADC's are in operation, depression of any 
of the buttons in the blocks marked IBM MAGNETIC TAPE 
CONTROL, STORE COINC EVENTS ON TAPE, or ERASE ALL 
DATA will cause an error condition. 

3. In the block marked ERASE ALL DATA, the ERASE 
ENABLE button must be depressed before depressing 
the ERASE AND RESET button. 

COINC TAPE INDICATOR. When this light is on, the 
coincidence events are being written on the IBM compatible 
tape transport. 

PERIODIC DUMP INDICATOR. When this light is on, all 
data are being dumped periodically on a DEC tape transport. 

ANALYZE INDICATOR. When this light is on, the ADC’s 
are in operation, i.e., the experiment is in progress and 
data are being acquired. 

4.1.2 Teletype Backup 

A number of the teletype commands are duplicated by 
the panel. If the teletype malfunctions or quits entirely, 
the user can still set up the equipment, start and stop 
acquisition, store data, and control the display all by use 
of the panel. 

4.1.3 Display Control 

A few display functions can be given with the panel 
that cannot be given with the teletype. They are data 
rotation, number of log decades, and log base line decade. 
See sections 8,15 and 8.16, 



5.0 


FUNCTION BOX 


The function box consists of 12 keys. An interrupt is generated 
when the first button is depressed and/or when the last button is 
released. A key register holds the status of the keys and can be read 
into the accumulator at any time to determine which buttons are down. 

The button locations and accumulator bit assignments are shown 
in the following diagram. When a button is pushed down, the bit is set 
to a one. 


XI 

xi 

jU 

AC1 

AC2 

AC3 

X 


5 


6 • 


AC4 

AC5 

AC6 

_Zj 


8 


9 


AC7 

AC8 

AC9 

10 


11 


12 


AC16 

AC 10 

AC 17 


The function box is used to input numeric data and control some 
display functions. Key 10 initializes the box for numeric input and 
key 12 initializes the box for display control. See section 8,17 for 
a description of the functions for each key. 



6.0 


BIDIRECTIONAL SERIAL DATA INTERFACE 


The bidirectional serial data interface was built by Aerojet 
Nuclear Company. The interface transfers data between the PDP-9 
computer and a PDP-8/L computer. With software commands, the interface 
can be instructed to transfer data between the PDP-9 and a modem. 

The data are transferred in 8 bits. When 8 bits have been 
assembled, an interrupt is generated in the computer receiving the data. 
The data are then read into the low order 8 bits of the accumulator. 
Reading the 8-bit register into the accumulator generates an interrupt 
in the computer sending the data. This interrupt indicates that the 
interface is ready for more information. 

The PDP-9 has control over all data transfers. The PDP-9 can 
enable or disable the interface from generating interrupts. This makes 
it possible for RALPH to accept data from the PDP-8/L only when RALPH 
wants to accept data. This safeguards the PDP-8 activities from the 
serial data interface. 

The transfer rate is 20 KG. Actual transfers of the F and M 64 
channel singles spectra and of the 64 x 64 channel coincidence matrix 
from the 8/L to the 9 take about 35 seconds. 

At present, data are only being transferred from the PDP-8L to 
the PDP-9. The software has not been completed to handle transfers in 
the other direction or transfers between a modem. Diagnostics have 
been written and used to check transfer of data in both directions. 
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7.0 


DEVICE FORMATS 


There are four major formats used with the data devices. They 
are called (1) data format, (2) library format, (3) mag tape dump format, 
and (4) scratch format. There are four slightly different formats 
within the ‘'data format" classification. They are (1) regular format, 

(2) DMAG format, (3) 50/50 format, and (4) singles format. Appendix D 
has diagrams of the several formats. 

The DEC tape, disk, and magnetic tape are the device.s used for 
data storage and retrieval. RALPH is device independent which means 
the devices can be used interchangeably. The commands D (8,1.47), DISK 
(8.1.56) and TAPE (8.1.57) specify which device(s) will be used for data 
storage and retrieval. 

Each DEC tape unit or magnetic tape unit is considered to be one 
unit. The disk, however, may be thought of as three units on the one 
platter. The disk is software divided into three' sections. The first 
section, disk addresses 0 through 177777 8a is used for the 256 x 256 
coincidence matrix. The second section, disk addresses 200000 through 
264377s, Is used for scratch area (see section 8.1,56). The third area, 
disk addresses 264400 through 723400 q, is used for spectrum storage as 
any DEC tape or magnetic tape is used. 

7 . 1 Data-Format 


Data- format is used for the storage of experiment data and 
associated parameters. The devices are logically divided into 
400 8 word blocks. The first block contains an index. Blocks 2 
through N-l (where N is defined by 7.1.1, 7.1.2, 7,1.3, or 7.1,4) 
are used for the first experiment, blocks N through 2N-1 for the 
second experiment, etc. Each set of blocks used for an experiment 
is called a slot . Slots are numbered from 1 to the number of 
spectra which may be put on a device. 

7.1.1 Regular Form at 

Forty-four (44 8 ) blocks are used per slot (per experi- 
ment) when using this format. The DEC command creates this 
format when in seek mode and when in hide mode (a different 
format is used in SING, C5050, or S5050) , Fifteen (decimal) 
spectra maximum cam be stored on DEC tape or disk. Mag 
tape is allowed 88 spectra maximum. 

The first block of the slot contains the ID informa- 
tion for the experiment. The TIMES, COUNTS , SCALER, and 
the SETUP (8.1.3) parameters are in the ID block. 

The second, third, and fourth blocks of a particular 
slot contain the SUM, F, and M spectra respectively. 

The next 40 blocks contain the 127 x 127 folded coin- 
cidence matrix. The matrix is dumped directly from core to 
the device. 
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7. 1.2 DMAG Format 


A variable amount of blocks are used per slot in this 
format. The number of blocks used increases directly with 
the number of non-zero entries there are in the 256 x 256 
coincidence matrix. The index is written after the data 
are stored so that the number of blocks used can be entered 
in the index along with the experiment ID. The DMAG command 
creates this type of format. The number of spectra are 
dependent on the number of zero entries. 

The first block of the slot contains the ID infor- 
mation pertaining to the experiment. The TIMES, COUNTS, 
SCALE#, and the SETUP (8.1.3) parameters are in the ID block. 

The second, third, and fourth blocks contain the SUM, 
F, and M spectra respectively. 

The next varying amount of blocks contains the 
256 x 256 coincidence matrix. The matrix is read from the 
disk two blocks (lOOOg words) at a time and packed into an 
output buffer to be written on the output device. Successive 
channels which contain zeroes are packed into one 18-bit 
word* Bit 0 is set to a 1 to indicate that the word contains 
packed zeroes. Bits 1 through 17 contain the number of 
successive channels which contained zeroes. 

7.1.3 50/50 Format 


Twenty-five (25g) blocks are used per slot in this 
format. The DEC command creates this format when in CS050 
or S5050 mode. The DEC tape and disk can hold up to 26 iq 
spectra. The magnetic tape can hold 88 spectra. 

The first block of the slot cdn tains the ID infor- 
mation. The TIMES, COUNTS, SCALER, etc., are in the ID block. 

The second, third, and fourth blocks of a slot contain 
the SUM, F, and M spectra respectively. 

The next 21g blocks contain the 64 x 64 coincidence 
matrix. The matrix is dumped directly from core to the 
device. 

7.1.4 Singles Format 

Twenty-one (21g) blocks are used per slot in this 
format. When in singles mode, the DEC command creates this 
format. The DEC tape and disk hold 26xo singles spectra. 

The industry compatible magnetic tape holds 88 spectra 
maximum. 
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The first block of the slot contains the Tn <nfnv 

mation. The TIMES. COUNTS SCALEU . infor- 

block. oCALER, etc., are in the ID 

spectrum^ **** 2 ° 8 bl °° kS C<mtain 8 4096 channel Angles 
2 Library Formgt 

t jt. library tapes are the only tapes with this formaf 

ibrary tapes are always created on DEC tape unit 5 The t 
IS logically divided Into 400 a word blocks! 

<W=, ! he f ^ rst bloc ! contalns an index of reel numbers. Every 
f P ha ® “ reel number associated with it. For every data 

tile Its tfn ? 1 °f 8 , haVe be “ taken “ d Placed onTliblary 
IZ ' , la ! erted lnt0 the index , of the librae 

library tape. 10 data tapeS can be P la ced on a 

data «el kS bL^r«f! I 00 "*? 1 ? the ID information from the first 

dairl r 1 * etC - “ iS the nwb “ of experiments on tht 
data device (see Sections 7. 1. 1 throueh 7 14) F*„h l Jt * T. , 
thus defined is a slot . 8 Each set of blocks 

from the datSraelS Wlthin a slot con tains the experiment ID's 
xrom tne data reel corresponding to this slot. 

exnerwSIS * bl °° ks C ? ntain the ID blocks of the several 
experiments from one reel of data. 

^•3 Mag Tape Dump Format 

of the options during acquisition is to dump the 
coincidence events to magnetic tape for input to a large computer. 

storefironfVhl? 6 18 8 bitS in len « th * *«» even ts can be 
stored ,ji one 18-bit computer word as shown below. 


OXXXXXXXXOXXXXXXXX 

*■ 


8 bits 
F event 


8 bits 
M event 


18 bits 

one computer word 

the corres P ondin 8 M event in the 
been MllS S t in memory until 256 computer words have 
fi i led - Events are then stored in another area while the 
256 words and an end-of-record gap are written on the tape. 
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When the dump is complete, the MTEOF command should be given to 
write an end-of-file at the end of the data. 

7.4 Scratch Format 


The scratch units (disk or DEC tape unit 5) are the only 
units which use this format. The units are logically divided 
into 1518 blocks of 4008 words apiece. 

The scratch units are used for storing the floating point 
results of a strip or the floating point data for the non-linear 
least squres fit. 


8.0 COMMANDS 


. h P r °gr a ™ is designed to allow control of all computer functions 
and the control of all peripheral devices by commands issued through the 
teletype keyboard. A command consists of from one to six characters, a 
terminator and sometimes an argument. The terminators are listed below. 

A se mcplon or carriage return is used to terminate a command and 
art execution of that command. If a command has an argument, the 
semicolon is used between the command and the argument. For example, 
e comman SETUP; requires no argument and can be terminated by either 
a semicolon or carriage return. However, both a semicolon and a carriage 
return, are required in a command that has an argument as in CS;2 *. 

A comma is used to separate arguments when more than one is used. 
Cu;z,5 is an example. 


A space is used in place of the semicolon and altmode is used in 
place of the carriage return when immediate execution is not desired, 
n this way, several commands can be input and execution started by 
using a semicolon or carriage return on the last command. Such a list 

of commands can be saved for repeated use with the SEQ; commands. (See 
bection o • 1 • 65 • ) 


There are four special control characters to be used as follows: 

Control "C"** and control "P" (fC and tP)** are used to delete 
all pending text and to stop all I/O on the teleprinter, the 
paper tape reader /punch, and the plotter. 

Control "C" is also used to terminate single character input as 
used in FOCAL and DEBUG. 

A control U'- (iU) is used to delete all pending text, 

A rubout character is used to delete the last character in the 
input stream. There is no limit to the number of characters 
that can be deleted in this manner. 

If an erroneous command is typed, the computer will type back to 
the user a question mark indicating it did not understand and will then 
await a new command. 


* n Edition to the teletype commands, the experiment may also be 
controlled by the Control Panel. This device consists of twelve rotary 
switches, each having eight positions, 24 push button switches, and a 
1^-tcey function box. The device is completely under program control. 
Thus, the functions performed by the switches are entirely determined 
by the program that is residing in the computer. The Control Panel is 
normally quiescent, i.e,, interaction with the computer only takes place 
when a knob has been turned or a push button depressed. When such an 

I U I I HUil HL jgWH . 1 wi 

*The Symbol ) is used to mean carriage return. 

**The control "C" is input by depressing the control shift while typing 

£u6 0 * 
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action does take place, the computer is interrupted. The program at 
that point reads a register in the panel to determine which knob, button, 
or key was activated and then performs the appropriate action. Because 
the panel has such versatility, no permanent labeling of the knobs and 
switches is provided. Instead a translucent overlay is provided which 
labels each of the functions the panel can perform under the control of 
the program corresponding to the overlay. 

Experiment control may be exercised from either the teletype or 
the Control Panel or any combination of these two devices. The functions 
that the panel performs do not exactly duplicate the functions that the 
teletype commands perform. However, the design philosophy is that an 
experiment may be controlled completely from either device. Thus the 
panel is a true backup device in that experiments can be conducted if 
the teletype is inoperable. In those cases where the two devices have 
duplicate functions, the last device activated determines the present 
state of the function in question. For example, if one were to set the 
vertical display scale to LOG on the teletype and then push the LOG-LINEAR 
button on the panel, the vertical scale would be linear. 

All of the commands present in RALPH are listed in this section 
with a detailed description of each, A summary of the commands is given 
in Appendix C. 

The commands which are resident and operate in SEEK are listed 
first. Those commands resident in HIDE are listed next. Then the com- 
mands in the overlays are listed. Last of all, commands which may be 
given by the panel and the function box are listed. The commands in each 
section are grouped according to function. Some commands change meaning 
depending upon the overlay in core at the time. The section numbers 
giving further information are listed immediately following the command 
mnemonic . 


8.1 SEEK 

Activates all of the acquisition buffers and constants for 
access by all subsequent commands. Reconstructs the in-core 
127 x 127 folded matrix from the unfolded matrix on disk. 

.Experiment Setup 

8.1.1 ERASE - 8.2.1 

Erases the F, M, and SUM 256-channel singles data 
and the coincidence data buffers. Erases the 256 x 256 
matrix on disk and clears the counters, timers, scalers, etc. 

8 . 1.2 ISETUP 

Zeroes setup information (start and stop time, 
spacings, dump flags, etc,). 
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8.1.3 SETUP 


Causes a query list to be initiated to determine the 
parameters of the experiment. Values that are presently in 
memory are listed. If the values are not to be changed, a 
carriage return is typed. If they are to be changed, the 
new information is typed followed by a carriage return. The 
inquiries and possible answers are given below. 


INQUIRY TYPE OF INPUT COMMAND 


GAIN: 

I MANTLE: 

0 MANTLE: 
PUNCH PAPER: 

DATA TO MAG: 

START TIME: 
STOP TIME: 
TOP SPACING: 

BOT SPACING: 
WEIGHT: 
LUNAR: 
METERORITE : 
ISOTOPE: 


5 digits 

1 alphabetic (Y or N) 

1 alphabetic (Y or N) 

1 alphabetic (Y or N) 

The panel function "punch" 

or the PUNCH command will 
set it to "Y". 

1 alphabetic (Y or N) 

The panel function "MAG" 
or the MAG command will 
set it to "Y", 

5 digits. Can be entered 
with START command also. 

5 digits. Can be entered 
with STOP command also. 

48 alphanumerics . Can 
also be entered with the 
SPACE command . 

48 alphanumerics 


5 digits 


48 alphanumerics 


48 alphanumerics 


48 alphanumerics 


SETUP ; 

continued part of SETUP 

continued part of SETUP 

SETU; or continued part 
of SETUP 


continued part of SETU 
or SETUP 


continued part of SETU 
or SETUP 

continued part of SETU 
or SETUP 

space or continued part 
of SETU or SETUP 


continued part of SETU 
or SETUP or SPACE command 

continued part of SETU 
or SETUP 

continued part of SETU 
or SETUP 

continued part of SETU 
or SETUP 

continued part of SETU 
or SETUP 
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INQUIRY 


TYPE OF INPUT 


COMMAND 


CONCENTRATION: 5 digits 


continued part of SETU 
or SETUP 


GENERAL 


48 alphanumerics 


continued part of SETU 
or SETUP 


COIN TO MAG: 1 alphabetic (Y or N) SET; or continued part 

The panel. function to of SETU or SETUP 

enable coincidence dump 
will set this to "Y". 

The disable will set it 
to "N". 


DUMP INTERVAL: 


PRESET : 


5 digits. Also controlled continued part of SET, 
by the periodic data dump SETU, or SETUP 
function on the panel. 


5 digits. Also con- continued part of SET, 

trolled by the preset SETU, or SETUP 

live- time function on 
the panel or the LIVERS 
command. 


EXPERIMENT: 10 digits. Also con- continued part of SET, 

trolled by input from SETU, or SETUP 

function box or by the 
EXP ID command. 


8.1.4 SETU 


Same as SETUP except a shorter query list is given * 
This command is used when mantle and gain configurations 
are not changed. 

8.1.5 SET 

Same as SETU except a shorter query list is given. 
This command is used when the same sample is to be counted 
as previously and the sample description is not changed. 

8.1.6 EXPID 


This command will allow a new 10 digit sample identi- 
fication number to be entered. 

8.1.7 SPACE 


This command will allow new values for the top and 
bottom spacing to be entered. 
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8.1.8 LIVERS 


the livTIi iS f ° r _. live time preset and will allow 
acquisition. 6 experlment to be changed during data 

8.1.9 START ;X 

a „„ , , Enables the ADC's and all scalers. Does not clear 
point? arS8S ° r SCalers - A time ">ey be entered at this 

8.1.10 STOP ;X 

an „ , Disables the ADC's and all scalers. Does not clear 
any data areas or scaler« a t-t mA . ° “ ot CJ -ear 

pointt a ers * A time ma y be entered at this 

8.1.11 STAR 


Same as START; except time is not entered. 

8.1.12 STP 


Same as the STOP command 
entered . 


except that no time is 


8.1.13 UPSET 


, Prints a listing of all identifying information 
which was entered with the SETUP command. 8 

Experiment Parameters 

8.1.14 COUNTS 

ST.SS: "" “* — « « SIT 


8.1.15 SCALER 

Scalers A, B, 0, and D are printed, 

8.1.16 TIMES 


time) thC real - £i ” e (elapsed clock 

experiment? * 1 £t * and P recent live time of the 


IP 
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8.1.17 LIST 


Prints the parameters of the COUNTS, SCALER, and 
TIMES commands. 

Display Singles 

8.1.18 LOG - 8.16.1 

Sets the vertical axis to a logarithmic scale. 

8.1.19 LINEAR 


Sets the vertical axis to a linear scale. Bits 
4-17 of the AC switches are used to set the full scale 
Y~value. 


ACTION 


SET LINEAR SCALE TO 32 

COUNTS 

*0 

H 

64 

COUNTS 

G\ 

H-* 

128 

COUNTS 

Ln 

i_i 

256 

COUNTS 


512 

COUNTS 

u> 

1024 

COUNTS 

to 

2048 

COUNTS 

H-* 

H-* 

4096 

COUNTS 

H 4 

o 

8192 

COUNTS 

VO 

16384 

COUNTS 

00 

32768 

COUNTS 


65536 

COUNTS 

ON 

131072 

COUNTS 

Ln 

262144 

COUNTS 

45* 


8.1. 20 W;X,Y - 8.8.2 

Display channels X through Y across the full width 
of the oscilloscope. Used with singles spectra only,. 
0<X<Y<255. 

8.1.21 SV;X 

Display a vertical line across the screen at 
channel X. 
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8.1.22 SH.Y 


Display a horizontal line 
the Y-axis equals Y counts. 


across the screen where 


8.1.23 ZZ - 8.15.3 


This command works as a flip-flop. One time it will 
cause channels with zero counts to be unintensified. The 
next tim e x); will cause them to be Intensified. Zero counts 
in log mode are displayed on the ones decade. 

8.1.24 F 


Display F singles data. 

8.1.25 M - 8.8.1 


Display M singles data. 

8.1.26 SUM - 8.8.1 

Display SUM singles data. 

8.1.27 FM - 8.8.1 


Overlapping display of F and M singles data. 

8.1.28 S 


„ , Th is command is used with the FM mode of display. 

Each time this command is given, the M spectrum is raised 
1/8 of the vertical scale of the oscilloscope. Giving 
this command 8 times returns the display to its original 


Display Plane 
8* i.29 CS;X 

Display the data formed by a plane through the 
coincidence 127 x 127 matrix in which F=X and M values go 
from 0 to 126. Because the matrix is folded, interchanging 

pq?i 97 1U f S of F 9X16 M wil1 8ive the same planar slice. 

CS; 127 gives special data (see Section 2.2, next to last 
paragraph) . 


8.1. 30 CS;X,Y 

Display the data in the planes cut through the 
coincidence matrix where F“X+. . ,+Y and where M-0 through 126, 
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That is, add all planar slices F=X through F=Y of the 
coincidence 127 x 127 matrix and display the sum. 


Display Coincidence 

8.1.31 CONTUR - 8.4.8, 8.8.1 

Display coincidence data. The contour mode displays 
data in the usual X-Y plane. A Z-axis is also present and 
supposedly comes out from the screen toward the viewer. 

The 127 x 127 matrix is displayed unless overlays have 
changed the matrix to something else. See other sections. 

8.1.32 CINIT 


Display coincidence data and initialize display as 
follows: set the delta Z (AZ) slice to 131K, set the Z-zero 

value to 0, and remove the vertical and horizontal markers. 

8.1.33 ZZERO ;X 

Establishes a Z plane through the coincidence matrix 
at Z=X. Only values on the Z-axis greater than this plane 
are displayed. 

8.1.34 DELTZsX 

Establishes a delta Z (AZ=X) which is used with the 
Z-ZERO value to determine the thickness of the Z-plane, All 
values along the Z-axis having Y number of counts such that 
Z<Y<Z+AZ are displayed. 

8.1.35 RINC;X 

Sets the amount by which the Z-plane through the 
coincidence data is to be raised by the R command. The 
Z-plane is determined ■ by the ZZERO and DELTZ commands. The 
value X is given in units of counts . 

8.1.36 R 

Every time this command is given, the Z-plane is 
raised by one increment as established by the RING command. 
If the value of Z exceeds 262,163 counts, Z is reset to the 
value last specified by the ZZERO command. 

5.1. 37 H0R;X 

Display a horizontal line across the screen that 
intersects the y-axis of the coincidence data at y«X. 
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8.1.38 VER;X 


Display a vertical line across the oscilloscope 
screen that intersects the X-axis of the coincidence data 
at channel X. 


Display Number Generator 


8,1.39 NG;X 


Causes a value to be displayed according to the 
following table. 



Quantity 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


% live time 

Contents of location specified by 
AC switches 
Same as X=1 

DEC tape dump slot number 
Experiment identification // 

Bright dot contents 
Bright dot channel, 

Live time left 
Scaler A 

Number of error rejects 
Number of singles rejects 
Number of coincidence rejects 
Character display off 
Scaler D 
Scaler C 
Scaler B 

Character display off 


Calculations 

8.1.40 AREA 


Calculates and prints the centroid, net area, and 
gross area of the singles data being displayed. The 
background, B, is calculated by faking three values (one 
outside and two within the window) on both sides of the 
window of the singles data being displayed and averaging 
them. 
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NET AREA = 


u 


E 

-r=T 



GROSS AREA 


u 



i=L 



CENTROID « 



/net area 


where L and U are the lower and upper limits of the window 
and are the counts in channel X^. 

8.1.41 F40;X 

Set the F40 constant to X/100. This constant is 
used in the P40 calculation. 

8.1.41 M40:X 

Set the M40 constant to X/100. This constant is 
used in the P40 calculation. 

8.1.43 P40 

Using the data within the window being displayed, 
calculate the gross area, net area, centroid, and standard 
deviation of the centroid. See 8.1,40 for calculation of 
areas and cent roid. The standard deviation is calculated 
by: S.D. * yit/NET AREA where K equals the F40 or the 

M40 constant depending whether F or M data are being 
displayed. 

8.1.44 BF;X 

Set background constant BF to X/100. This constant 
is used in the F/M command. 

8.1.45 BMsX 

Set background constant BM to X/100. This constant 
is used in the F/M command. 

8.1.46 F/M 

(This command must be preceded by the display 
command FM.) Using the data within the respective F and 
M windows, calculate the gross F/M ratio, the net F/M 
ratio and the standard deviation of the net F/M ratio 
according to the following formulas: 


Gross F/M Ratio 


gross area of F 
gross area of M 
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S.D. = 


Net F/M Ratio = 


gross area of F - (FB * TIME) 
gross area of M - (BM * TIME) 


/(gross area of Fp+Cgross area of M)* (net F/M 
(gross area of m) - (BM * TIME) 


ratio)' 


See 8.1.40 for gross area calculation. TIME is the elapsed 
real time for the experiment. 


Input /Output 
8.1.47 D;X 

Specifies the device and/or unit // to be used for 
data storage and retrieval by most all I/O commands. 


X Unit 

0 0 


1 0 
2 thru 5 2 thru 5 

8.!. 48 NEWDIRjX 


Device 


Industry compatible 
magnetic tape 

DEC disk 

DEC tape 


Create a new directory with reel #X on the device 
specified by the D command. Any previous index is destroyed. 

8.1.49 INDEX 


List the directory of the device specified by D 
(8.1.47). 


8.1.50 IND 

Rewind the specified unit. Actually does an INDEX 
command but suppresses the print out. 

8.1.51 DELETE ;X 

Delete the ID,X& from the directory on the' unit 
specified by the D command. 

8.1.52 RENAME ;X.Y 

Change the old ID name, X, to the new ID name, Y, 
in the directory of the specified unit. 
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8.1.53 “ 8 * 8 * 5 

Enters the present experiment ID into the index of 
the device specified by the D command. The experiment ID 
was entered with the EXP ID command (8.1.6) or with SETUP, 
SETU, or SET. Then the ID block (see SETUP 8.1.3); the F, 

M, and SUM singles spectra; and the 127 x 127 folded coin- 
cidence spectrum are written out. 

8. 1.54 GET;X - 8.6.2 

Searches the index of the specified device (8,1.47) 
for the experiment ID X. If the ID is not found, a message 
indicating the error is printed. If found, the ID block, 
the F, M, and SUM singles spectra and the 127 x 127 folded 
coincidence spectrum are read into core. If in SEEK mode, 
the 127 x 127 folded matrix is expanded (but not unfolded) 
and placed on the disk to represent the 256 x 256 matrix. 

5.1. 55 RDSLOT;X - 8.6.3 

Reads the ID block; the F, M, and SUM singles 
spectra; and the 127 x 127 folded coincidence spectrum 
from slot X of the specified unit. See section 7.1 for 
the definition of a slot. This command is identical to 
the GET command (8.1.54) except that the index is not 
search. This saves a lot of time which would be spent 
rewinding the unit (particularly DEC tape) in order to 
read the index. 

8.1.56 DISK - 8.3.1 

Specifies the direction to be tape-to-disk for the 
COPY and COPYS commands. DISK also specifies that the 
disk scratch area will be used by all commands needing 
scratch area. 

8.1.57 TAPE - 8.3.2 

Specifies the direction to be disk-to-tape for the 
COPY and COPYS commands. TAPE also specifies that DEC tape 
unit 5 will be used for scratch area by all commands needing 
such. 


8.1.58 INIT - 8.3.3 

Zeroes the scratch area indicated by the DISK or 
TAPE command. 
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8.1.59 COPY 


Q , , j® e f the DEC ta P e unit specified by the D command 
and the disk to perform a copy from one to the other. The 

, iS Set by the DISK or TAPE command. The first 
10 75 q blocks are copied. 


8.1,60 COPYS 


, the DEC ta P e unit specified by the D command 

he mf sk ac ratch area to perform a copy from one to the 
fircchion is set by the DISK or TAPE command. 
The fj.rst 151g blocks are copied. 

8,1.61 MTNOP 


Sends a null function to the magnetic tape controller 
to see if unit is operational. An error is typed if the tape 
unit is not ready. This allows the user to make sure unit is 
functional before running the tape unit. 

8.1.62 MTEOF 


Writes an end-of-file on the magnetic tape. This 
function should only be used in conjunction with the coin- 
cidence to mag tape dump option in seek mode. When acquisition 
terminates, this command may be given to put an EOF mark on 
the dump tape. Off-line big computer systems can now read 
the tape and sense the end of the data (EOF). 

8,1,63 PRINT 

Prints the data presently being displayed. The data 
are printed on the teletype 8 channels per line, 

8.1.64 PUNCH 


Punches the data presently being displayed. The 
data are punched 6 digits per number with a space between 
each. Eight numbers are punched then a carriage return 
line- feed. A four (4) is punched to indicate end of data. 


Sequences 

8.1.65 SE<3 

Opens a buffer area for. storage of commands. The 
SEQ command allows command sequences to be stored in memory 
for repeated execution. After giving the command SEQ, than 
commands may be typed using spaces, commas, and alt modes 
as delimiters. Either a carriage return or a semicolon 
must be given after the last command to end the sequence. 
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The sequence remains in core until another SEQ command, 

RSEQ command, or a GSEQ command is given. 

A total of 186 characters may be in one sequence. 
The number of characters currently in the buffer can be 
displayed using the function box variable number 12. Over- 
flow of the buffer will cause back slashes to be printed 
for each character overflowing the buffer. 

Example of SEQ command follows. The means 
carriage return and the ) means an altmode. 

SEQ j) 

INDEX RDSLOT 3 W 67,77 AREA) 

RSEQ,) 

8.1.66 LSEQ 

Lists the command sequence presently in memory. 

8.1.67 ESEQ 

Executes the. command presently in memory. 

8.1.68 PSEQ 

Punches the command string out in binary format on 
paper tape. 

8.1.69 RSEQ 

Reads the next command string from the paper tape 
reader and starts execution of the sequence. This command 
can be used to link sequences together by putting a RSEQ 
command as the last command in a sequence. 

8.1,7° GSEQ 

Reads the next command string from the paper tape 
reader and starts listing the sequence. 


Common Registers 
8.1.71 Rl;ot 

Constant Rl is loaded with the value a where a is 
equal to one of the following: 

A Gross area of data being displayed. 

N Net area of data being displayed. 
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B ® ata point in singles or plane mode marked 

, ° r da *' a point in CONTUR mode marked 

by VER and HOR. 

T Elapsed live time of hide mode data. 

E Experiment ID of hide mode data. 

W Weight value of experiment in hide buffers. 

C Concentration value of experiment in hide 
buffers. 

Ixxx Integer number xxx entered immediately 
following I, J 

Rxx Value of common register xx. 

8. 1 . 72 R2 :a 


Loads the constant R2 with the value of a as 
indicated in 8.1.71. as 

8.1.73 RG;Y a 


Loads the constant 
value a where a is defined 


Y (Y=l through 268) with the 
as it is in 8.1.71. 


Teletype Control 

8.1.74 PONOFF 


Turns teletype print out on and off in a flio-floD 

fashxon,- i.e first time turns off print out, the next * 
time turns it on, etc. 


Mis cellaneous 
8.1.75 ADC;X 

Sets a flag which tells the ADC’s whether to shut 
down or not whenever I/O is in process with DEC tape, disk 
or mag tape. X is Y for yes shutdown ADC and X is V for * 
do & ut d own the ADC. 

_ . . Sometimes the DEC tape and the mag tape have thrown 

noise into the acquisition. For this reason, it is nice to 
be able to shut down the ADC’s when running DEC tape and/or 
mag tape when noise problems exist. 
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8.1.76 L 


Old data tapes of years past have descriptive 
information about the experiment stored with the data. 

This command prints that information. 

8.1.77 DEBUG 

This is a resident debugging routine. Locations may 
be examined and modified. Break points may be inserted and 
deleted and execution can be started at any point. When an 
address is specified or its contents modified* only the last 
six digits are used. All digits typed must be octal. 

xxxxxxN open location xxxxxx. 

U open preceding* location. 

xxxxxxL change contents of open location to xxxxxx. The 
next location is then opened for examination. 

Space bar hitting the space bar opens the succeeding location. 

xxxxxxB insert a breakpoint at location xxxxx. Breakpoints 
can only be one deep. 

R restore last breakpoint. 

xxxxxxG start execution at location xxxxxx. 

Carriage leave DEBUG and return to RALPH OS. 

Return 


8.1.78 EXIT 


Types out a message to confirm that the user truly 
wants to exit from RALPH. The user types Y or N. If N is 
typed, RALPH continues in execution. If Y is typed, a 
small bootstrap is read into core from blocks 0 and 1 of 
the systems tape. See Appendix B on loading procedures. 


Extension to Seek 

8.1.79 EXTEND - 8.5 

Reads in the Extend overlay. This is the only 
overlay which can be read directly into the seek mode* 
It should only be used in seek mode . 


Hide Mode 


8.2 HIDE 


Activates all of the data reduction buffers and constants 
for access by all subsequent commands. The HIDE command 
eactivates any overlay. Deactivation of an overly means that 
the commands within the overlay are not accessible until the 
overlay is called again. All overlays except EXTEND give an 
automatic HIDE command when read in from DEC tape if RALPH is 
presently in seek mode. 

8.2.1 ERASE - 8.1.1 


. „ . ^ ases F > M . and SUM singles data and coincidence 
data buffers of the hide mode. Data on the disk and in the 
seek buffers are not disturbed. 

8,2,2 GET ; tF*X - 8.3.5 


The F in this command can be Y, Y/Z (Y and Z are 
integers), or left out. If F is left out, R1/R2 is assumed 
wnere Rl and R2 are common registers. 


The index is searched for the experiment ID X. Then 
as the data are read in they are multiplied by F(Y,Y/Z or 
R1/R2) and added to or subtracted from the data in core. 

If F equals 1 and the + sign was indicated, the counts’?* 

fc rf e ®» and scale * s are also added. Any resultant data point 
which is negative is set to 0. 


8.2.3 RDSLOT : ±F*X - 8.3.6 


The F can be a value Y,Y/Z (Y and Z are integers), 
left out. If F is left out, the value R1/R2 is used where 
Rl and R2 are common registers. 


or 


X is a slot number. The data from the slot X are 
read in and multiplied by F(Y,Y/Z or R1/R2) and added to or 
subtracted from the data in core . If F equals 1 and the 
+ sign was indicated, the counts, times, and scalers are 
also added. Any resultant data point which is negative is 
set to 0. See 7.1 for definition of a slot. 

8.3 STRIP 


Strip is a resident overlay within HIDE. The STRIP command 
puts RALPH into HIDE mode and changes display of singles spectra 
to display 0 y-value in the middle of the screen allowing both 
v and - numbers to be displayed. The STRIP mode is used for 
data analysis. Subsequent DEC tape commands can be given to 
strip one spectrum from another.' Stripping is done in 3-word 
floating point using a scratch tape or disk. Stripping is used 


P 

& 


vr «r 

•i 
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to find the ratio of one spectrum to another. When stripping 
more than one standard (known) spectrum from a composite (unknown) 
spectrum, the user should start at the high energy end and work 
toward the low energy end of the spectrum. 

8.3.1 DISK - 8.1.56 

Specifies disk scratch area to be used for the strip. 

8. 3.2 TAPE - 8.1.57 

Specifies DEC tape unit #5 to be used for the strip. 

8.3.3 INIT - 8.1.58 

Zeroes the scratch area specified by the TAPE or 
DISK command. The scratch area is 151 four-hundred word 
blocks long. This command can be given even though the 
program may not be in the STRIP mode, 

8.3.4 I,LIM;X 

Set the residual channel limit to X. When stripping 
with the following two commands (8,3.5 and 8.3.6), any 
channel less than or equal to X will be included in the 
strip; however, these channels will not be used for the 
residual calculation. Sometimes overflow occurs in the 
first few channels during acquisition. These channels 
can be omitted from the strip with the LLIM command, 

8.3.5 GET ; iF*X - 8.2.2 

This command operates the same as the command in 
Section 8.2.2 except for the following differences. The 
data of experiment X are multiplied by F and then added to 
or subtracted from the data on the scratch unit in floating 
point. The floating point results are written on the 
scratch tape. The integer results (positive and negative) 
are placed in core for display purposes. A flag is set if 
overflow occurs. The counts, times, and scalers are never 
summed. 


The scratch unit is specified by the DISK or TAPE 
command, 

8.3.6 RDSLOT ; ±F*X - 8,2.3 

Operates similar to the command in Section 8,2.3 
except for the following differences. The data from slot 
X are multiplied by F and added to or subtracted from the 
data on the scratch unit in floating point. The floating 
point results are written back out on the scratch tape. 

The integer results are placed in core for display purposes. 
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A flag is set if overflow occurs. The counts, times, and 
scalers are never summed. 

8.3.7 RES ~ 8.8.6 

Prints the algebraic sum of the residuals, the sum 
of the absolute value of the residuals, and the sum of the 
square of the residuals fvormed by stripping. These three 
sums are printed for the F, M, SUM, and CONTUR spectra. 

If an overflow was indicated when either the GET or 
RDSLOT (8.3.5 and 8.3,6) command was given, the message 
OVERFLOW is also printed. 

8.4 C5050 


C5050 is a resident overlay within HIDE. It handles 64 x 64 
Y-Y data from a nuclear data 50/50 system. The singles data 
(F, M, and SUM) are only 64 channel spectra. The following 
commands are either unique to the 50/50 mode or have changed 
slightly from their meaning in the hide or seek mode. 

8.4.! S5050 

This is the strip mode within the 50/50 mode and all 
commands from the STRIP section are applicable in S5050. 

See Section 8.3. 

8.4.2 READPT - 8.8.7 

Erases the hide buffers, zeroes the experiment time 
parameters, and then reads in the F, M, and coincidence 
spectra from paper tape. A SUM spectrum is also calculated 
from the coincidence spectra. The coincidence spectrum is 
a 64 x 64 square matrix. The paper tape is output from the 
nuclear data 50/50 system. 

8.4.3 READ8 - 8.8.8 

Does the same as the READPT command (8.4.2) except 
that the data are read directly from the 50/50 system 
through the PDP-8/L to PDP-9 hardwire interface. 

8.4.4 CF;X - 8.5.5 

Display the data formed by a plane through the 
64 x 64 coincidence matrix in which F-X and M« 1-64 . CF 
specifies a vertical plane and means a constant energy 
of F. 
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8.4.5 CM;X - 8.5.6 

Displays the data formed by a plane through the 
64 x 64 coincidence matrix in which M=X and F=l-64 . CM 
specifies a horizontal plane and means a constant energy 
of M. 


8.4.6 CF;X,Y - 8.5.5 

Displays the data formed by the sum of the planes 
through the 64 x 64 coincidence matrix where F=X+...+Y and 
M=1 through 64. That is, add all the planar slices F=X 
through F=Y of the coincidence matrix and display the sum. 

8.4.? CM;X,Y - 8.5.6 

Add all the planar slices where M=X through M=Y of 
the coincidence 64 x 64 matrix and display the sum. F runs 
from 1 to 64. 

8.4.8 CONTUR - 8.1.31 

Displays the 64 x 64 coincidence matrix. See 8.1.31 
for additional information. 


Overlays 
8.5 EXTEND 


Reads in the extend overlay. This overlay is meant to be 
an extension of the seek , mode. 

8.5.1 DMAG 

Outputs the present experiment ID information and 
singles spectra from core in the same manner as the DEC 
command. The 256 x 256 coincidence matrix is then read 
from disk and output. All output is to the peripheral 
specified by the D command. 

Multiple zeroes in the coincidence 256 x 256 matrix 
are packed into one word before they are output. Bit 0 of 
the packed word is set to a 1 to indicate that the word 
contains packed zeroes. Bits 1 through 17 contain the 
number of multiple zeroes there were. This method of 
output conserves considerable space on the I/O device. 

8.5.2 GMAG;X 

Searches the index of the specified device (8.1,47) 
for the experiment ID X. A message is printed if the ID 
is not found. If ID X is found, the ID block and the F, 
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8.6 LIB 


M, and SUM singles spectra are read into core Th-fc ^ 

coincidence mtrifis^afin ^ e 2er °-P^ked 256 x 256 
the disk. S “ 8 5 I f unpacked , and written onto 

127 x 127 folded matrix^* ^ scri P tion of the packing. The 

matrix andXIdTcore ““ fr0m the 256 * *56 

8.5.3 MGSLOT*X 

Reads the ID block and the F M and <?ttm o-j i 
spectra from slot X of the specified unit -ir. sineles 
the BDSLOT command does. The 256 x 256 L^_ Vf‘ e " 3y 
dence matrix is then read unnarkaH . -packed coinci- 
The 127 x 127 folded matrix “P° ked » and written on the disk. 

This command is identical to thf^r pl f ® d in core - 

the index is not searched for an S exCept £hat 

8.5.4 CONjX.Y.DX.DY 

Reads from the disk the portion of the 256 v nr/ 

x ll s - the 

8K If DY are LVUildX £V“ 

The commands CF and CM (8 5 S and « \ a.\ 8 , t0 

' i ““ »* -2. aLLsy-s&r jsls : “ 

8.5.5 CF;X or CF;X.W - 8.4.4, 8.4.6 

the plies P in y the th caffof f C^ d wi y th he *£*? ( ° r the Sunl of 

g tt con c°“‘ 'M^: d 

SS7TV- rrf -WMA 1 

CON c^r } and M=Y t0 DY - Y and DY a - d *fi-d b 7 y the 

8 * 5 * 6 CM;Y or CM;Y.W - 8.4.5, 8.4.7 

Displays the data formed by the plane Cor «,m r>f 

thfro/ 11 the a ase ° f th ^Sh the data spe^fifd bv 

the CON coZ^d’ Th and ! W mU<3t fal1 Within the limits set by 
tne CON command. The plane is defined by M=Y for m-y+ 4 -m 

and F-X to OX where X and DX are specifi^by tt CON + ^d. 


Reads in the library overlay. 

8.6.1 LNEW:X 

on DEC tapfZit T TheZan IV" f ^ “° unted 

ape unit p. The tape is given the reel number X. 
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8.6.2 GET;X - 8.1.54 


Searches the index of the device specified by the D 
command for the experiment ID X. If X if found, the ID 
block of that experiment is read into core. 

8.6 . 3 RDSLOT;X - 8.1.55 

Reads the ID block from' slot X of the specified unit. 

8.6.4 OUTPUT 

Rewrites the ID block onto the data device specified 
by the D command. The ID block is written into the same 
location from which the last GET or EDSLOT command read 
from. 

The ID block is also saved in another buffer in core 
for access by LAST. 

8.6.5 LAST 

Restores the setup information from the last ID block 
that was written out by the OUTPUT command. 

8.6.6 XFER 


Moves all ID blocks from the unit specified by the 
D command to the library tape on DEC tape unit 5. 

8.6.7 LIND 

Print the index of the library tape on unit 5. Gives 
a list of the reel numbers. 

8.6.8 LDEL;X 

Deletes reel X from the library tape index. 

8.6.9 LREN;X,Y 

Renames reel X to reel Y on the library tape. 

Library tape is on DEC tape unit 5. 

8.6.10 GEEEL;X 

Searches the library index for reel X. Then a block 
which contains an index of the ID blocks for reel X is read 
in and printed. 

Each of the individual ID blocks for a particular 
reel number on a library tape may be read with the LGET 
command. 
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8.6.11 LGET;X 


Reads ID block X from the library tape. This 
command must be preceded by a GREEL command/ 


8.7 SEARCH 


Reads in the search overlay i' 
8.7.1 CLEAR 


„ ° le f rs the parameter list. The parameter list contains 
by thl selrch" I “ USt ^ ^ bef ° re a s P ect rum is selected 


8*7.2 GO 

SETUP command!* 6 f ° U0Wln8 tW0 ? uea tions then goes into the 

1) Are hit spectra to be put on DEC tape (Uses unit 5) 

2) Number of DEC tapes to search? 

Loads DEC tape unit 4 onto the disk and searches; 
then loads DEC tape unit 3 onto the disk and 
searches; then back to 4, etc. 

Multiple parameters may be given in the SETUP 
portion using the following terminators. 

: No parameters or criteria desired here. 

. Or of all parameters separated by I , 

Anything between and including the parameters 
separated by the 


& And of all parameters separated by &. 


8.7.3 FMT 


8.8 SING 


Writes a new directory on scratch tape unit 5, 


Reads in the singles overlay. 

8 * 8a m > SUM . EM. and CONTUR 

All of these commands display the F singles data. 
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8.8.2 W;X»Y - 8,1.20 

Display channels X through Y across the full width 
of the screen. 0<X<Y<4095 . When the window size is greater 
than 1024, more than one y-value is displayed per x-value. 
For example, four points would be displayed per X coordinate 
if the window size was 4096. This is because the scope only 
has a maximum of 1024 displayable points across the screen, 

8.8.3 CSING 


Changes the singles overlay to a normal hide mode of 
operation in contrast to a strip mode. This means the 1/0 
commands (GET ;±F*X and RDSL0T ;±F*X) do not use a scratch 
tape. 


8.8,4 SSING 


Puts the singles overlay into a strip mode. The 
display is split with o y-value in the middle of the screen. 
Positive values are displayed in the upper half of the 
screen and negative values in the lower half. 

All commands which are used in STRIP can be used in 
singles strip (SSING) . 

8.8.5 DEC, GET, and RDSLOT 

These commands and their variations function the same 
as they do under HIDE and/or STRIP except that there is only 
one singles spectrum per experiment. The spectrum is 4096 
channels long and. there is no coincidence data. 

8.8.6 RES - 8.3.7 

The algebraic sum, the sum of the absolute value, 
and the sum of the square of the residuals are printed. 

8.8.7 READPT - 8.4.2 

Reads a singles spectrum from paper tape. The tape 
comes from a 50/50 system and can be up to 4096 channels 
long. Channel 0 contains the time in seconds. 

8.8.8 READ8 - 8.4.3 

Reads a singles spectrum through the serial data 
interface from the 50/50 system. The spectrum is the same 
as in the READPT command. (8,8,7) 
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8.8.9 5DTMC 


bv a 3 sing ‘ I ' es s P e ctrum from a paper tape punched 

the time in hradreths^f^nutes? 11 ”' Chaune:L 0 contains 
8.9 PLOT 

thm Che PLOT homed me be .Jm JS Seen ?*.«■"• 
from the acquisition buffers. t0 P^ ot data 

8,9,1 PhOTC ;A.B 

j Defines the plot characters to be used A -fc 

the data and B is for the I. 7 s * A ls for 

effect immediately so that thf command takes 

changed during a plo?. Pl<>t CharaCters ^ be 


B are the 

integers : 

1 for 

□ 

2 for 

IS 

3 for 

o 

4 for 


5 for 

O 

6 for 

® 

7 for 


8 for 


9 for 

* 

10 for 

J3U 

nP 

11 for 

~h 


8.9.2 TOPM;MBSS 

top of STpIot. 12 CharaCter me8Sa8e t0 be P lotted * the 


< 
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8 . 9 . .3 BOTM;MESS 


Inputs a 12 character message to be plotted at the 
bottom of the plot. 

8.9.4 PLOT 

Advances the paper 12 inches, plots an x and y axis 
with labeled tick marks, plots the top and bottom messages, 
and then plots the singles data which is presently being 
displayed. 

8.9.5 PORG 


Moves the pen back to the origin of the plot (o,o). 
This command is useful and necessary when overlaying plots. 

8.9.6P PLT 

Fixes the origin (o,o) at the present location of 
the pen. Plots the data presently being displayed. 

8. 9 . 7 SEX;N 

Stretch and expand x-axis. This command is used to 
expand a plot by the multiple N. 

8.10 FOCAL 

Reads in the FOCAL overlay. Most of the commands are the 
same as described in the DEC literature. The command differences 
and additions are listed here. 

8.10.1 FREG(X) 


Fetches one. of the 268 common floating point 
registers which are in location 16600-17630. 

8.10.2 FPREG(X) 


Is a reversed function. For example, S A=FPREG(4) 
means that the common register 4 will be replaced by A. 

The equation operates backwards. 

8.10.3 FDIS(X) 

Fetches the contents of channel X from the currently 
displayed data. 

8.10.4 FPDIS(X) 

Replaces the data in channel X of the currently 
displayed data in the same way FPREG changes registers. 

FPDIS is a reversed function. 
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8.10.5 L 0 (NAME) 

Prepares FOCAL to write a program with the specified 
name onto an I/O device. The I/O device is specified by the 
"D" command in RALPH. If no name is given, paper tape 
output is assumed. 

8.10.6 L W (A) (X.XX) 

* ■ H II ■»— I I ■ • >1 

Writes out all or a par-ticular part of a program to 
the file specified by the L 0 command. 

i 

8.10.7 L C 

Closes the output file and enters the name into the 
index of the particular device. 

8. 10.8 L K or T 

Kills the output. 

8.10.9 L L 

Lists the index of the I/O device being used. 

8. 10. 10 L D NAME 

Deletes program "NAME” from the index, 

8.1.0. 11 L I (NAME) 

Reads in the program called "NAME" from the I/O 
device. If no name was specified, the paper tape reader 
is used. 

8.10.12 L S 

Reads in a sequence tape from paper tape. 

8.10.13 L P 

Punches the present program out as a sequence tape. 

8.10.14 Q 0 NAME 

Opens a data file for output and operates much 
like the L 0 NAME command, A name must be specified, 

8.10.15 0 C 

Closes the data output file. 
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8.10.16 0 I NAME 

Opens a data file for input, 

8.10.17 0 K 

Kills data output. 

8.10.18 * and : 

The is still used to flip-flop data input 

between^ the TTY and some other device. The V has been 
added to flip-flop data output between the TTY and some 
other device. The other device is the high speed paper 
tape reader/punch unless the 0 0 NAME or 0 I NAME command 
is given. If one of these commands is given, the device 
specified by the "D" command is used. 

8.10.19 FOCALG 

Given in RALPH, this command causes entrance to 
FOCAL and causes FOCAL to automatically read the program 
"BOOT" from the I/O device. The user could set up a 
common register to specify which program he wanted. Then 
BOOT" could look at the register and call the appropriate 
program. "BOOT" must be written and stored by the user 
before execution of this command. 

8, H INVERT 

Reads in the INVERT overlay. 

8.11.1 MATRIX ;X 

The scratch unit (DISK or TAPE) is divided into 
13 logical slots numbered 0 through 12. Slot 0 is used for 
a composite spectrum and slots 1 through 12 for componite 
spectra. 


The MATRIX command changes the data being displayed 
to floating point and writes it into slot X. 

8. H.2 INVERT ;N 

Performs a non-linear least squares regression 
analysis of the spectra in slots 1 through N to the 
composite spectrum in slot 0. 

The regression coefficients are stored in "common'' 
registers 3 through 3+(N-l) . The corresponding standard 
deviations are stored in "common" registers 15 through 
15+ (N-l) . B 


The residuals are stored in the F singles hide 
buffer for display. 
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8.11.3 


G3HIFT ; ±± 


ESriFTM S The ft gaJn e shi?f tl g^eT™ 

{ d/ 311(1 t fJ e 2er ° is given by R3/R4. Rl R2 R 3 

££ s o^issr- “ d “■ i * *“*- J 

.. ... T ^ e first sign (±) determines the sign of the eain 
the zero shift!^ SeC ° nd **** (±> determines the of 

8,12 

Reads in the DEC tape formatter. Once this overlav i«? in 
formatter^ aCtlVe ’ ^ F0 ® ttT command s «rts the 

„< f . Th ® questions and directions which the formatter types are 
-explanatory. Setting AC switch register Bit 0 to 1 omit. 


Panel Control 
8. 13 READ OUT 


This section includes the first two switches and the f-fi-at- 
six buttons on the panel. The user may select w . 

items to be output and the deyice to output to. See 

8.13.1 Device Select 

TnM This switch selects the output device. If either 

be selected DEC ^ ap ® is selected, the item ALL DATA must 
be selected on the Data Select switch. These two positions 
correspond to the DEC command (8,1.53), 

8.13.2 Data Select 


This switch selects the output data. If ALL DATA 

tap* must be selected under 

teletvnf ™ a s " ltch Positions and their corresponding 
teletype command are listed below. v 8 


Switch Postion 
ALL DATA 
EXPERIMENT ID 


Command 

DEC 8.1,53 

EXPID 8.1,6 


LIST 


LIST 


8.1.17 


Switch Position 

Command 


COUNTS 

COUNTS 

8.1.14 

SCALERS 

SCALERS 

8.1.15 

TIMES 

TIMES 

8.1.16 

UPSET 

UPSET 

8.1.13 


8.13.3 IBM Mae; Tape Control 

EOF does a MTEQF command (8.1,62). 

8.13.4 Read Out Control 


D bu 5 t ^ ns initiate the output selected by the 
i Data Select switch. The CLEAR button 

pushed firat then the START button. If the switches 
are set wrong or the buttons are pressed in the wrono order 
the ERROR INDICATOR light comes on. 8 der * 


8.13.5 Store Coinc Events on Tape 


datfl butt ° ns determine whether the coincidence 

whether it T ma g ne ^ ic ta P e during acquisition or 

indicator n ?ii ? stored * The C0INC TAPE storage 

NDICATOR light will be on when this option is selected. 

8. 14 EXPERIMENT CONTROL 

buttonf eigSrth^ughtete? 116 ^ SWlt0heS » d 


8 • • 1 Interval Between Dumps 


TNTFrvat TblS ^f Wi ™ corres P on ds to the parameter DUMP 
INTERVAL in the SETUP command. If an interval is qnpHf-ifl/i 
the SINGLES DUMP INDICATOR light is lit. P fied » 

8.14,2 Live Time 


( 8 . 1 . 8 ) 


This switch corresponds to the LIVERS 


command 


8.14.3 Erase All Data 


fl _i o 9 ^ ese but 5 oas corres pond to the ERASE command (8.1.1 

\ EMSE ENABLE raust be P»«sed before the 
be^lit d RESET butt ° ns or the ERR0R INDICATOR light will 
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8,14,4 Analyze 


These buttons correspond to the STAR and STP 
(8,1,11 and 8,1,12) commands. If RALPH is in seek mode, a 
message will be printed indicating if acquisition is on or 
off whenever one of the buttons is pushed. The ANALYZE 
INDICATOR light is on if acquisition is in process. 

8.15 display CONTROL 

This section includes switches 5 through 8 and buttons 14 
through 24, 


8.15.1 Motion Select 


This switch selects the item to be set in motion 
by the DISPLAY MOTION buttons. 

SPECTRUM position allows the displayed singles 
spectrum to be moved left or right. 

The SV or VER position allows the vertical marker 
in singles or coincidence respectively to be moved left 
or right. 

The SH or HQR position selects the horizontal 
marker in singles or coincidence to be moved up or down 
on the screen. 

The Zo position selects the z-plane through the 
coincidence data to move up or down on the z-axis. 

8.15,2 Data Select 


This switch selects the data to be displayed and 
buttons 14 through 18 specify certain functions which can 
be performed on the displayed data. 

Two of the switch selections do not have a corre- 
sponding teletype command. They are PLANE /F and OFF. 

PLANE/F is an overlapping display of the plane and 
the F spectra. 

The OFF position disables the display so that there 
is no data displayed. 

A list of the switch positions and buttons under 
Data Select is given below. 


h, 
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£ 


PANEL 


TELETYPE 


CONTUR 

F 

M 

F/M 

PLANE 

PLANE/F 

OFF 

INITIALIZE Button 
SPREAD Button 
INIT Button 
RESET Zo Button 
RAISE Button 


CONTUR 

8.1.31 

F 

8.1.24 

M 

8.1.25 

FM 

8.1.27 

CM or CF 
NONE 
NONE 

8.1.29, 8.4.4, 8.4.5 

S (Given 
S 

8 times) 8.1.28 

CINIT 

8.1.32 

ZZERO 

8.1.33 

R 

8.1.36 


8.15.3 Display Zeroes 

Operates the same as the teletype command ZZ. 

8.15.4 Display Motion 

This section defines the last five buttons on the 
panel. These buttons are associated directly with the 
Motion Select switch. 

8.15.4.1 LEFT 


Depression of the LEFT button will cause 
the data or marker on the screen to move from right 
to left or down in the case of a horizontal marker 
or Zo. 

8.15.4.2 RIGHT 


Moves the data or marker on the screen 
from left to right or up in the case of a horizontal 
marker or Zo. 

8.15.4.3 CONTINUOUS-INCREMENTAL 


Flip-flops between a continuous and an 
incremental movement of .the data or markers. 
Depression o.f the LEFT or RIGHT button moves the 
data or particular marker one channel if incre- 
mental mode, but movement continues until stopped 
if in continuous mode. 

8.15.4.4 INITIALIZE 


Sets channel 0 as the left most displayed 
channel and removes all markers • 
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8*15.5 Numeric Display 

middle ro^of^^cLfon^rp^el 138 ^ 0 ®f5 Ches ln the 
and corresponding teletype 


PANEL 

% LIVE TIME 
LIVE TIME LEFT 
BRIGHT DOT CHANNEL 

bright dot contents 
experiment id 

DUMP SLOT 

memory display 
memory change 

A 
B 

c 

D 

OFF 

# of (COINCIDENCE 
EVENTS J SINGLES F 
(SINGLES M 


SCALERS 


TELETYPE 

NG;0 or TIMES 
NG;7 or TIMES 
NG;6 
NG;5 

NG;4 or EXPID 
NG;3 

NG; 1 or DEBUG 
NG;2 or DEBUG 
NG;8 


8.1.39 


NG;15 
NG; 14 
NG; 13 
NG; 12 


or SCALER 


COUNTS 8.1.14 


8,16 HQRIZQ NT AL and VERTICAL CONTROL 

These functions ^control “the IZTSLu ^ «***". 

singles data.. ^ axis and pertain only to 

8.16.1 LOG-LINEAR 

The teletyprfo^teroLts SPlay ^ etWeen log and llnear ™de. 

P rparts are the commands LOG and LINEAR. 

8.16.2 NUMBER OF CHANNELS 


specifies particular windows for disnlav q 00 ^ 
teletype command W (8.1.20). ^ See t * le 

16,3 LINEAR COUNTS FULL SCALE 

of counts full S S cale^ ay The AC^witches 815 ! 01 ^ 68 ^ ma " ber 
full scale ( 8 , 1 , 19 ), 8 a ^’ so se ^ t-h® counts 

8*16.4 NUMBER OF DECADES 


Changes display 
decades to be displayed, 
counterpart. 


to log mode and specifies 1 to 
This switch has no teletype 


6 
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CORtC ENABLED 


ERROR INDICATOR 


CQ1NC TAPE 
STORAGE INDICATOR 


SINGLES DUMP 
INDICATOR 


ANALYZE INDICATOR 


APW.W69 PANEL OVERLAY 


■READ OUT- 


HG 


■M TAPE 
DK TAPE 


DEVICE SELECT 


Tanrre 

PARI PINCH 


COMMENT 

COUNTS 

SCALERS 

TIMES 

PANEL STATUS 


DATA S&ECT 


9 


IBM MAGNETIC TAPE CONTROL 

O a 


O 

REWIND AND UNLOAD 


READ OUT CONTROL 


-EXPERIMENT CONTROL- 


NO DUMPS 
50 


INTERVAL BETWEEN 
SINGLE SPECTRA DUMPS 


n 

5 MINUTES 


H 

HOURS 

n 

5 MINUT 

■ J 


LIVE TIME 


© 


STGnc CuiNC even >5 UN TAPE 

O O 

ON Off 


ERASE ALL DATA 


o 

ERASE ENABLE 


O 

ERASE AND RESET 


DATA DISPLAY MODES 


-DISPLAY C0NTR0L- 


ANALYZE 


o 

ON 


Km 


e 

LO&LMAJI 




f/M 

SUM 

PtANE 

-“PtAN£/S*&E 

CONTOUR 

Off 


X LIVE TIME 
LIVE TIME LEFT 
BRIGHT DOT CHANNEL 
bright DOT COUNTS 


NUMERIC DISPLAY 


£ 


i 


OFF 

COINCIDENCE 
SSaES f NUMBER Of IWfJS 
SINGLES N 


1 

NUMBf 

SM j 


experiment id 

COINCIDENCE * 

SINGLES REJECT EVENTS 
ERROR 


1 

J 


2561 

6« 


M 
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NUMBER OF CHANNES 

O 


HORIZONTAL AND VERTICAL CONTROLS 

LINEAR COUNTS FULL SCALE 

o 




DISPLAY MOTION 



o 

ROTATE LEFT 

ini c 

o 

ROTATE STOP 

9 

ROTATE ftSHT 

O 

ROTATE Hsrsuiw 

9 

initialize rotate 


NUMBER OF DECADES OISPLAYEO 


BASE LINE DECADE 

o 


258 

M 

32 


Figure 1 - Panel Overlay 



8.16.5 BASE LINE DECADE 


Sets the display to log mode and sets the base line 
°f the display to a certain decade. Any data values less 
than the base line decade are not shown. This switch has 
no teletype counterpart. 

8.17 FUNCTION BOX 


The function box consists of 12 keys which interrupt jhe 
computer processor when depressed. The numberic input capability 
of the function box together with the panel functions allow 
experiments to be conducted without the use of the teletype. The 
box can also be used to control some of the display functions. 

8 a 17.1 Numeric Input 

Figure 2 shows the key labeling on the box. The 
numeric keys are used to input digits, the key is used 

to delimit numbers, and the "+" key is used to initialize 
the box. 


FUNCTION BOX 


1 

2 

3 

4 

5 

6 

7 

8 

9 

- 

0 

+ 


Figure 2 
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The variables which can be viewed and/or changed are 
identified by a number according to the following table: 


VARIABLE CORRESPONDING 


NUMBER 

VARIABLE 

TTY COMMAND 

1 

Experiment Identification 

EXPID 

2 

First Channel in Window 

W,X,Y 

3 

Number of Channels in Window 

W,X,Y 

4 

Z-Zero Motion Increment 

None 

5 

Horizontal Marker Motion Increment 

None 

6 

Z-Zero Value 

ZZEROjX 

7 

Z-Zero Raise Increment 

RINC;X 

8 

Contour Slice Thickness 

DELTZjX 

9 

Horizontal Marker Value 

SH;X 

10 

Limit on Number of Records in Coinc Event Dump 

None 

11 

Current Number of Magnetic Records in Coinc 
Event Dump 

None 

12 

Number of Characters in TTY Buffer 
One SEQ; command will take a maximum of 
186 characters 

None 


FUNCTION BOX VARIABLES 



The n ~ n key is used to start numeric input as well as delimit the 
numbers. When the key is first depressed, the current Variable 
Number is displayed on the scope. The Variable Number may be changed 
by depressing the desired numeric keys followed by another n - n key, or 
the Variable Number may be left unchanged by depressing only the 
key. In either case, the second n - n key will cause the program to 
display the value of the indicated variable. The value may be changed 
by depressing the desired numeric keys followed by another key or 
the value may be left unchanged by depressing only the key. In 
either case, the third key will terminate the numeric input. The 
following table illustrates the various possibilities: 
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Action 


Key 

Sequence 
-1-33- 
— 44- 

- 2 — 
— 2 — 6 — 
- 2 - 74 - 


Re suiting Resulting 

Variable Number Variable Value 


1 33 Change experiment ID to 33 

1 44 Change experiment ID to 44 

1 

2 

2 

window to 6 


44 

No change 


No change 

Value of first channel in 
window will appear on scope. 


Change first channel in 


2 


6 


+ key clears previous 
sequence 


8.17.2 Function Box Display Control 


The numeric keys on the box control various display 
functions whenever they are used outside of a numeric input 
sequence. The following box diagrams indicate the key 
assignments . The first diagram applies if in SINGLE display 
mode and the second applied if in CONTOUR mode. 
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MOVE LEFT 
or 

MOVE DOWN 


INCREASE 

SPEED 


MOVE RIGHT 


MOVE UP 


SET MOTION TO 
CONTINUOUS 


SET MOTION TO 
INCREMENTAL 


DISPLAY CONTENT 
OF CHANNEL INDICATED 
BY VERTICAL MARKER 


8 


SETUP VERTICAL 
MARKER FOR 
MOVEMENT 


SETUP HORIZONTAL 
MARKER FOR 
MOVEMENT 


SETUP SPECTRUM 
FOR MOVEMENT 




None 


INTITALIZE VERTICAL 
MARKER p HORIZONTAL 
MARKER, OR SPECTRUM 
DEPENDING ON LAST 
DEPRESSION OF 7, 8, 
or 9, RESPECTIVELY 


INITIALIZE BOX 


FUNCTION BOX SINGLE MODE DISPLAY CONTROL 


Figure 3 


59 




I 

3 


MOVE LEFT 


MOVE DOW 


INCREASE 

SPEED 


MOVE RIGHT 


MOVE UP 


_il 


SET MOTION 
TO 

CONTINUOUS 


SET MOTION 
TO 

INCREMENTAL 


DISPLAY CONTENT OF 
CHANNEL IN THE 
COINCIDENCE MATRIX 
INDICATED BY INTER- 
SECTION OF VERTICAL 
AND HORIZONTAL MARKERS 


8 




SETUP VERTICAL 
(CONTOUR) MARKER 
FOR MOVEMENT 


SETUP HORIZONTAL 
(CONTOUR) MARKER 
FOR MOVEMENT 


SETUP ZZERO 
FOR MOVEMENT 



INITIALIZE VERTICAL 
MARKER, HORIZONTAL 
MARKER, OR ZZERO 
DEPENDING ON LAST 
DEPRESSION OF 7, 8 
or 9, RESPECTIVELY 


initialize 

BOX 



FUNCTION BOX CONTOUR MODE DISPLAY CONTROL 


Figure 4 
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APPENDIX A 


256 K Words 
234K 


90.25K 

64K 


OK Words 



256K Word Disk Usage Map 




GENERAL OVERLOOK 


RESIDENT OPTIONS 


OVERLAYS 


DATA 


Buffer area for 
data, teletype, 
etc. 


Overlay area 


System Bootstrap 
Common Registers 


RALPH 


M X X X X 

M M w H W 

W W P£! P£j & 

H H H H B 


n r^» 

CM CM CM VO VD 


X K « X X 
i"' r — 

CM N CM vO VO 


Q Q Q 
WWW 

WWW 

ppp 

WWW 


W 


w 

CO 


o 


.woo 
W w w to to 

W P 04 o o 

w h h in m 

w 33 w u co 



§ 


•H 

u 



4J 


■U 

a 


cd 

a) 


s 

a cd 


r-. 

(0 4 J 

cd 


CM 

CO T 3 


rH 

05 



H c« 
00 



G * 

rG 


•ri 00 

o 

CM 

CO o 

•M 

r-< 

U 

cd 


H Pm 

M 

U 

a) 

o 

o 

G M 

CO 

cd 

C a) 
cd co 

■P 

rC S 


cd 

o 


*a 

a 

vo ^ 
a> u 

) 

o 

o o 


CJ 

pm 



T3 

g 

B3 O 
O W 


T3 O 

c5 O 8 j 

g S o « S 0 § 

UUMwSh 


w o.h, w -3 w 
Hgqw<!3p 
H W H W O S 
W CO Ph W W W M 


MEMORY MAP 


FORMAT FORMATTER 







STORAGE ALLOCATION 


00000-16577 

16600-17630 

17637-17777 

20000-27777 

30000-30377 

30400-30777 

31000-31077 

31100-31177 

31200-32577 

32600-33177 

33200-33377 

33400-34377 

34400-34477 

34500-34517 

34520-34537 

34540-34557 

34560-34577 

34600-34777 

35000-35377 

35400-35777 

36000-36377 

36400-37777 

37000-37377 

37400-37777 

40000-40077 

40100-57777 


RALPH OS 

Common Registers 
System Bootstrap 
Overlay area 

Scalers, counters, timers (ID block) 

HIDE Scalers, counters, timers 
SEQ butter 

COINC events to be written to disk 
Scratch area 
Directory buffer 

128 channel buffer for overlap display 

2 IBM tape buffers 

Teletype input buffer 

F data list #1 

M data list #1 

F data list #2 

M data list #2 

Plane display buffer 

SUM spectrum 

Sum spec, for data reduction (i.e. HIDE, STRIP, etc.) 
M singles data 

M spec, for data reduction (i.e. HIDE, STRIP, etc,) 

F singles data 

F spec, for data reduction (i.e., HIDE, STRIP, etc.) 
Comment area 
Coincidence matrix 


Auto Index register usage: 


10 

teletype 

11 

display 

14,15 

SEQ 

17 

interrupt save and restore 



ID BLOCK VARIABLES 


mu followin 8 items are found in the ID block of each exner-impnf 

The addresses listed are for the ID block in SEEK mode. Add 400 * to each 
address to get the address of the variable for HIDE mode. 


EXPIDH=27777 

EXPID =30000 

LIVEHI* 30001 

LI VEL0* 30002 

REALL0=30003 

RE ALL0= 30004 

SCALRA= 30005 

LOSCLA=30006 

SCALRB* 30007 

LOCSLB=30010 

SCALRC=30011 

LOSCLC=30012 

SCALED* 300 13 

LOSCLD=30014 

FSINHI=30015 

FSINL0=30016 

MSIKHI=30017 

MSINLO=30020 

CSCLHI* 30021 

CSCLL0=30022 

SREJHI=30023 

S RE JL0= 30024 

CREJHI= 30025 

CREJLO=30026 

EREJHI=30027 

ERE JLO* 30030 

REALTM* 30031 

LIVETM=30032 

LIVECL=30033 

LIVEPS=30034 

LIVEPT=30035 

LIVEPH=30036 

EXPIDF* 30037 

DECNM *30040 

STAXIM*30041 

ST0TIM-30042 

WEIGHT-30043 

GAIN *30044 

PTFG *30045 

IM *30047 

OM *30051 

Cm *30053 

MTFG *30055 


High order experiment ID (dummy) 
Experiment ID # 

Integer portion of live time 

Fractional portion of live time 

Integer portion of real time 

Fractional portion of real time 

High bits scaler A 

Low bits scaler A 

High bits scaler B 

Low bits scaler B 

High bits scaler C 

Low bits scaler C 

High bits scaler D 

Low bits scaler D 

High bits total F counts 

Low bits total F counts 

High bits total M counts 

Low bits total M counts 

High bits total coincidence counts 

Low bits total coincidence counts 

High bits singles rejects 

Low bits singles rejects 

High bits coincidence rejects 

Low bits coincidence rejects 

High bits error rejects 

Low bits error rejects 

Real time minutes 

Live time minutes 

Live time counter 

Live time interval 

// minutes to next dump 

Intermediate hold for live time 

High part of experiment D 

Data reel // 

Start time history 
Stop time history 
Weight 
Gain 

Paper tape history 
Intermantel history 
Outermantel history 
Coincidence to mag flag 
Mag dump flag 





DDPI » 30057 
SALA * 30060 
SAMA **30101 
SAIA *30122 
SAGA *30143 
TOPS *30164 
30TS *30205 
CONCEN* 30226 


Data dump interval 

Lunar 

Mete 

Isotope 

General 

Top spacing 

Bottom spacing 

Concentration 


A-5 



APPENDIX B 


LOADING PROCEDURE 

1. Mount RALPH OS system DEC tape on unit 0 (8) with "REMOTE" enables 
and "WRITE-LOCK". 

2. Set AC switches to 17637. Push "I/O RESET" and "READIN". Read in 
RALPH Dec tape system bootstrap. The RALPH system bootstrap is a 
slightly modified version of the KM9 system bootstrap. 

3. A small loading program is read from block 0 and types out: 

LRL PROGRAMS 19- 
TYPE PG NAME: 

The user responds by typing the desired program name followed by a 
semicolon . To load RALPH type RALPH;. 

Programs available are: 

RALPH RALPH OS 

FOCAL Stand alone 16K FOCAL - runs under KM9 system. 

COPY DEC tape copy routine - copies from unit 1 to unit 2. 

STRIP 16K stand alone version - operates about the same as 

the STRIP option in RALPH. 

PUNCH Operates under KM9 system. Changes 5050 paper tapes 

to ASCII to be compatible with card punch. Can also 
be used for TMC or ND 2200 or for A&M 1600 channel TMC. 

COINC 16K acquisition program. 

COINCM 16K acquisition program using new ADC interface. 

PANTES Stand alone panel diagnostic. One interrogation cycle 

of the rotary switches is made. Then each time a switch 
is turned or a button is pushed, the panel status is 
printed. To continue automatic interrogation of switches 
set bit 0 of AC switches up. 

5050 16K program. Operates similar to C505Q option in RALPH. 

FORMAT DEC*s DEC tape formatter. 



SING 


16K singles acquisition program. 

16K library program similar to LIB overlay in RALPH. 


LIB 


Program is read in and started. EXIT command returns control to 
step 3. 



APPENDIX C 


Mode Control 


SEEK 8.1 

HIDE 8.2 


Acquisition Setup 


ERASE 

8.1.1, 

8.2.1 

I SETUP 

8.1.2 


SETUP 

8.1.3 


SETU 

8.1.4 


SET 

8.1.5 


EXPID 

8.1.6 


SPACE 

8.1.7 


LIVERS 

8.1.8 


START ;X 

8.1.9 


STOP ;X 

8.1.10 


STAR 

8.1.11 


STP 

8.1.12 


UPSET 

8.1.13 


Experiment Parameters 

COUNTS 

8.1.14 


SCALER 

8.1.15 


TIMES 

8.1.16 


LIST 

8.1.17 


Display Singles Data 

LOG 

8.1.18, 

8.16 

LINEAR 

8.1.19 


W;X,Y 

8.1.20, 

8.8. 

SV;X 

8.1.21 


SH;X 

8.1.22 


ZZ 

8.1.23, 

8.15 

F 

8.1.24 


M 

8,1.25 


SUM 

8.1.26 


FM 

8.1.27 


S 

8.1.28 


Display Plane 

CS;X 

8.1.29 


CS;X,Y 

8,1.30 


CF;X 

8 « 4 • A | 

8.5.5 

CM;X 

8.4.5, 

8.5.6 

CF;X,Y 

8.4.6, 

8.5.5 

CM;X Y 

8.4.7, 

8.5.6 


C-l 


Display Coincidence 


CONTUR 

8,1.31 

CINXT 

8.1.32 

ZZEROjX 

8.1.33 

DELTZjX 

8.1.34 

RINC;X 

8.1.35 

R 

8.1.36 

HOR;X 

8.1.37 

VER;X 

8.1.38 

CON ;X,Y,DX,DY 

8.5.4 

Number Generator 


NG;X 

8.1.39 

Calculations 


AREA 

8.1.40 

F40JX 

8.1.41 

M40;X 

8.1.42 

P40 

8.1.43 

BF;X 

8.1.44 

BM;X 

8,1.45 

F/M 

8.1.46 

Input/Output 


D;X 

8.1.47 

NEWDIRjX 

8.1.48 

INDEX 

8.1.49 

IND 

8.1.50 

DELETE ;X 

8.1.51 

RENAME ;X,Y 

8.1.52 

DEC 

8.1.53, 8.8.5 

GET;X 

8.1.54, 8.6.2 

RDSLOT ;X 

8.1.55, 8.6.3 

GET ; ±F*X 

8.2.2, 8.3.5 

RDSLOT ;±F*X 

8,2.3 

DISK 

8.1.56 

TAPE 

8.1.57 

INIT 

8.1.58 

COPY 

8.1.59 

COPYS 

8.1.60 

MTNOP 

8.1.61 

MIEOF 

8.1.62 

PRINT 

8.1.63 

PUNCH 

8.1.64 

READPT 

8.4.2, 8.8,7 

READ 8 

8.4.3, 8.8.8 

RDTMC 

8.8.9 

DMAG 

8.5.1 

GMAG;X 

8.5.2 

MGSLOT;X 

8.5.3 


C-2 



Library I/O 


LNEWjX 

OUTPUT 

LAST 

XFER 

LIND 

LDEL;X 

LREN;X,Y 

GREEL;X 

LGET;X 


Search I/O 


CLEAR 

GO 

FMT 


8 . 6.1 

8.6.4 

8.6.5 

8 . 6.6 

8.6.7 

8 . 6.8 

8.6.9 

8.6.10 
8.6.11 


8.7.1 

8.7.2 

8.7.3 


Plot Output 


PLOTC;A,B 

TOPM;MESS 

BOTMjMESS 

PLOT 

PORG 

PLT 

SEX;N 


8.9.1 

8.9.2 

8.9.3 

8.9.4 

8.9.5 

8.9.6 

8.9.7 


Sequences 


SEQ 

LSEQ 

ESEQ 

PSEQ 

RSEQ 

GSEQ 


8.1.65 

8 . 1.66 

8.1.67 

8.1.68 

8.1.69 

8.1.70 


Common Registers 

Rl;a 
R2;a 
RG;Y a 

Teletype Control 
PONOFF 


8.1.71 

8.1.72 

8.1.73 


8.1.74 
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Overlay Calls 


EXTEND 

8.5 C 

STRIP 

8.3 

C5050 

8.4 

S5050 

8.4.1 

LIB 

8.6 

SEARCH 

8.7 

SING 

8.8 

CSING 

8.8.3 

SSING 

8.8.4 

PLOT 

8.9 

FOCAL 

8.10 

INVERT 

8.11 

FORMAT 

8.12 

Focal 


FREG 

8.10.1 

FPREG 

8.10.2 

FDIS 

8.10.3 

FPDIS 

8.10.4 

L 0 NAME 

8.10.5 

L C 

8.10.7 

L K 

8.10.8 

L L 

8.10.9 

L D NAME 

8.10.10 f 

L I NAME 

8.10.11 | 

L S 

8.10.12 

L P 

8.10.13 

0 0 NAME 

8.10.14 

0 C 

8.10.15 

0 I NAME 

8.10.16 

0 K 

8.10.17 

FOCALG 

8.10.19 

Mis cellaneous 


ADC;X 

8.1.75 

L 

8.1.76 

DEBUG 

8.1.77 

EXIT 

8.1.78 

LLIM;X 

8.3.4 

RES ;X 

8.3.7, 8.8.6- 

MATRIX ;X 

8.11.1 

INVERT ;N 

8.11.2 

GSHIFT ; ±± 

8.11.3 


(f 


'4n 
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APPENDIX D 


Block # 

0 

1 


2 

3 


N 

N+l 


Block 0 not used 


* Reel #X 

Experiment ID # 1 

#2 


** Last 17 q locations contain # of blocks/ 
experiment. 


ID block of experiment #1 


The number of blocks used for the spectrum 
or spectra depends on the data format used, 

1) Regulat format - 44a blocks 

2) DMAG format - variable blocks 

3) 50/50 format - 25e blocks 

4) Singles format - 21a blocks 

ID block of experiment #2 
Etc. 


* Entered when NEWDIR command is given. The reel number is used in 
the index of library tapes. 

** Used only for DMAG format. 


DATA FORMAT 


D-l 



Block # 


Block 0 not used. 

Reel ID #1 

#2 


* Index from 
data device 
with reel ID #1 


Experiment ID # 1 

#2 


ID block for experiment ID #1 
ID block for experiment ID #2 
Etc, 


Index from data 
device with reel 
ID #M 


Experiment ID # 1 



ID block for experiment ID #1 


Etc. 



* See diagram of the DATA FORMAT 


LIBRARY FORMAT 


T 


Each block 
400q words 


EOF 


First block of coincidence data 


word format 




oxxxxxmo xoxxxxx 

8 bits 8 bits 
v _ J 

F event M event 


One computer word 


Second block of coincidence data 


Nth block of coincidence data 


MG TAPE DUMP FORMAT 



Block # 


0 

Block 0 not used* 

1 

Bata in three word floating point. 

* 

3 


4 

Bata in three word Heating point* 

152 e 

This part of BBC tape not used* 
Bisk doesn’t have extra blocks* 

N 

* 


* 


When using scratch for 
the composite (unknown 
set are used for up to 


non-linear least squares, blocks 1-3 contain 
spectrum), the following 12 sets of 3 blocks/ 
12 composite spectra. 


SCRATCH FORMAT 
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PROGRAM LISTINGS 
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I 


M 

I 

to 


•LIT LITOUT 

/RALPH RIC C. OAVIES POP-9 

/multi -parameter program for the nasa system 


/ 


/ a I ORAGE ALLOCAT 
/ 17600-17777 
/ 30000-30377 
/ 30W00-30777 
/ 31000-31077 
/ 31 I 00-31 1 77 
> 31200-32577 
/ 32600-33177 
/ 33200-33377 
/ 33H00-3V377 
/ 3HN00-3NN77 
/ 3N500-3«4*1I7 
/ 3NS20-3N537 
/ 3N5V0-3H557 
/ 3«*56o-3«*577 
/ 3N600-3N777 
/ 35000-35377 
/ 35N00- 35777 
/ 36000-36377 
/ 36N00-36777 
/ 37000-37377 
/ 37H00-37777 
/ N0000-H0G77 
/ ‘•0100-57777 
/ 


BOOTSTRAP 

scalers, counters, log 
BKGROUND SCALERS.COUNTERS.LOG 
SEO BUFFER 
COINC LIST 
STRIP BUFFER 

OECTAPE 01 RECTORY BUFFER 
128 SINGLES FOR OVERLAP 
2 IBM TAPE BUFFERS 
TTY BUFFER 
F DATA LIST • l 
M OATA LIST «| 

F OATA LIST *2 
M OATA LIST #2 
PLANE 01 SPLAY 
COIN SUM SPECTRUM 

SUM SPEC FOR OATA MANIPULATION «£ G 
M SINGLES OATA 

M SPEC FOR OATA MANIPULATION lE.G 
F SINGLES OATA 

F SPEC FOR OATA MANIPULATION «E.C. 
COMMENT AREA 
COINCIDENCE ARRAY 


STRIP. ETC) 
STRIP. ETC! 
STRIP. ETC! 


/AUTO INOEX REG I STARS USAGE 

' 10 - TEL 

' i i - display 

/ 17 - INTERUPT SAVE ANO RESTORE 

' IH.I5 SEO 

t 

/DEFINITION OF SOME STANOARO IOTPS FOR THE ADVANCED ASSEMBLER. 

/ 01 SK IOTS... 

DSSF-707001 
DLAL-70702N 
OLAH»707QBH 
OSGO«7070«*' 7 
OSRS-707262 
0SC0-7072V2 
OLOK-707.:02 
/ MAG TAPE IOTS. .. 

MTCR-70732I 
MTAF-707322 
MTRS-707352 
MTTR-707301 
MTLC -70/326 
MTG0-70730N 
MTSF-7073MI 
XX-TNOOVO 
OXL-700506 
DYS-7006M6 
OXS-7005W6 


/SKIP ON CONTROL REAOY 

/clear status and command registers 
/READ status REGISTER 
/SKIP ON TAPE TRANSPORT READ 
/LOAD COMMANO REGISTER WITH AC 
/GO LIKE HELL 

/SKIP ON ERROR fLAG, OR MAG- TAPE FLAG 


CDEF0000 

COEFOOIO 

CDEF0020 

COEF0030 

COEFOOVO 

COEF0050 

COEF0060 

COEF0070 

COEFOOBO 

COEF009G 

COEF 01 00 

COEFOt 10 

C0EF0I20 

C0EF0I30 

COEFOmo 

COEF 0 ISO 

COEF0I60 

COEFOt 70 

COEF0I80 

CDEF0J90 

C0EF0200 

CDEF02I0 

C0EF0220 

COEF 0230 

CDEF02H0 

COEF 0250 

C0EF0260 

COEF 0270 

COEF 0200 

C0EF0290 

C0EFQ300 

COEF 03 10 

C0EFQ32P 

COEF 0330 

C0EF03H0 

C0EF0350 

COEF036O 

COEF 0370 

COEF03BO 

COEF 0390 

coefonoo 

COEF OHIO 
COEF0N20 
CDEF0H3Q 
COEFONNO 
COCFONSO 
C0EFQN60 
C0EF0N7Q 
COEFONBO 
CDEFOVtO 
COEF 0500 
COEF 05 10 
COEF 0520 

C0EF0530 

COEF05N0 

COEF0550 

COEFOS60 


03/02/73RALPK RIC C. DAVIES POP-B 


«.* POPS/ 15 ASSEMBLY LISTING »*» 
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-t 


DYL-7Q06O6 


C0EFQ570 

PNRQ-705612 

/PANEL READ 

CDCF058D 

PNCL-70S6OV 

/PANEL CLEAR 

CDEF0590 

PH It •70570V 

/ INTERROGATE PANEL STATUS 

CDEFQBOO 

PNSKU7057D! 

/SKIP ON PANEL INTERRUPT 

COEFOSiO 

PN 10*705702 

/LOAD PANEL INDICATORS 

CDEF0520 

/ 


C0EF0630 

/ 


eOEFOfivG 

/LIVE TIME CLOCK &CF INI T IONS 

FOR lOfS 

cocrosso 

CSFN-70230J 

/SKIP IF NOT LIVE TIMER 

C0EF066O 

CCSC-702302 

/CLEAR SYSTEM COUNT 

C0EF0B70 

CCOF-70230V 

/CLEAR OVERFLOW FLAG 

COEF 0680 

CSLt *70232 1 

/START SYSTEM LIVE TIME 

COCFOBBO 

CLAC-702322 

/TRANSFER TO AC 

COEF 0700 

CHLT-70232V 

/STOP SYSTEM LIVE TIME 

COCFG7IO 

CF0V-701 I0V 

/CLEAR F AND M t ADC'S I 

CDEF0720 

ADC0P*70t2VV 

/AOC MODE 

COEF0730 

/ 


CQCFO7V0 

/lots FOP THE four SCALERS 


C0EF0750 

/ 


C0EF0760 

CL5A-7O20QV 

/CLEAR SCALER A 

C0CF0770 

CLSB-7O202V 

/B 

C0CF07BG 

CL5O7O20HH 

/c 

CDEF07B0 

CLSD-7Q206V 

/O 

COCFOBOO 

SKSA*70200I 

/SKIP ON NOT SCALER A 

COEF 08 JO 

SKSB-70202 ) 

/B 

C0EF8B20 

SKSC-7020HI 

/c 

COEF0B3O 

SKSO*70206I 

/o 

CDCF0BV3 

SPS*»7Q22QH 

/STOP SCALER A 

C0EF0B50 

SPSB-70222V 

/e 

COCFOBBO 

SPSC-7Q22VV 

/C 

C0EF0B7D 

SPS0-70226V 

/o 

COCFOBBO 

FNSA-70220! 

/ENABLE scaler A 

COCFQB0Q 

ENSB-70222 1 

/8 

COE FQ 900 

ENSC -7022V I 

/c 

COErOBIO 

ENSD-702261 

/o 

CDCFOOeO 

/ 


C0CF0B30 

/ 


COEFOBVO 

/tHC 256 QUANTITIES FOLLOW INC 

THE LINE OF ASTERISKS ARE WHAT 

CDEFOB50 

/ARE WRITTEN AS THE FIRST BLOCK OF DATA ON TIC DEC ANO 

COCFOBBO 

/ !®H 1AP£< 


C0EF0970 

t • • ■* w •* '• ■* w * w m 


COCFOBBO 

EXP 1 OH-27777 

/ HIGH ORDER EXPERIMENT 10 < GUMMY 1 

COCFOBBO 

EXP 10*30000 

/ EXPERIMENT 10 m 

COEFJOOO 

LIVEN 1-3000 I 

t INTEGER PORTION OF LIVE TIME 

COEF 10 JO 

LlVELO-30002 

/ FRACTIONPORTION OF LIVE TIME 

coEFioeo 

REALM I -30003 

/ INTEGER PORTION OF REAL TIME 

COEF 1030 

REALLO-3000V 

/ FRACTIONPORTION OF REAL TIME 

COEF IOvO 

SCALP A- 30005 

/ HIGH BITS SCALER A 

COEF 1050 

L05CLA-30006 

/ LO BITS SCALER A 

COEF 1060 

SCALRB-30C07 

/ HIGH BITS SCALER 8 

COEF I 070 

LOSCLB-30010 

/ LO BITS SCALER B 

COEF I 080 

SCALRC-3001 I 

/ HIGH BITS SCALER C 

COEF 1090 

LOSCLC • 30012 

/ LO BITS SCALER C 

COEF I 100 

SCALRO-30013 

/ HIGH BITS SCALER 0 

COCFIItO 

LOSCLO«3O0iH 

/ LO BITS SCALER 0 

COEF 1 120 

FSlNHl -300IS 

/ HIGH BITS F SCALER 

COEF I 130 

FSINLO-300I6 

/ LO BITS F SCALER 

COEF 1 1 VO 
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MSINHI -30017 
MS I NLO- 3 0 02Q 
CSCLHI *300? I 

csctLO-saoae 

SRC JH I -30053 
SNEJL0-3002H 
CREJH 1*30025 
CREJLC- 30026 
ERE JH I -30027 
EREJLO-30030 
PEAL TM- 30031 
LIVETH-30032 
L I VECL-30033 
U VEPS-3003** 
L I VEPT-30035 
LIVEPH-30C36 
EXP I OF >30037 
OECNM-300H0 
STAT IM-300HI 
STOT IM-300V2 
HEIGHT -300** 3 
OAIN-300S** 
PTrG-300*»5 
IM-300*«7 
OH- 3005 1 
CMG-30053 
MTFG-30055 
OOP I -30057 
SAL A- 30060 
SAHA- 3010! 
SAIA-30122 
SAGA-30 I **S 
TOPS- 30 16** 
BOTS-30205 
CONCEN- 30226 


000001 

707702 


-LOC 

£CH 

000002 

7N0000 


NOP 

000003 

600262 


JHP 

OOOOOh 

090000 

ACC 

0 

000005 

000000 

HO 

0 

000006 

000000 

5 f°OUT 

0 

000007 

77** 370 


-3H10 

00002 1 

7H00H0 


-LOC 

HUT 

000022 

6wO 1 07 


JHP 

000051 

COOOOO 

bkgflg 

-LOC 

0 

000052 

750000 

XCTBKG 

CLA 

000053 

000000 

STRPFG 

0 

U0005 1 * 

000000 

fgsoso 

0 

000055 

000000 

oorc 

0 

000056 

000000 

OOFS 

0 

000057 

000000 

CSTART 

0 

000060 

OOOGOO 

MS TART 

0 

000061 

000000 

ffg 

0 

000062 

000000 

A INF 

0 

000063 

000000 

CONX 

0 


ASSEMBLY LISTING >•'*'* 


no. 
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t HIGH BITS M SCALER 
/ LO BITS H SCALER 
t HIGH BITS CO INC SCALER 
' t'O BITS CO INC SCALER 
' HIGH BITS SINGLES REJECT 
/tO BITS SINGLES REJECT 
/ HIGH BITS CO INC REJECT 
• 10 BITS CO INC REJECT 
t HIGH BITS ERROR REJECT 
/ LO BITS ERROR REJECT 
/ HOLDS REAL TIME MINUTES 
/ HOLDS LIVE TIME MINUTES 
/ COUNTER 

/ HOLDS LIVE TIME INTERVAL 
/ HOLDS TOTAL « MIN'ITES TO NEXT DUMP 
/ INTERMEDIATE HOLD LOC. 

/ HIGH PART OT EXPERIMENT 10 
/ DEC TAPE REEL * 

/ START TIME HISTORY 
/ STOP TIME HISTORY 
/ HEIGHT 
/ GAIN 

/ PAPER TAPE 
/ INTER MANTEL 

/ OUTER MANTEL 
/ COIN TO MAG FLAG 

/ mag dump flag 
t DATA DUMP INTERVAL 
/ LUNAR 
/ METEORITE 
/ ISOTOPE 

/ gneeral 

/ TOP SPACING 
/ BOTTOM SPACING 
t CONCENTRATION 


INTRUP 


21 

BEGIN 

SI 


/PRESET CLOCK TO 30 SECONDS 

/HALT FOR cal instruction 
/STARTING LOCATION FOR FAST START 

/ LAC l*«00 1 OR CI A 


/ OAT A DUMP COUNTER 
/ OATA OUMP COUNTER SAVE 


/ PRINT FLAG 
/ ANY IN FLAG 


CQEPJ 150 
CQEF 1 160 

CDEFM70 
CDEFlfBO 
COEF I JBO 
CQEF! 200 
COEF 1210 
CDEF | 220 
COEF 1230 
COEF 12H0 
COEF 1250 
COEF I 260 
COEF 1270 
COEF 1280 
COEF 1290 
COEF 1 300 
COEF 13 10 
COEF 1 320 
COEF J330 
COEF { 3*»o 
COEF 1350 
COEF 1360 
COEF 1370 
C0EFI3B0 
COEF 1390 
COEF moo 
COEF I*. 10 
C0CF1H2O 
COEF IV30 
COEF m**o 
COEFIH50 
C0EFIV50 
COEF l**70 
COEF I **80 
COEF i **90 
CSKPOOOO 
CSKPOOJO 
CSKP0020 
CSKP0030 
CSKPOOOO 
CSKP0050 
CSKP0060 
CSKP007Q 
CSKPOOBO 
CSKP0090 
CSKPOIOO 
CSKPOI 10 
CSKPOI 20 
CSKPOI 30 
csKPomo 
CSKP0I50 
CSKPOI 60 
CSKP0I70 
CSKPOI 80 
CSKPOI 90 
CSKP02G0 
CSKP02I0 
CSKP0220 
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PAGE NO. 
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Ln 


00006*4 

000000 

CONY 

0 



000065 

000000 

CFCH50 

0 



000066 

Qk0Q77 


OAC 

.♦11 


000067 

20005k 


LAC 

KGS 050 


000070 

652000 


LUO 



000071 

201303 


LAC 

CFCHFO 


000072 

6kOQ02 


OHO 


/ INCLUSIVE OR 

000073 

7kO!OQ 


SHA 



00007k 

kk0065 


isz 

r FCH50 


000075 

200077 


LAC 

.♦2 


000076 

620065 


JHP* 

CFCH50 


000077 

000000 


0 



000100 

7kOOOO 


NOP 



000)0! 

7k0000 


NOP 



000102 

7k0000 


NOP 



000103 

7k0000 


NOP 



00010k 

7k 1 000 


SKP 



000105 

600106 


JHP 

. ♦ 1 


000106 

7kOOkO 


HLT 



000107 

100130 

BEGIN 

JM5 

PESETA 


0001 10 

70560k 


PNCl. 


/LOOP TO INTERROGATE STATUS OF PANEL 

0001 1 1 

75k002 


CLAlSTL 


0001 12 

7k0020 

BEG* 

RAR 



0001 3 3 

0k0020 


OAC 

20 

/ SAVE SH COOE 

0001 Ik 

35631k 


TAO 

(kOOOOO) 

000! 15 

70570k 


PNIT 



0001 ! 6 

777770 


LAM 

-10 


0001 17 

356315 


TAO 

f I 1 


000120 

7kk200 


SZAiCLL 



00012! 

600117 


JHP 

.-2 


000122 

200020 


LAC 

20 


000223 

7k0200 


SZA 


/DONE? 

00012k 

6001 12 


JHP 

BEOk 

/NO 

000125 

212701 


LAC 

TEL0 

/ CL A CLL 

000126 

OkOI 1 1 


OAC 

BEGk-I 


000)27 

605k32 


JHP 

OLIST 

/YES 



/RESET 

ALL POINTERS 

EC1 


000130 

000000 

RE SETA 

0 



00013! 

703302 


CAF 


/CLEAR ALL FLAGS 

000132 

707702 


EEH 


/TURN EXTEND MODE ON 

000133 

Ik50k6 


DZH 

1N03C 

/CLEAR PANEL INDICATORS 

00013k 

7600k0 


LAM 

kO 

CC0S35 

105026 


JHS 

PI NOON 


000136 

207kkk 


LAC 

VECTOR 

/ RESET NESTED INTERUPT 

000137 

OkOOl 7 


OAC 

17 

/ POINTER. 

000 1 kO 

207kk5 


LAC 

VECTOR^! 


0001 kl 

Ok7k55 


OAC 

RAS 


000 Ik2 

200227 


LA^ 

FBI 

/SET F CURRENT ADDRESS 

000 1 k3 

OkOC-kl 


OAC 

k 1 

000 1 kk 

200230 


LAC 

HB1 

/SET M CURRENT ADDRESS 

000 I k5 

OkOQkS 


0A-: 

k3 

000tk6 

1H3255 


OZH 

BFLOP 

/SET LIST FLAG 

000 Ik7 

106737 


JHS 

CRLF 

000150 

2002k 1 


LAC 

LSTTOT 

/GET LENGTH OF LISTS 

00015! 

7kk010 


CLL PAL 


/DOUBLE IT 

000)52 

Qk02k2 


OAC 

BUFLEN 


000153 

7k0020 


RAR 


/RESTORE TO ORIGINAL SIZE 

00015k 

7k000! 


CMA 



CSKP0230 

CSKP0B»*0 

CSKP0250 

CSKP0260 

CSKP0270 

CSKP0280 

CSKP0290 

CSKP0300 

CSKP03I0 

CSKP032O 

CSKP0330 

CSKP03HQ 

CSKPC350 

CSKP036G 

CSKP0370 

CSKP0380 

CSKP0390 

CSKPOHOO 

C5KP0WI0 

CSKPGH20 

CSKP0N30 

CSKPONHO 

CSKP0V50 

CSKPOMSO 

CS*£PO*i70 

CSKPOH0G 

CSKP0H90 

CSKPOSOO 

csKPosta 

csicposao 

CSKP0530 

CSKP05H0 

CSKP05S0 

CSKPQSftO 

CSKP0570 

CSKPO380 

CSKPOSBC 

CSKF06OO 

CSKP06I0 

CSKP0620 

CSKPQ630 

CSKPOSNO 

CSKP0650 

CSKP0660 

CSKP0870 

CSKP0680 

CSKP069O 

CSKP0700 

CSKP07il0 

CSKP0720 

CSKP37JO 

CSKPO7N0 

CSKPG7S0 

CSKP0760 

CSKP0770 

CSKPO700 

CSKP0790 

CSXP0800 
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000155 
000156 
000157 
000160 
000161 
000162 
000163 
000 1 6 * 
000165 
000166 
000167 
000170 
000171 
000172 
000173 
0G0I7* 
000175 
000176 
000177 
000200 
000201 
000202 
000203 
00020 * 
000205 
000206 


356315 
0*3257 
0 * 00*0 
0 * 00*2 
15236 * 
1*0006 
I 52375 
152*56 
152712 
1*6512 
762066 
107031 
203323 
0*3235 
I *0226 
150302 
1 5 1 370 
1**6* I 
202753 
0*2751 
0*2752 
1*1751 
20 * 5*6 
0 * 265 * 

I *2750 
620130 


/CLEAR HQ SAVE 
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TAO II) 

OAC ML STEM 

oac *o 

OAC *2 

OZM TELMQ 

OZM STPOUT 

OZM OSIP 

OZM REAPT 

OZM TELPT 

OZM OECPTV 

LAW MESS l 2 

JHS MESCOM 

LAC CNOP 

OAC JMSBUF 

OZM AOCON 

OZM SPREAO 

OZM TERBUF 

OZM AOCGO 

LAC COILST 

OAC LSTAD 

OAC LSTAOR 

OZM OETAOO 

LAC CSNA 

OAC INTRO I 

OZM ADCOSK 

RESET A 

SCALERS. ANO CLOCKS ARE RESET 
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/PRINT NAME ANO VERSION 
/TURN COIN STORAGE OFF 

/CLEAR AOCON FLAG 
/SET SPREAD " 0 

/ZERO TERMINATING BUFFER FLAG 
/ENABLE AOC FLAG 


CLEAR CO INC TO DISK FLAG 


JMP* 

/ALL POINTERS. 

/MINUTES OF LIVE TIME IS ASK FOR 
/SWITCHES ARE SET FOR DUMPING OR NOT DUMPING COINCIDENCE OAT A 


000207 

000000 

AOORSS 

0 

000210 

000000 

XCOORO 

0 

00021 1 

000000 

YCOORO 
/LIST OF 

0 

TAGS FOR 

000212 

035*00 

STRSUM 

35*00 

000213 

037*00 

FSTRtP 

37*00 

00021 * 

036*00 

MSTRIP 

36*00 

000215 

033000 

REEL 

33000 

0002:6 

03*600 

FGTPLA 

3*600 

000217 

037000 

FSTART 

37000 

000220 

03 S 000 

MST ART 

36000 

000221 

035000 

SUMONE 

35000 

000222 

000000 

FCHANL 

0 

000223 

000000 

HCHANL 

0 

00022*4 

000000 

CO 1 NAD 

0 

000225 

000013 

AOCMOO 

13 

000226 

000000 

AOCON 

G 

000227 

03'#*77 

FBI 

3**77 

000230 

03*517 

m\ 

3*517 

00 j £31 

03*537 

FB 2 

3 4537 

000232 

03*557 

H 82 

3*557 

000233 

033200 

FST 128 

33200 

00023*4 

0*0100 

FSTCOl 

*0100 

000235 

000001 

ZPLANE 

1 

000236 

777777 

OELTA 

777777 

000237 

777777 

OELCNT 

777777 

0002*0 

6002*0 

WAIT 

JMP 

0002*1 

000020 

LSTTOT 

20 


/LOCATION OF REEL « |N INOEX 
/IST LOC. PLANE DISPLAY LIST 
/ 1 ST LOC. OF F SINGLES 
/ IST LOC. OF M SINGLES 
/ 1 ST l.OC. OF CO INC SUM SPEC. 
/256 RAMP F CHANNEL 
/256 RAMP M CHANNEL 
/ADDRESS DETERMINED BY OETAOO 
/SPECIFIES AOC MODE 
/0 AOC OFF. I AOC ON 
/IST AOORESS-I FOR F DATA LIST 
/IST AOORESS-I FOR M OATA LIST 
/IST ADDRESS - 1 FOR F DATA CIST 
/IST AOORESS-I FOR M OATA LIST 
/ 128 FOR PLANE -SINGLE OVERLAP 
/IST CO INC OATA ADDRESS 
/LOWEST Z PLANE 

/CELTA COUNTS Z PLANE 
/WAIT LOOP 

/LENGTH OF OATA CISTS 


CSKP 08 I 0 
CSKP 0820 
CSKP 0830 
CSKPQ 8*0 
CSKP 0850 
CSKP 0860 
CSKP 0870 
CSKP 0880 
CSKP 0690 
CSKPQ 900 
CSKP 09 I 0 
CSKP 0920 
CSKP 0930 
CSKPG 9*0 
CSKP 095 G 
CSKPQ 960 
CSKP 0970 
CSKPQ 980 
CSKP 09 S 0 
CSKPl (JOG 
CSKPI 0 I 0 
CSKPI 020 
CSKPI 030 
CSKPl 0*0 
CSKPl 050 
CSKPl 060 
CSKPl 070 
CSKPIQ 30 
CSKPl 090 
CSKPl 100 
CSKPl 110 
CSKPl 120 
CSKPl 130 
CSKPl 1*0 
CSKPl 150 
CSKPl 160 
CSKPl 170 
CSKPl 180 
CSKPl 190 
CSKPl 200 
CSKPI 2 I 0 
CSKPl 220 
CSKPl 230 
CSKPl 2*0 
CSKPI 25 C 
CSKPl 260 
CSKPl 270 
CSKPl 280 
CSKPl 290 
CSKPl 300 
CSKPl 310 
CSKPl 320 
CSKPI 330 
CSKPl 3*0 
CSKPl 350 
CSKPl 360 
CSKPl 370 
CSKPl 380 
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0002*42 

000000 

aUFLEN 

0 


/TWICE THE LIST LENGTH 

CSKP1390 

0002*43 

000000 

MESTEM 

0 



CSKP 1400 

0002*4*4 

000000 

POATA 

0 



CSKP14I0 

0002H5 

000000 

MOAT A 

0 



CSKP 1420 

0002H6 

OOOOuO 

LSTEMP 

0 



CSKP 1 430 

0002H7 

000000 

INCLOC 

0 



CSKP I 440 

000250 

000000 

2TEMP 

0 



CSKPl^fO 

000251 

000000 

2TEMPI 

0 



CSKP '.460 

000252 

000000 

F COORD 

0 



CSKP 1470 

000253 

000000 

PLALST 

0 



CSKP > 480 

00025*4 

000000 

MCOORO 

0 



CSKP1490 

000255 

000000 

ZERTEH 

0 



CSKP 1500 

.000256 

000000 

ZRCNTR 

0 



CSKP1SI0 

000257 

000000 

FAX IS 

0 



CSKP 1520 

000260 

000000 

MAXIS 

0 



CSKP 1530 

000261 

000000 

ABCT 

0 


/COUNTER FOR PER 100 1C DUMPS 

CSKP 1540 



/ IN7RUP 


POP -9 


CSKP 1950 



/ROUTINE FOR HANDLING INTERRUPTS IN CO INC. 

CSKP I960 



/IF NO FLAGS ARE FOUND UP A 

MESSAGE IS 

CSKP 1570 



/PRINTED 

INDICATING 

AN UN 1 OENT * F 1 ED INTERRUPT 

CSKPIS60 



/IS PRESENT. 



CSKP 1590 

000262 

060017 

1NTRUP 

DAC* 

17 

/ SAVE AC 

CSKP 1600 

000263 

6*4 1001 


LACS 



CSKPI6I0 

00026*4 

060017 


OAC* 

17 

/ SAVE STEP COUNTER. 

CSKP 1620 

000265 

6*4 1002 


LACG 



CSKPI630 

000266 

060017 


OAC • 

17 

/ SAVE MO 

CSKP 1640 

000267 

200000 


LAC 

0 


CSKP 1650 

000270 

060017 


OAC* 

17 

/ SAVE RETURN AOR. 

CSKP 1660 

000271 

701321 


I OT ♦ 1 321 


/ F OVERFLOW 

CSKP 1670 

000272 

6026*42 


JHP 

INTRO 

/YES 

CSKPlSiO 

000273 

701361 


10T* 1 361 


/M overflow 

CSKP 1690 

00027H 

6026*42 


JHP 

INTRO 

/YES 

CSKP 1 700 

000275 

700001 


CLsr 


/READ TIME CLOCK 

CSKP17I0 

000276 

7*41000 


SKP 



CSKP 1720 

000277 

605123 


JNP 

RTSEV 


CSKP 1730 

0C0300 

702301 


CSPN 


/SKIP IF NOT LI VET (HER 

CSKP 1740 

000301 

605220 


JKP 

LTSEV 

/LIVE TIME SERVICE 

CSKP 1750 

000302 

70700! 


ossr 


/OISK FLAG 

CSKP 1760 

000303 

7H 1 000 


SKP 



CSKP 1770 

00030*4 

603*461 


JHP 

OSKINT 


CSKP 1780 

000305 

7073H1 


HTSf 


/MAGNETIC TAPE FLAG 

CSKP 1790 

000306 

7H 1 000 


SKP 



CSKPI600 

000307 

611177 


JHP 

MTSEV 


csKPteio 

000310 

702001 


SKSA 


/SCALER A 

CSKP 1620 

00031 I 

603306 


JHP 

AENT 

/YES 

CSKP 1630 

000312 

702021 


SKS8 


/SCALCR S 

CSKPI840 

000313 

6033 1 3 


JHP 

BENT 

/YES 

CSKP 1650 

00031 *4 

7020*4 1 


SKSC 


/SCALER C 

CSKP I860 

000315 

6G3320 


JHP 

CENT 

/YES 

CSKP 1870 

000316 

70206! 


SKSO 


/SCALER 0 

CSKP I860 

000317 

603325 


JHP 

DENT 

/YES 

CSKP 1890 

000320 

707601 


DTOT 


/DEC TAPE FLAG 

CSKP 1900 

000321 

7m 000 


SKP 


/NO 

CSKP 1910 

000322 

606*e*# I 


JHP 

DCCSEV 


CSKP 1920 

000323 

70520! 


705203 


/ INTERFACE IN 

CSKP 1930 

00032*« 

7m 000 


SKP 



CSKP 1 940 

000325 

616053 


JHP 

RCA050*H 


CSKP 1950 

000326 

705301 


705301 


/ interface OUT 

CSKP 1960 


H 

I 

00 
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000327 7*4 1000 

000330 616062 

000331 700101 

000332 7m 000 

000333 61 1575 

00033H 700201 

000335 7*4 1 000 

0C0336 60735*4 

000337 700301 

0003*40 741000 

000341 612564 

000342 700401 

000343 741000 

090344 606757 

000345 705001 

000346 741000 

000347 614433 

000350 705701 

000351 741000 

000352 604107 

000353 702401 

000354 741000 

000355 Si 6 1 3 I 

000356 707561 

000357 741040 

000360 606441 

00635! 700042 

000362 607436 


000363 000363 

000364 553230 

000365 601655 

000366 560600 

000367 601653 

000370 606000 

000371 601645 

000372 515000 

000373 601651 

000374 531250 

000375 101553 

000376 421432 

000377 601745 

000400 074323 

000401 601657 

000402 214323 

000403 101717 

000404 043230 

000405 101662 

000406 254673 

000407 601126 

000410 244540 

000411 601546 

000412 222000 

000413 601341 

000414 725223 

0:04I5 601350 


... POPS/ 15 ASSEMBLY 

SKP 
JMP 

rsf 

SKP 
JMP 
PSF 
SKP 
JMP 
KSF 
SKP 
JMP 
TSF 
SKP 
JMP 
F8SK 
SKP 
JMP 
PNSKI 
SKP 
JMP 
702401 
SKP 
JMP 
OTEF 
SKPlMLT 
J MP DECSEV 

ION 

JMP Rf.T 

/ 

/LIST OF KE f BOARD COMMANDS 
/ 

AL 1ST 

553230 
JMP 
560600 
JMP 

606000 
JMP 

515000 
JMP 
531250 
JMS 

421432 
JMP 
074323 
JMP 

214323 
JMS 

043230 
JMS 

254673 
JMP 

244540 

JMP 

222000 

JMP 

725223 
JMP 


LISTING 

/ PAPER READER 

'PUNCH 

/NO 

/YES 

/TELETYPE FLAG 
/NO 

/TELEPRINTER FLAG 
/YES 

/ FUNCTION BOX 
/PANEL 

/ PLSF PLOTTER FLAG. 
/NO 

/ OEC TAPE ERROR FLAG 
/ END OF SKIP CHAIN. 

/ RETURN 

/SUM 

/FM 

/F 

/M 

/ERASE 

/ START 

/STOP 

/STAR 

/STP 

/CONTUR 

/OELT2 

/R 

/ZZERO 
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CSKPI970 

CSKP1980 

CSKPI990 

CSKP2000 

CSKP2010 

CSKP2020 

CSKP2030 

CSKP2040 

CSKP2050 

CSKP2060 

CSKP2070 

CSKP2080 

C.SKP2090 

CSKPP I 00 

CSKP2! 10 

CSKPp I 20 

CSKP21 30 

CSKP2I 40 

CSKP2 150 

CSKP? 1 60 

C SKP2 70 

CSKP2I80 

CSKP2 I 90 

CSKP2200 

CSKP220 

CSKP2220 

CSKP2230 

CSKP2240 

CSKP2250 

CSKP2260 

CSKP2270 

CSKP2280 

CSKP2290 

CSKP2300 

CSKP23I0 

CSKP2320 

CSKP2330 

CSKP2340 

CSKP2350 

CSKP2360 

CSKP2370 

CSKP2380 

CSKP2390 

CSKP2400 

CSKP2410 

CSKP2420 

CSKP2430 

CSKP2440 

CSKP2450 

CSKP2460 

CSKP2470 

CSKP2480 

CSKP2490 

CSKP2500 

CSKP25I0 

CSKP2520 

CSKP2530 

CSKP2540 


0UT8*4 
IP APR 
PUNSNR 
VEL 

PR i N T ft 
BOXSEV 
PANSEV 
PLOT TR 


SUMCOM 

FMCOMO 

FCOMO 

MCOMO 

ERASE 

START 

STOP 

ADCSTR 

ADCSTP 

CONTUR 

OELT2 

RCOMO 

ZZERO 


6**a 
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000416 

330300 

330300 


/cs 

CGKP2550 

000417 

601076 

JMP 

CSCOMO 


CSKP2560 

000420 

341010 

341010 


/ AOC 

CSKP2570 

000421 

604072 

JMP 

AOCFLG 


CSKP2580 

000422 

36 l 222 

361222 


/RINC 

CSKP2590 

000423 

601 123 

JMP 

RINC 


CSKP2600 

000424 

416130 

416130 


/CINIT IN I T CONTOUR OISPLAY 

CSKP26I0 

000425 

601107 

JMP 

CONI NT 


CSKP2620 

000426 

323000 

323000 


/S 

CSKP2630 

000427 

605021 

JMP 

PSPREA 

/ SPREAD COMMANO 

CSKP2640 

000430 

036502 

036502 


/PUNCH 

CSKP2650 

000435 

607205 

JMP 

PUNGUT 


CSKP2660 

000432 

461202 

461202 


/PRINT 

CSKP2670 

000433 

607132 

JMP 

SPECPT 


CSKP2680 

000434 

414000 

414000 


/ L 

CSKP2690 

000435 

603271 

JMP 

COMMPS 


CSKP2700 

000436 

076451 

076451 


/MTNOP 

CSKP27I0 

000437 

611312 

JMP 

MTNOP 


CSKP2720 

000440 

675451 

675451 


/MTEOF 

CSKP2730 

000441 

61 1316 

JMP 

MTEOF 


CSKP2740 

000442 

054532 

054532 


/SETUP 

CSKP2750 

000443 

612007 

JK~> 

SETUP 


CSKP2760 

000444 

325614 

3256 1 4 


/ RESET LIVETIME 

CSKP2770 

000445 

607517 

JMP 

LIVERS 


CSKP270G 

000446 

256260 

256260 


/VER 

CSKP2790 

000447 

601305 

JMP 

VERMK 


CSKP2800 

000450 

270100 

270100 


/HOR 

CSKP28I0 

000451 

60131 1 

JMP 

HORMK 


CSKP202O 

000452 

410050 

410050 


/EXP f 0 

CSK°2830 

000453 

6121 16 

JMP 

SEND* 1 


CSKP2840 

000454 

6323U0 

632300 


/SET VERTICAL SV 

CSKP2850 

000455 

61 1066 

JMP 

VMARK 


CSKP2860 

000456 

223200 

223200 


/ZERO SUPPRESSION ZZ 

CSKP2870 

000457 

605373 

JMP 

SUPZRO 


CSKP2880 

000460 

032300 

032300 


/SET HORIZONTAL MARKER SH 

CSKP2890 

C00461 

61 1074 

JMP 

HMARK 


CSKP2900 

000462 

215614 

215614 


/LINEAR DISPLAY 

CSKP29S0 

000463 

61 1027 

JMP 

LINEAR 


CSKP2920 

000464 

727000 

727000 


/W 

CSKP2930 

000465 

61 1034 

JMP 

U 1 NOON 


CSKP2940 

000466 

152101 

152)01 


/AREA 

CSKP2950 

000467 

614027 

JMP 

CAREA 


CSKP2960 

000470 

620200 

620200 


/ input 8F 

CSKP2970 

000471 

614207 

JMP 

SFC 


CSXP2980 

000472 

520200 

520200 


/ INPUT 8M 

CSKP2990 

000473 

61421 1 

JMP 

BMC 


CSKP3000 

000474 

774140 

774140 


/LOG OISPLAY 

CSKP30I0 

000475 

61 1024 

JMP 

LOGS 


CSKP3020 

000476 

354040 

354040 


/OEC OUTPUT TO OECTAPE 

CSKP3030 

000477 

102017 

JMS 

OECOUT 


CSKP304G 

000500 

431414 

431414 


/LIST 

CSKP3050 

000501 

61 1616 

JMP 

LIST 


CSKP306G 

000502 

752540 

752540 


/ DEBUG 

CSKP3070 

000503 

51614 1 

JMP 

OlOA 


CSKP3080 

C00504 

346573 

346573 


/COUNTS 

CSKP3090 

000505 

101776 

JHS 

COUNTO 


CSKP3100 

000506 

355 1 42 

355142 


/TINES 

CSKP3I 10 

000507 

603332 

JMP 

TIMES 


CSKP3120 
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0005 SO 

25H133 

0005 II 

603337 

000512 

H57070 

000513 

60113! 

0005m 


000515 

601130 

000516 

5H5H5H 

000517 

6061 01 

000520 

05*461 1 

000521 

606122 

000522 

2IH756 

000523 

605550 

00058* 

551652 

000525 

606201 

000526 

*410505 

000527 

607506 

000530 

761600 

000531 

609316 

000532 

0*40200 

000533 

61*4026 

00053* 

576060 

000535 

61*412*4 

000536 

0*460 60 

000537 

6 1 *1203 

000540 

0*45150 

000541 

61*4205 

000542 

H53230 

000543 

612057 

000544 

5*45323 

000545 

612022 

000546 

*453052 

000547 

612005 

000550 

531032 

000551 

612723 

000552 

05*453 1 

000553 

612715 

000554 

153020 

000555 

611*457 

000556 

153222 

000557 

61 1500 

000560 

1 53*4 I *4 

000561 

61 1517 

000562 

153505 

000563 

61 1535 

000564 

153230 

000565 

61 1523 

000566 

153707 

000567 

61 1 V 77 

000570 

•4461 1 1 

00057 S 

61566*4 

000572 

51*4*41*4 

000573 

615*416 

000574 

122200 

000575 

615005 

000576 

222200 

000577 

61500*4 

000600 

722200 

000601 

615007 
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25*4133 


/SCALER 

JMP 

SCALER 


HS707Q 


/GET 

JMP 

R0SL0T-4 1 


*47*43*42 


/ROSLOT 

JMP 

R0SI.0T 


5*45*45*4 


/DELETE 

JMP 

REMOVE 


05*461 1 


/ INOEX 

JMP 

IN0EX 


21*4756 


/NEHOIR 

JMP 

NEMO 1 R 


551652 


/RENAME 

JMP 

RENAME 


•410505 


/EXIT ANO LOAD MONITOR 

JMP 

EXIT 


761600 


/NC* NUMBER GENERATE 

JMP 

0*40200 

NOCOM 



P*40C 

. PHO 

JP° 

0*6060 

FTOM 

/ FTOM 

JMP 

0*9150 

FHOC 

/ F*40 

JMP 

M*40C 

/ MHO 

*53830 

/ SET 


JMP 

SET 


5*5383 

/ SETU 


JMP 

SETU 


*53058 

/ UPSET 


JMP 

UPSET 


531038 

/ SPACE 


JMP 

SPACE 


05*531 

/ 1 SETUP 


JMP 

(SET 


153080 


/ PUNCH SEQUENCE 

JMP 

PSEQ 


153888 


/ RE AO SEQUENCE 

JMP 

RSEQ 


153*1 * 


/LIST SEQUENCE 

JMP 

LSEO 


153505 


/ EXECUTE SEQUENCE 

JMP 

ESEO 


153830 


/ ACCEPT SEQUENCE 

JMP 

SEO 


153707 


/GSEQ 

JMP 

GSEO 


*161 I 1 


/ INI T 

JMP 

ini r 


51**1* 


/LL 1M 

JMP 

LL IMC 


188800 


/Rl 

JMP 

Rl 


888800 


/R2 

JMP 

Rl-I 


788800 


S RG 

JMP 

Rl *2 



CSKP3I30 

CSKP3IM0 

CSKP3I50 

C5KP3I60 

CSKP3170 

CSKP3I80 

CSKP3I90 

CSKP3800 

CSKP38I0 

csKP3aao 

CSKP3830 

CSKP38*0 

CSKP3250 

CSKP3860 

CSKP387Q 

CSKP3280 

CSKP j290 

CSKP3300 

CSKP33IQ 

CSAP3380 

CSKPJ330 

CSKP33*G 

CSKP3390 

CSKP3360 

CSKP3370 

CSKP3380 

CSKP3390 

CSKP3*00 

CSKP34I0 

CSKP3H20 

CSKP3*30 

CSKP3HH0 

CSKP3H50 

CSKP3*60 

CSKP3*70 

C$KP3*80 

CSKP3H90 

CSKP3500 

CSKP35I0 

CSKP3580 

CSKP3530 

CSKP35*0 

CSKP3550 

CSKP3560 

CSKP3570 

CSKP3580 

CSKP3590 

CSKP3600 

CSKP3610 

CSKP3680 

CSKP3630 

CSKP36H0 

CSKP3659 

CSKP3660 

CSKP3670 

CSKP368C 

CSKP3690 

CSKP3700 
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000602 

352220 

000603 

615222 

00060H 

541010 

000605 

601036 

000606 

012432 

000607 

600724 

000610 

530300 

0006! 1 

601062 

000612 

630300 

000613 

601052 

000614 

404152 

000615 

615714 

000616 

350530 

000617 

600721 

000620 

355323 

000621 

60 1015 

000622 

050532 

000623 

6007*7 

000624 

404000 

000625 

600732 

000626 

331404 

0G0627 

615624 

000630 

501424 

00063. 

615630 

000632 

! 07303 

000633 

603512 

000634 

? 1 0730 

000635 

603506 

000636 

465405 

000637 

616073 

000640 

214140 

000641 

616107 

000642 

032153 

000643 

616106 

000644 

761323 

000645 

616105 

000646 

474020 

000647 

616104 

000650 

413760 

000651 

616103 

000652 

461110 

000653 

106054 

000654 

041522 

000655 

615712 

000656 

667670 

000657 

6C6767 

000660 

415276 

000561 

616101 

000662 

425661 

000663 

616102 

000664 

000000 

000665 

000000 

000666 

141523 

000667 

216316 

000670 

040063 

000671 

040064 

000672 

041303 
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352220 


/RES 


CSKP37 1 0 

JMP 

RE SC 




CSKP3720 

541010 


/ 

HIDE 


CSKP3730 

JMP 

0KG-I 




CSKP3740 

012432 


/STRIP 


CSKP3750 

JMP 

STRIP 




CSKP3760 

530300 


/ 

CM 


CSKP3770 

JMP 

CM 




CSKP3780 

630300 


/ 

CF 


CSKP3790 

JMP 

CF 




CSKP3800 

404152 


/ 

REAOPT 


CSKP38I0 

JMP 

REAOPT 




CSKP3820 

050530 


/ 

C5050 

(CO INC 5050) 

CSKP3830 

JMP 

FIFTYC 




CSKP3840 

355323 


/ 

SEEK 


CSKP3850 

JMP 

FOR 




C5KP3860 

050532 





CSKP3870 

JMP 

FIFTYS 

/ 

S5050 

(STRIP 50501 

CSKP3880 

404000 


/ 

0 


CSKP3890 

JMP 

0 




CSKP3900 

331404 


/ 

OiSK 


CSKP39I0 

JI-* 

DISK 




CSKP392G 

50 1 424 


/ 

TAPE 


CSKP3930 

JMP 

TAPE 




CSKP3940 

« 37303 


/ 

COPY 


CSKP3950 

JMP 

~OPY 




CSKP3960 

310730 


/ 

COPYS 


CSKP3970 

JMP 

COPYS 




CSKP3980 

465405 


/ 

EXTEND 


CSKP3990 

JMP 

PF.OGRN- l l 




CSKP4000 

214140 


/ 

LIB 


CSKP40I0 

JMP 

PROGRMO 




CSKP4020 

032153 


/ 

SEARCH 


CSKP4030 

JMP 

PR0GRM*2 




CSKP4040 

761323 


/ 

SING 


CSKP4050 

JMP 

PROGRH* 1 




CSKP4060 

474020 


/ 

PLOT 


CSKP4070 

JMP 

PROORK 




CSKP4080 

4 1 3760 


/ 

focal 


CSKP4090 

JMP 

PROGRH-I 




CSKP4I00 

4611 10 


/ 

INO 


CSKP4I TO 

JMS 

RDD1R 




CSKP4I20 

041522 


/ 

READ8 


CSKP4 | 30 

JMP 

REAOPT-2 




CSKP4I4Q 

667670 


/ 

PONOFF 


CSKP4 1 50 

JMP 

PONOFF 




CSKP4I60 

415276 


/ 

FORMAT 


CSKP4I64 

JMP 

PROGRM-3 




CSKP4I65 

425661 


/ 

INVERT 


CSKP4I66 

JMP 

PROGRM-2 




CSKP4IP.7 

0 





CSKP4I 10 

/ PROGRAM CHANGE 

ROUTINES. . . 




CSKP4I80 

FIFTY 0 





CSKP4I90 

OZM 

OEUMT 

/ 

ZERO OELTA LIMIT 

CSKP4200 

LAC 

(1001 




CSKP42I0 

OAC 

CONX 




CSKP4220 

OAC 

CONY 




CSKP4230 

OAC 

CFCHFG 




CSKP4240 


E-12 
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000673 

141307 


000674 

141313 


000675 

216317 


000676 

041522 


000677 

041526 


000700 

041525 


000701 

216320 


000702 

044346 


000703 

044352 


000704 

7674C0 


000705 

042056 


000706 

C42533 


000707 

045213 


000710 

777760 


0007 1 1 

040054 


000712 

216321 


000713 

044376 


000714 

216322 


000715 

041007 


000716 

620665 


000717 

1 00665 

FIFTYS 

000720 

600725 


000721 

I 00665 

FjFTYC 

000722 

140053 


000723 

501037 


000724 

.01021 

STRIP 

000725 

750001 


000726 

040053 


000727 

216315 


000730 

051077 


000731 

601037 


000732 

201135 

0 

000733 

042535 


000734 

200733 


000735 

1 12250 


000736 

202535 


000737 

100743 


000740 

201135 


000741 

0557 1 I 


000742 

606257 


000743 

000000 

02 

000744 

652000 


000745 

741200 


000746 

600773 


000747 

356323 


000750 

740300 


000751 

606746 


000752 

641002 


000753 

041135 


u00754 

556315 


G00755 

600767 


000756 

203574 


000757 

041013 


000760 

201010 


000761 

041014 


000762 

201007 


000763 

045716 


000764 

204376 
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OZM VCROSS-! 

OZM HCROSS- I 

LAC f I 760 

OAC XtiMIT 

OAC CMOOE 

OAC YLIMIT 

*.AC (201 

JAC CHOR 

OAC CVER 

LAN - 1 040C 

DAC MESS 1 2- 10 

OAC 0TRE2-I 

OAC CONOMP*S 

LAW -20 

OAC FG5050 

LAC ( 26 > 

OAC DSLOT*H 

LAC (32) 

OAC UN I AMT 

JMP* FIFTY 

• 'MS FIFTY 

JMP STRIP* | 

JMS FIFTY 

OZM STRPFG 

JMP 8XG 

JMS FGR*«« 

CLC 

OAC STRPFG 

LAC ( 1 I 

0*C MH 

JMP 8KG 

LAC UNIT 

OAC OTRE I 

LAC .-I / GET AOR OF OTRE I 

JMS N 1 0 

LAC OTRE I 

JMS 02 

LAC UNIT 

OAC UNI TSV 

JMP RETC 

0 

LMQ 
SNA 

JMP DO 

TAO (-5) / VAi_UE TOO LARGE? 

SMAIS2A 

JMP ON ARK / YES 

LACO 

OAC UN I T 

SAD ( I I 

JMP 01 

LAC OECIO 

OAC JMS 1 0 

LAC JMS I 0-3 

OAC JMS8LK 

LAC UN I AMT 

OAC FULL 

LAC OSLOT ♦»* 


/ XL I MIT FOR CONTUR 
t NON-ZERO MEANS DISPLAY CHANGE 


/ SET UP WC 


/ OISK? 
/ YES 


I I 


CSKPH250 

CSKPN260 

CSKP*«270 

CSKPW280 

CSKP<«290 

CSKP4300 

CSKP43I0 

CSKP4320 

CSKP4330 

CSKP4340 

CSKP4350 

CSKP4360 

CSKP4370 

CSKP4380 

CSKP47.90 

CSKP4400 

CSKP4HI0 

CSKP4420 

CSKP4430 

CSKP4440 

CSKP4HE0 

CSKP4460 

CSKP4470 

CSKP4480 

CSKP4490 

CSKP4500 

CSKP45I0 

CSKP4520 

CSKP4530 

CSKP4540 

CSKP4550 

CSKPH560 

CSKPM570 

CSKP4580 

CSKP4S90 

CSKP4600 

CSKPH610 

CSKP4620 

CSKP4630 

CSKP4640 

CSKP4650 

CSKP4660 

CSKP4670 

CSKP4680 

CSKP4S90 

CSKP4700 

CSKP47I0 

CSKP4720 

CSKP4730 

CSKP4740 

CSKP475C 

CSKP4760 

CSKP4770 

CSKP4780 

CSKP4790 

CSKP4800 

CSKP48I0 

CSKP4820 
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000765 

046266 


OAC 

BLKCAl. + H 



CSKP4830 

000766 

62074? 


JMP* 

02 



CSKP4840 

000767 

203533 

01 

LAC 

COPY 1 



CSKP4850 

000770 

041013 


OAC 

JMSIO 



CSKP406Q 

000771 

20101 1 


LAC 

JMS 10-2 



CSKP407O 

00077c? 

600761 


JMP 

01-6 



CSKP4880 

000773 

100775 

00 

JUS 

.♦2 



CSKP4B90 

000774 

620743 


JMP* 

02 



CSKP4900 

000775 

000000 


0 




CSKP49I0 

000776 

1 4 11 35 


OZM . 

UNIT 



CSKP4920 

000777 

201012 


LAC 

JMS 1 0-1 



CSKP4930 

OOiOOO 

041013 


OAC 

JMSIO 



CSKP4940 

001001 

203323 


LAC 

CNOP 



CSKP4950 

001002 

451376 


ISZ 

RUFG 

t SET 

REWIND FLAG 

CSKP496C 

001003 

041014 


OAC 

JMSBLK 



CSKP497CJ 

001004 

216324 


LAC 

t 1301 



CSKP4980 

001005 

045716 


OAC 

FULL 



CSKP4990 

001006 

620775 


JMP* 

00 *a 



CSKP50G0 

001007 

000017 

UNI AMT 

17 




CSKP5010 

001010 

136325 


JMS* 

C0LKCAL J 



CSKP5O20 

0010! 1 

1 36326 


'MS* 

I0KBLKI 



CSKP5030 

001012 

1 36327 


JMS* 

(MTROUTl 



CSKP5J40 

001013 

136330 

JMSIO 

JMS* 

« DEC TRW 1 



CSKP5050 

001014 

1 36325 

JMSBLK 

JMS* 

iBLKCALi 



CSK ’5060 

001015 

10102 1 

PGR 

JMS 

. ♦«« 



CSKP5070 

001016 

1 03650 


JMS 

FOLDED 



CSKP508C 

001017 

750000 


CLA 




CSKP5090 

001020 

60 1040 


JMP 

BKG* 1 



CSKP5100 

001021 

000000 


0 




CSKP51 10 

001022 

140054 


OZM 

FG5059 



CSKP5120 

001023 

760000 


-20000 




CSKP5130 

001024 

042056 


OAC 

MESS I2~ 10 



CSKP5 * 40 

005025 

C42533 


OAC 

DTRE2- 8 



CSKP5I50 

001026 

045213 


OAC 

CONOMP'*5 



CSKP5I60 

001027 

041303 


OAC 

CFCMFS 



CSKP5170 

001030 

216331 


LAC 




CSKP5180 

001031 

044376 


OAC 

05L £.’*«♦ 



CSKP5I90 

001032 

140053 


OZM 

STRPFG 



CSKP5200 

001033 

216332 


LAC 

1 171 



CSKP5210 

001034 

041007 


OAC 

UN i AMT 



CSKP5220 

001035 

621021 


JMP* 

FOR**? 



CSKP5230 

001036 

101 021 


JMS 

Fes**! 



CSKP5240 

001037 

2)6333 

BKG 

LAC 

moot 



CC0N0000 

001040 

157640 


OZM 

I76H0 



CCONOOIO 

001041 

040051 


OAC 

BKGFLG 



CCON0020 

001042 

740200 


SZA 




CCON0030 

001043 

201037 


LAC 

BKG 



CCON0040 

001044 

741200 


SNA 


/ BKG 

OR FGR 

CC0N0050 

001045 

212701 


LAC 

TEL8 

/ FG. 


CCON0060 

uO 1 046 

040052 


OAC 

XCTBKG 



CCON0070 

t ^ 1 047 

215711 


LAC 

UNITSV 



CC0NQ080 

Ou 1 050 

100743 


JMS 

02 



CCON0090 

001051 

605454 


JMP 

0SEL*2 

/ CHANGE 01 SPLAY BUFFERS 

CCONOIOO 

001052 

20 1 307 

CF 

LAC 

VCROSS- S 



CCONOI 10 

001053 

040057 


OAC 

cstart 



CCON0I20 

001054 

201313 


LAC 

HCROSS- t 

/ r r 

TART VALUE 

CCONOI 30 

001055 

040060 


OAC 

wstart 



CCONOI 40 

001056 

200064 


LAC 

CONY 



CCONOI 50 


E-14 
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001057 

041304 


DA C 

CONOY 

CCON0160 

001C60 

75000* 


CUA 


CC0N0I70 

ooioei 

60 1070 


JHP 

CSCOMD-6 

CCONOIBO 

001062 

301313 

CM 

LAC 

HCROSS-l 

CCON0190 

001063 

02*0057 


OAC 

CSTART 

CCONQ300 

OOIO&H 

301307 


LAC 

VCROSS-I / V start value 

CC0N0310 

00 I 065 

040060 


OAC 

WSTART 

CCON0320 

001066 

300063 


LAC 

CONX 

CCON0330 

001067 

041304 


OAC 

CONOY 

CC0N0240 

001070 

653C00 


LMQ 

/ SAVE AC 

CCON0350 

001071 

300054 


LAC 

FG505Q 

CCON0360 

00 1 072 

741300 


SNA 

/ 5050? 

CCON0270 

001073 

440057 


1SZ 

CSTART / NO 

CCON0380 

00107V 

641003 


LACO 

/ RESTORE AC 

CCON0390 

001075 

601 103 


JMP 

♦6 

CCON0300 

001076 

316334 

CSCOMO 

LAC 

1 1771 

CCON03IO 

001077 

041304 


OAC 

CONOY 

CCON0330 

001 100 

140060 


OZli 

USTART / START AT 0. 

CCON0330 

001 101 

140057 


OZM 

CSTART 

CC0N0340 

001102 

750001 


CLC 


CCON0350 

001103 

041303 


OAC 

CFCMFG 

CC0ND360 

001 10V 

101136 


JUS 

PSETUP / REAO COORO. 1 FILL DISPLAY LIST 

CCON0370 

001105 

316335 


LAC 

* 3 1 

CCON0380 

001106 

601647 


JMP 

FC0M0*2 

CCON0390 



/CONTOUR 

INITIAL* 

ZED FROM PANEL. 

CCON0400 

001 107 

150303 

CONI NT 

OZM 

SPREAO 

CC0N04I0 

001 1 10 

141314 


DZM 

HCROSS 

, CON0430 

001 1 1 1 

141310 


OZM 

VCROSS 

CCON0430 

001112 

141337 


OZM 

ZZMOV 

CCON0440 

001 1 13 

316314 


l;.c 

( *400000 1 

CC0N0450 

OOI I IV 

040336 


OAC 

OELTA 

CCON0460 

001115 

040337 


OAC 

OELCNT 

CCON0470 

0011 16 

141537 


OZM 

MUPPER / SET UPPER LEVEL-262K 

CCON0480 

001 117 

316315 


LAC 

«l i 

CC0N0490 

001120 

040335 


DAC 

Z PLANE 

CC0N0500 

001 let 

040350 


OAC 

ZTEMP 

CCON0510 

001 122 

741000 


SKP 


CCON053O 

001 123 

t 13461 

RINC 

JMS 

OCCIN / REAO COUNTERS 

CCON0530 

OOI 12V 

041340 


OAC 

Ot’LR / SAVE 

CCON0540 

001 125 

044343 


OAC 

ZZER / SET MOVING SPEEO 

CCON0550 



/COOING 

initiatco 

BY THE CONTUR COMMAND. 

CCONO560 



/ ALLOWS 

COINCIDENCE OA1A TO BE OISPLAYEO IN CONTOUR MAPS. 

CCON0570 

001126 

145477 

CONTUR 

OZM 

OMOOE 

CC0N0580 

001 (27 

605454 


JMP 

OSEL+2 

CCON0590 

001130 

751000 

ROSLOT 

SKP l CL A 


CCON0600 

001 131 

7 77777 


LAW 

-1 

CCON06 1 0 

001132 

151375 


DZM 

MAGUFL / CLEAR FLAG. 

CC0N0620 

001133 

042577 


OAC 

SW 

CCON0630 

001 13V 

603107 


JMP 

CTREAO 

CCON0640 

001135 

000004 

UNIT 

V 


CCON0650 



/PSETUP 

MHB 

POP-9 

CCONO660 



/ROUTINE 

TO CALCULATE A 01 SPLAY LIST F OR A PLANE 

CCON0670 



/ THROUOH 

THE COINCIDENCE DATA. 

CCON0680 

001 '36 

000000 

PSETUP. 

0 


CCON0690 

001 1J7 

1 23461 


JMS 

OCCIN / GET FIRST PLANE 

CCON07OO 

ooi mb 

340057 


TAO 

CSTART 

CCON0710 

ooi mi 

741300 


SNA I SPA 


CCONQ730 

ooi m2 

606746 


JMP 

OHARK 

CCON0730 
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001 m3 0*0252 

0011** 2I27I«, 

0011*5 556336 

0011*6 601151 

001 1*7 - 750000 
001150 601 157 

00MSI 112*61 

001152 3*0057 

001153 101766 

001 IS 1 * 3*02S2 

001155 7*0100 

001156 6067*6 

001157 356337 

001160 0*12*7 

001161 200216 

001162 0*0253 

001163 777600 

00116* 0*1250 

001165 160253 

001166 **0253 

001167 **1250 

001170 601165 

M 001171 150*10 

I 001172 200216 PSET2I 

t-> 001 173 0SC*07 

Oi 00117* 0*0253 

001175 10127* 

001176 **0253 

001177 1*025* 

001200 **025* 

001201 200252 PSE73 

001202 10127* 

001203 7*1000 

00120* 201303 

001205 1 0 1 766 

001206 3*025* 

001207 7*0300 

001210 601215 

001 2 i I 20025* 

001212 0*1272 

001213 200252 

00121* 601220 

001215 200252 PSCT* 

001216 0*1272 

001217 20025* 

001220 0*1273 

001221 101251 PSET5 

001222 {'* 022 * 

001223 10127* 

GUI 22* 7*1000 

00122b 601231 

001226 200252 

001227 101766 

001230 3*025* 

001231 751200 

001232 36C22* 

001233 36022* 

00*23* 360253 
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OAC 

FCOORO 


LAC 

TC 


SAO 


/ another? 

JMP 

.♦3 


CLA 



JMP 

.♦7 

/ NO 

JMS 

DEC IN 


TAD 

CSTART 


JMS 

COHPLH 


TAO 

fcooro 


SMA 



JMP 

QUARK 

/ LAST IS LESS THAN FIRS 

TAO 

<-! 1 


OAC 

NUHPLA 

/ NUMBER OF PLANES 

LAC 

fgtpla 

/ZERO 01 SPLAY LIST 

OAC 

PLALST 


LAM 

-200 


OAC 

PSCNTR 


OZM* 

PLALST 


ISZ 

PLALST 


:sz 

PSCNTR 

/LAST LIST ENTRY 

JMP 

. -3 


OZM 

0 ISTWG 

/ONE 01 SPLAY 

LAC 

fgtpla 

/SET LOCATION OF DISPLAY 

OAC 

OISONC 


OAC 

PLALST . 

/TEMPORARY LOCATION 

JMS 

CH5050 

/ SKIP IF 5050 

ISZ 

PLALST 


DZH 

HCOORO 

/ZERO M 

ISZ 

HCOORO 

/SET M-! 

LAC 

FCOORO 


JMS 

CH505C 

/ SKIP IF 5050 

SKP 



LAC 

CFCMFG 


JMS 

COHPLH 


TAO 

HCOORO 


SMAISZA 


/ * OR • F 

JMP 

PSETH 

/YES 

LAC 

HCOORO 

/NO. INTERCHANGE 

OAC 

FAXI 

/F AND M 

LAC 

FCOORO 


JMP 

PSET5- 1 


LAC 

FCOORO 


OAC 

FAXI 


LAL 

HCOORO 


OAC 

HAXI 


JMS 

OETPLA 


OAC 

CO 1 NAD 

/SAVE AOORESS 

JMS 

CH5050 

/ SKIP IF 5050 

SKP 



JMP 

. ♦H 


LAC 

FCOORO 


JMS 

COHPLH 


TAO 

HCOORO 


SNA! CLA 


/F«M 

TAO* 

CO! NAD 

/YES TOUSLE COUNTS 

TAO* 

COINAO 

/NO 

TAO* 

PLALST 



CC0N07*0 

CCON0750 

CCON0760 

CCON0770 

CCON0780 

CCON0790 

CCONOSOO 

ccoNoaio 

CC0N0620 

CCON0830 

CC0N08*0 

ccoNoaso 

CCONC860 

CC0N0870 

ccoNoeeo 

CCON0890 
CC0N0900 
CCON0910 
CC0N0920 
CCDN0930 
CCONOSOO 
CC0N09S0 
CCON0960 
CCON0970 
CCON0980 
CCON0990 
CCONIOOO 
CCONIOIO 
CCONI 020 
CCONI030 
CCONI 0*0 
CCONI 050 
CCONI 060 
CCONI 070 
CCONI 080 
CCONIOOO 
CCONI 100 
CCONI • 1C 
CCONI 120 
CCONI *30 
CCONI 1*0 
CCONI ISO 
CCONI 160 
CCONI 170 
CCONi 180 
CCONI 190 
CCONI 200 
CCON12IO 
CCONI 220 
CCONI 230 
CCONI 2*0 
CCONI 250 
CC0N1260 
CCONI 270 
CCONI 280 
CCONI 290 
CCONI 300 
CCONI 310 
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W 

I 

)— • 
O 


001235 060253 OAC* PLALST /STORE IN DISPLAY LIST 

001236 ‘♦40253 ISZ PLALST 

001237 20130H LAC C0N0Y 

00 I2H0 540254 SAO MC00R0 / M-100 t IF 5050) OR 177? 

001241 601243 JMP PSET8 

001242 601200 JMP PSrT3-l / NO 

001243 440252 PSET8. ISZ FCOORO / AOVANCE PLANE 

001244 441247 ISZ NUMPLA /LAST PLANS 

001245 601172 jMP PSET2I /NO 

001246 621136 JMP* PSETUP /YES 

001247 000000 NUMPLA 0 

001250 000000 PSCNTR 0 

/ROUTINE TO CALCULATE AOORESS IN UPPER CORE 
/fOR COMMAND CS. 

001251 000000 OETPLA 0 

001252 200063 LAC CONX 


001253 

0*41265 


OAC 

00125*4 

501273 


LAC 

001555 

1 0 1 27*4 


JMS 

001556 

0*4 1262 


OAC 

001557 

356337 


TAO 

001560 

7*4*4000 


CuL 

001561 

653122 


653122 

001565 

000000 

OETPl 

0 

001563 

6*4 1 002 


6*4 1 002 

00126*4 

10127*4 


JMS 

00 1 £65 

7*44020 


CLLIRAR 

00 >266 

3*4 1 272 


TAO 

OP 1267 

356337 


TAO 

001270 

3*4023*4 


TAO 

001571 

621251 


JMP* 

001272 

000000 

FAX i 

0 

001573 

000000 

MAX 1 

0 

00 1 27*4 

000000 

CH5050 

0 

001275 

655000 


LMO 

001576 

201303 


LAC 

001277 

7*4*4 1 00 


SHAICLL 

001300 

*4*4 1 27*4 


ISZ 

001301 

6*41002 


LACO 

001305 

62127*4 


JMP* 

001303 

777777 

CFCMFO 

- 1 

00130*4 

000000 

CONOY 

0 

001305 

20*4352 

VERMK 

LAC 

001306 

101315 


JMS 

001307 

000000 


0 

001310 

000000 

VCROSS 

0 

Q013S 3 

20*43*46 

HORMK 

LAC 

001315 

101315 


JMS 

001313 

000000 


0 

00131*4 

000000 

HCROSS 

0 

001315 

000000 


Cl 

00)316 

0*4133) 


OAC 

001317 

1 12*461 


JMS 

00)350 

361315 


TAO* 

001351 

*t*4i3;5 


ISZ 

001355 

7*4!30C 


SPA 1 SNA 

001353 

6067*46 


JMP 

00132*4 

51633*4 


AND 


OETPl 

MAXI /GET Y 

CH5050 / SKIP IF SOSO 

OETPl 

(-1) / Y- I 

/MUL 

/MULTIPLICAND 
/LACQ.MO TO AC 
CH505C / SKIP IF 5050 
/OIVIOE BY TWO 
FAX I /AOO X 

« - * * ' /SUBTRACT ONE 

FSTCOI /ADO 1ST OATA ADDRESS 2ND BANK 
DETPLA 


CFCMFO 

/ 

SAVE AC 

CH5GS0 

/ 

YES 

CH5050 

/ 

RESTORE AC 

CVER 
HCROSS* 1 



CHOR 
HCROSS* 1 




.♦13 

OECIN /RE AO CHANNEL 

HCROSS* I 
HCROSS* I 

OMARK 

(177) 


CC0NI320 

CC0NI330 

CCONI340 

CC0NI350 

CC0NI360 

CCONI370 

CC0NI380 

CC0NI390 

CC0NI400 

CC0NI4I0 

CCOMJ420 

CCONI43G 

CC0NI440 

CCONI4SO 

CC0NI460 

CCONI470 

CC0NI480 

CCONI430 

CCoNISOO 

CCONISIO 

CC0NI520 

CC0NI53L 

CCON1540 

CCONISSO 

CC0NI560 

CCONI570 

CCONI580 

CC0NI590 

CCONI600 

CC0NI6I0 

CC0NI62G 

CCONI630 

CCON1640 

CC0NI650 

CC0NI660 

CC0NI670 

CCONI680 

CCONI690 

CCONI700 

CC0N17I0 

CCONI720 
CCONI730 
CCONI740 
CC0NI750 
CCON i 760 
CCONI770 
CCON 1 780 
CCON I 790 
CCON 1 800 
CC0NI8IL 
CCON 1 820 
CCON 1 830 
CCON 1940 
CCON 1 850 
CCON 1860 
CCON 1 870 
CCON 1 880 
CCON 1 890 


/LIMIT TO 128 


E-17 
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001325 

100065 


JHS 

CFCN50 


/ SKIP If NOT 5050 OR SEEK 

001326 

356337 


TAO 

t-l l 



001327 

7HH0G0 


CLL 




001330 

653122 


HUL 




00)331 

000000 


0 




00!332 

6HI002 


LACQ 




001333 

061315 


DAC • 

HCROSS* 1 


/ SAVE IN HCQOSS OR VCROSS . 

0QI33H 

601126 


JHP 

CONTUR 



001335 

000000 

VCMOV 

0 




001336 

000090 

HCHOV 

0 




001337 

000000 

ZZMOV 

0 



/ ZZ MOVING CONTROL 

00I3H0 

000000 

OELR 

0 






/CODING 

accessed by 

COMHANO 

R. 

RAISED Z PLANE BY VALUE OF DEI 



/IF Z PLANE BECOMES 

GREATER 

THAN 262K IT IS RESTOREO TO ITS 



/ORIGINAL VALUE AS 

GIVEN 0Y 

ZZERO COMMAND. 

oo 1 3m 

200250 

RCOMD 

LAC 

ZTEMP 



00 1 3H2 

7HH00C 


CLL 




0013*«3 

3H 1 3H0 


TAO 

OELR 


/RAIZE Z PLANE 

001 3*4*4 

7HIH00 


SZL 



/OVERFLOW 262K 

00 1 3H5 

200235 

: RCOMOR 

LAC 

ZPLANE 


/YES, RESTORE TO ORIGINAL VALUE 

001 3H6 

101530 


JNS 

ZZERC 



00 1 3H 7 

601 126 


J M P 

CONTUR 





/CODING 

ACCESSED BY 

COMMAND 

ZZERO. X< SETS Z PLANE THROUGH 



/COINCIDENCE OAT A TO VALUE OF 

X. 

001350 

1 I2H6I 

ZZERO 

^MS 

OCCIN 


/ READ VALUE 

001351 

0H0235 


DAC 

ZPLANE 



00 1 352 

60 1 3H6 


JHP 

RCOMOR* 1 





/CODING 

TO DISPLAY 

COINCIDENCE DATA 

001353 

150551 

C0N01S 

DZM 

NY 



00 i 35*4 

760002 


LAM 

a 



00 1 355 

70070H 


70070** 



/LOAO BRIGHTNESS REGISTER. 

001356 

201337 


LAC 

ZZHOV 



001357 

3H0250 


TAD 

ZTEHP 



001 360 

0H0250 


DAC 

ZTEMP 



001361 

5H0251 


SAO 

ZTEHP 5 


/ ANY CHANGE 

001362 

601377 


JHP 

COND 


/ HO 

001363 

0H025I 


DAC 

ZTEMPI 



00136*4 

7HH000 


CLL 




00 1 365 

3H0237 


TAD 

OELCNT 


/ RESET MUPPER AND DELTA 

001366 

7H 1 HOO 


SZL 




001367 

750000 


CLA 




00I37Q 

7HOO0I 

- 

CHA 




001371 

356315 


TAD 

( ! > 



00 1 372 

OH 1527 


DAC 

muppeb 



001373 

3H0259 


TAD 

ZTEMP 



00 1 37*4 

7*40001 


CHA 




00 1 375 

356315 


TAO 

< 1 ) 



00 1 376 

0H0236 


DAC 

OELTA 



001377 

tO 1 3 1 H 

COND 

LAC 

HCftOSS 


/ DISPLAY HOR MARK 

001*400 

3HI33S 


TAO 

HCHOY 


/ MOVING VARIABLE 

001 HOI 

5163H0 


AND 

( | 777 1 


/ KEEP WITHIN 10 BITS 

00IH02 

OH 1 3 1 H 


DAC 

HCR0S5 



00IH03 

5HI525 


SAO 

YL l h ! T 



OOIHOH 

60IH1H 


JHP 

CONDa 



00IH05 

700606 


700606 



/LOAD Y 

0OIHO6 

750000 


CLA 




00IH07 

7005H© 

CQNOt 

7005*46 



/LOAD X AND DISPLAY 

001 HI 0 

556317 


SAD 

(1760) 


/ALL POINTS 


CCON1900 

CCONI9IO 

CCONI920 

CC0NI930 

CCONI9HO 

•.CON 1 950 

CCONI960 

CC0NI970 

CCONI980 

CC0NI990 

CCON2000 

CCON20I 0 

CCON2020 

CCON2030 

CCON20H0 

CC0N2050 

CCON2060 

CCON2070 

CCON2080 

CC0N2090 

CCON2IOO 

CC0N2I 10 

CCON2I20 

CCON2I30 

CC0N2IH0 

CCON2I50 

CC0N2I60 

CC0N2 I 70 

CCON2I0O 

CCON2I90 

CCON2200 

CC0N22 1 0 

CCON2220 

CCON2230 

CCON22HO 

CCON2250 

CC0N2260 

CC0N2270 

CCON2290 

CC0N2290 

CCON2300 

CCON23 1 0 

CCON2320 

CC0N233C 

CCON23HO 

CC0N2350 

CCON2360 

CCON2370 

CCON2380 

CC0N2390 

CCQN2H00 

CC0N2H 1 0 

CCON2H20 

CCON2H30 

CCON2HHO 

CCON2H50 

CCON2H60 

CC0N2H70 
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001NII 

601 NIN 

00 IN 12 

IMIv 

00INI3 

60IN07 

00 IN IN 

201310 

00IN15 

3NI339 

001 N16 

9I63N0 

00 I N 1 7 

ON I 3 1 0 

Q0IN20 

9N1922 

00IN2I 

60IN3I 

00IN22 

700506 

00IN23 

750000 

00IN2N 

7006N6 

00IN29 

556317 

00IN26 

60IN3I 

00IN27 

3563NI 

00IN30 

60IN2N 

00IN3I 

760003 

00IN32 

70070N 

00IN33 

I7025N 

OOIN3N 

20023N 

001N35 

0N0207 

00IN36 

20N3N6 

CO I k 37 

7N0001 

■ OC?!N*?0 

356315 

OOiNnI 

0N02I 1 

00INN2 

201522 

00INN3 

60INN6 

OOINNN 

20I52N 

00INN5 

3NI523 

001NN6 

0NI52N 

00INN7 

IN02I0 

00IN50 

20021 I 

0CIN5I 

5n 1 525 

00 1 N52 

605N32 

00IN53 

3NN3N6 

00IN5N 

0N02I 1 

00IN55 

700606 

00IN56 

220207 

00IN57 

7NHI00 

0CIN60 

60IN70 

00IN6I 

210302 

00IN62 

7NI200 

00IN63 

601500 

001N6N 

220207 

00IN65 

7N000I 

00IN66 

356315 

00IN67 

60IN7N 

00IN70 

210302 

00IN7I 

7N0200 

00IN72 

601500 

00IN73 

220207 

00IN7H 

7NN000 

00IN75 

3NI527 

00 i N76 

7N**««00 

00IN77 

3N0236 

001500 

NN02O7 

001901 

200207 

001902 

5563N2 
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C0N02 


C0N03 


CONON 


C0ND5 


C0N06 


COND7 


JMP 

C0N02 

TAO 

( 10 > 

JHP 

CONDI 

LAC 

VCROSS 

TAD 

VCMOV 

ANO 

( 1777) 

DAC 

VCROSS 

SAD 

XL IMIT 

JMP 

CONDH 

700506 

CLA 

7006N6 

SAO 

(1760) 

JHP 

CONON 

TAD 

(10) 

JMP 

C0N03 

LAH 

3 

70070N 

D2M* 

HOVAOO 

LAC 

PSTCOI 

DAC 

AOORSS 

LAC 

CHOR 

CMA 

TAO 

( 1 ) 

DAC 

YCOORO 

LAC 

XL IMIT 

JMP 

.♦3 

LAC 

SAOLIH 

TAD 

OELIMT 

DAC 

SAOLIH 

D2M 

XCOORO 

LAC 

YCOORO 

SAD 

YL 1 M 1 T 

JMP 

OUST 

TAO 

CHOR 

DAC 

YCOORO 

700606 

LAC* 

AOORSS 

SMAICLL 

JMP 

.♦10 

LAC 

SPREAD 

SNA 

JMP 

C0N07 

LAC • 

AOORSS 

CMA 

TAD 

< I » 

JMP 

.♦5 

LAC 

SPREAO 

SZA 

JMP 

C0N07 

LAC* 

«OORSS 

CLL 

TAO 

MUPPCR 

SNL I CLL 

TAD 

delta 

IS2 

AOORSS 

LAC 

AOORSS 

SAO 

(60000) 


/YES 

/MO 

/ DISPLAY VER. HARK 
/ MOVING VARIABLE 
/ KEEP MITHIN 10 BITS 


/LOAD X 

/LOAD Y AND 01 SPLAY 

/ALL POINTS 

/YES 

/NO 

SET BRIGHTNESS 

/ CONTAINS AOORESS OP VCMOV IP INC MOOE 
/ GET PIRST AOORESS TO 
/BE 01 SPLAYED 


/ INITIALIZE SACLIM. 


/ UPOATE SAOLIH 

/ SET X-0 
/GET Y 

/ LAST POINT? 

/RETURN 

/ AOO OCTAL 10 OR 20 

/LOAD Y SUPPER 

/GET CONTENTS OP AOORESS 

/ VALUE NEC OR P OS? 

/ POS. 

/ 01 SPLAY VALUES > OR < OELTA? 
/ GREATER THAN OELTA. 

/ NEGATE VALUE. 


/DISPLAY VALUES ) DELTA. 


/O I SPLAY POINT 
/MAYBE 

/INCREMENT AOORESS. 

/ O'TN’T LET ADR. RUN OVER CORE 


CCON2N80 

CCON2N90 

CCON2500 

CCON25IO 

CCON2S20 

CCON2530 

CCON25NO 

CCON2550 

CCON2560 

CCON2570 

CCON2580 

CC0N2S90 

CC0N2600 

CC0N26 1 0 

CC0N2620 

CC0N2630 

CCON26NO 

CCON26SO 

CC0N2660 

CCON2670 

ccoNzeeo 

CCON2690 

CCON2700 

CCON27IO 

CCON2720 

CCON2730 

CCON27NO 

CC0N275CI 

CC0N2760 

CCON2770 

CCON2780 

CCON2790 

CCON2800 

CC0N28I0 

CCON2620 

CCON2830 

CCON28HO 

CCON28SO 

CCON2860 

CCON2870 

CC0N2880 

CCON2890 

CCON2900 

CC0N29I 0 

CC0N2920 

CC0N2930 

CCON29HO 

CCON29SO 

CC0N2O80 

CCON2970 

CC0N2980 

CC0N2990 

CCON3000 

CCON30 1 0 

CCON3020 

CCON3030 

CCON30N0 

CCON3050 
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001503 

001504 

001505 

001506 

001507 

001510 

00151 I 

001512 

001513 

001514 

001515 

001516 

001517 

00 1 520 

001521 

001522 

001523 

001524 

001525 

001526 

001527 


605432 

201526 

740200 

605432 

200210 

741400 

601514 

700506 

741000 

700546 

541524 

601444 

344352 

040210 

601456 

000000 

000010 

000000 

001760 

000000 

000000 


| 001530 000000 
H* 001531 040850 
^ 001532 744000 

001533 340237 
001534 741*400 
001535 750000 
001536 74000 1 
001537 356315 
001540 041527 
001541 340250 
001542 740001 
001543 356315 
001544 040236 
001545 621530 


001546 I 12461 
001547 040237 
001550 200250 
001551 1 01530 
001552 601126 

CO 1553 000000 
001554 105275 
001555 200051 
001556 741200 
DO 1557 105070 
001560 101564 
001561 101573 
001562 101602 
001563 621553 
001564 000000 
001565 400052 
001566 340.217 



CCON3060 

CCON3070 

CCON3080 

CCON3090 

CC0N3I 00 

<.C0N3l 10 

CCON3I20 

CCON3I30 

CC0N3I40 

CC0N3I50 

CC0N3I60 

CCON3I70 

CCON3I80 

CC0N3I90 

CCON3200 

CC0N32! 0 

C CON 3220 

CC0N3230 

CCON3240 

CC0N3250 

C CON 3260 

CCON3270 

CCON3280 

CCON3290 

CCON3300 

CC0N33I 0 

CC0N3320 

CCON3330 

CC0N3340 

CCON3350 

CCON3360 

CC0N3370 

CCON3380 

CCON3390 

CC0N34QQ 

CC0N34 | 0 

CC0N3420 

CCON3430 

CCON3440 

CCON3450 

CCON3460 

CCOM3470 

CCON3480 

CC0N3490 

CCON3500 

COATOOOO 

COAT 00 3 0 

COAT0020 

C0AT0030 

C0AT0040 

C0AT0050 

C0AT0060 

CDAT0070 

COAT 0080 

CDAT0090 

COATOIOO 

COATOI 10 

COAT0I20 


E-20 
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OOI567 0*40355 

001570 777*00 

001571 1 0 ISM 

00157? 6? 1 53* 

001573 000000 

00157* *00053 

001575 3*0330 

001576 0*0355 

00?g77 "77*00 

001600 101636 
001601 631573 

00160? 000000 

001603 3163*3 

00160* 0*0355 

001605 760000 

001606 101636 

001607 i*{63 | 

001610 777770 

001611 0*0356 

001613 300051 

001613 7*0300 

00161* 601630 

001615 103*31 

001616 000000 

00IG17 760000 

001630 0*0000 

001631 000000 

001633 000005 

001633 760000 

00163* 3*163! 

001635 0*1631 

001636 **0356 

001637 601615 

001630 *00053 

001631 3*0??| 

001633 0*0355 

001633 777*00 

00163* 101636 

001635 631603 


001636 000003 
001637 0*0356 
0016*0 160355 
0016*1 **0355 
0016*3 **0356 
0*16*3 6016*0 
0016** 631636 


0016*5 3163** 
0016*6 1*0060 
0016*7 0*5*77 
001650 605*5* 


* • • 
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CRASH 


ERASC 


ERAS9 


/ZEROUT 


zcnour 

ZERO I 
/ECOHD 


DAC 

LAN 

JNS 

JHP* 

0 

XCT 

TAO 

oac 

LAN 

JHS 

JHP* 

0 

LAC 

DAC 

LAN 

JHS 

OZH 

LAN 

OAC 

LAC 

SZA 

JH*-> 

JHS 

0 

-30000 

*0000 

0 

5 

LAW 

TAO 

OAC . 

ISZ 

JHP 

XCT 

TAO 

OAC 

LAN 

JHS 

JHP* 

NNB 


ZERTEH 

-*00 

ZEROUT 

ERASE 

XCTf'tCG 

HSTART 

ZERTEH 

-*03 

ZEROUT 

ERASH 

•*00001 

ZERTEH 

-30000 

ZEROUT 

£RAS9«* 

-10 

ZRCNTR 

BXGELG 

ERAS9* I 3 
01SKIO 
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CDATO) 30 

/£RASC 356 CHANNEL 

SPECTRUH 

COATOl *0 
COAT0I50 
COAT 0 1 60 
COATOl 70 

/ erase h singles 


COATOl 80 
CDATO 1 90 
COAT 0300 

/ERASE 356 CHANNEL 

SPECTRUH 

COAT 03 1 0 
COAT0330 
COAT0330 

/ ERASE 0K 01 splay 

eUEFER 

COAT 03*0 
COAT0350 
COATQ360 


/2ERO OUT 6*K CO INC SPEC ON DISK 


erase 

NO 


DISK? 


/ DISK • 
/NC 
/ CA 

'OISK AOR 
/NR 1 TE 


-30000 
.-3 
.-* 

ZRCNTR 
ERAS9 

xctbkg 

SUHONC 
ZERTEH 
-* 0 © 

ZEROUT 
ERASC 

P0P**9 

JSS'S r T 0°LLl2?NS°2A S f CUT,VC C0 " £ 

/ 2*22x1. Jf T ADDR£SS T 0 be ZEROED. 

AC contains or addresses to be zeroeo. 

OAC ZRCNTR 

02tt * ZERTEH 

ZERTEH 
1 SZ ZRCNTR 

ZERO I 
ZEROUT 
MNB POP-9 


' INCREHENT OlbK ADR. BY 30000 

/OONE ZEROING 6** 

/NO 

/ ERASE SUH SPEC 
/ERASE SUH SPECTRUH 


'LAST ADDRESS 
/NO 

/RE TURN 


/display or C r S su«GLEs r ’ C0MMAN0 1 single hodei go setup 

ECOHD LAC 171 

02M NSTART 

OAC 0H90E 

OSEl*3 


CDAT0370 
COAT 0380 
C0AT0390 
COAT03Q0 
COAT03I0 
COAT 0330 
COAT 0330 
COAT03*0 
COAT 0350 
COAT0360 
C0AT0370 
COAT 0300 
CDAT0390 

coato*oo 

CDATO* : o 

C0AT0*30 

CDAT0*30 

CDAT0**0 

COAT0*50 

COAT 0*60 

COAT0*70 

COATO*BO 

CCAT0*90 

COAT 0500 

C0ATQ5I0 

C0ATC530 

COAT 0530 

C0AT05*0 

COAT 0550 

COATG560 

CDAT0570 

COAT0580 

COAT0590 

COAT 0600 

C0ATQ6I0 

COAT 0630 

COAT0630 

COAT06*0 

COAT 0650 

CDAT0660 

COAT0670 

C0AT0660 

COAT 0690 

CDAT0700 


iz-a 
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/MCOHO HUB POP-9 

/ROUTINE ACCESSEO BY M. COMMAND t SINGLE MOOE > TO SETUP 
/DISPLAY OP M SINGLES. 


00 1651 

2163*45 

MCOHO LAC 

(61 


001652 

6016*46 

JHP 

FCOMO* 1 




/P MCOHO HUB 

POP-9 




/ROUTINE ACCESSEO 

BY FM. COMHANO (SINGLE MOOE) TO SETUP 



/OVERLAPPING OlSPl AY OF F AND M SINGLES. 

001653 

2163*46 

FMCOHD LAC 

(51 


00165*4 

60I6H6 

JHP 

FCOMO* I 




/SUHCOH HUB 

POP-9 

9/ m/68 



/COOING INITIATEO 

BY COMHANO 

SUM. 

001655 

2I63H7 

SUHCOH LAC 

mi 


001656 

60I6«*6 

JHP 

FCOHO* 1 




/COOING INITIATEO 

BY COMHANO 

STOP. 



/Ol SABLES ADC INTERFACE. 




/DISABLES REAL TIME CLOCK. 




/Ol SABLES LIVE TIME CLOCK. 


001657 

101662 

STOP JHS 

ADCSTP 

/Ol SABLE AOCS ANO CLOCKS 

001660 

7700*42 

LAW 

STOTIH 


001661 

6017*47 

«-MP 

starts 




/SUBROUTINE TO 01 SABLE AOCS ANO CLOCKS 

001662 

000000 

AOCSTP 0 



001663 

700002 

IOF 



00166H 

70125*4 

I0T*I25, 


/DISABLE INTERFACE 

001665 

70232*4 

CHLT 


/DISABLE l ivr TIME 

001666 

70000*4 

CLOF 


/Ol SABLE REAL TIME 

001667 

70220*4 

SPSA 


/STOP SCALER A 

001670 

70222*4 

SPSS 


/B 

001671 

7022*4*4 

SPSC 


/c 

001672 

70226*4 

SPSO 


/O 

001673 

*4*4*46*4 | 

IS2 

AOCGO 

/ PREVENT ACC ENABLING 

OOI67H 

10275*4 

JHS 

LSORT 

/SORT PARTIAL LISTS 

C0I675 

1*42750 

OZH 

AOCOSK 


001676 

20265*4 

LAC 

INTRO 1 


001677 

5*4*45*46 

SAD 

CSNA 

/ DISK SORTING? 

001700 

1*41751 

OZH 

OCT AGO 

/ NO 

001701 

1*4*46*4! 

OZH 

AOCGO 


001702 

105237 

JHS 

RE AOCS 

/RE AO CLOCKS ANO SCALERS 

001703 

1*40226 

OZH 

AOCON 

/CLEAR ADC ON FLAG 

00170*4 

760001 

LAW 

1 


001705 

105037 

JHS 

PINOOF 


001706 

200051 

LAC 

bkgflg 


001707 

7*40200 

S2A 


/ SKIP IF NOT BKG. 

001710 

621662 

JHP* 

AOCS TP 


00171 1 

107077 

JHS 

PR IOF 


001712 

30*4301 

30*4301 


/ AO 

001713 

2*40303 

2*40303 


/ C 

00I7IH 

306317 

306317 


/ OF 

Cul7l5 

3*40306 

6*40306 


/ F 

001716 

621662 

JHP* 

AOCS TP 




/BEGIN HUB 

POP- 9 




/ROUTINE INITIATEO 

BY START cohmano. 



/INITIATES TAKING < 

OF DATA IN 




/MULTI -PARAMETER HOOE. OOES 

NOT ERASE 



/OAT A AREA. 



001717 

000000 

AOCSTR 0 



00*720 

1050*47 

JHS 

PAOCB 



C0AT07 1 0 
C0AT0720 
C0AT0730 
COAT07H0 
C0AT07S0 
COAT 0760 
CDAT0770 
COAT 0760 
COAT0790 
COATO0OO 
COATOBIO 
COAT0820 
C0AT0830 
COATOBVC 
C0AT085Q 
COAT 0860 
COAT 0870 
COAT0880 
COAT 0890 
COAT0900 
C0AT09I0 
COAT0920 
COAT 0930 
CDAT09N0 
COAT0950 
COAT0960 
C0AT0970 
COAT0980 
COAT0990 
COAT 1 000 
COAT 1010 
COAT 1030 
COAT 1 0*40 
COAT 1 050 
COAT 1060 
COAT 1 070 
COAT I 080 
COAT I 090 
COAT I 100 
COAT I I 10 
COAT I 120 
COAT I 130 
COAT I I HO 
COAT I 150 
COAT I 160 
COAT I 170 
COAT I 180 
COAT I 190 
COAT 1 200 
COAT 1210 
COAT 1220 
COAT 1230 
C0ATI2H0 
COAT I 250 
COAT I 260 
COAT 1270 
COAT 1 280 
COAT 1 290 


me * -■■■■-# ■* 
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001721 216315 

001722 0*40226 

001723 70220 S 

00 1 72*4 702221 

001725 7022VI 

001726 702261 

001727 702321 

001730 7000*4*4 

001731 200225 

001732 7012*4*4 

001733 701 10*4 

00173*4 760001 

001735 105026 

001736 236350 

001737 076351 

00 1 7*40 202753 

0017m 0*42752 

00 1 7*42 0H275 1 

00 1 7H3 I HI 75 1 

00I7HH 621717 

0017H5 10 1 71 7 

00I7H6 7700*4 1 

0017H7 112250 

00 1 750 606257 


00175* 000000 
001752 200260 
001753 OH! 757 
00I75H 356337 
001755 7HH000 
001756 653122 
00I7S7 000000 
001760 6H I 002 
OC! 761 7HH020 
001762 3H0257 
001763 356337 
00I76H 3W023H 
001765 621751 


001766 000000 
001767 7H000I 
001770 356315 
00 1 771 621766 
001772 000000 
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PAGE NO. 


/COHN AND 
START 


LAC 

OAC 

ENSA 

ENSB 

ENSC 

ENSO 

CSLT 

CLON 

LAC 

AOCOP 

cfov 

LAW 

JMS 

LAC • 

OAC • 

LAC 

OAC 

OAC 

ozm 

JMP* 

TO START 
JM* 

LAW 
JMS 
JNP 


( I I 

AOCON 


AOCMOO 


I 


/SET AOC ON FLAG 

/ENABLE SCALER A 
/B 

/C 

/O 

/star; live time 
/start real time 

/GET AOC MOOE 
/SET MOOE 
/RESET BOTH AOC*? 


PI NOON 
(LIVEPTl 
ILIVEPH) 

COILST 
LSTAOR 
LSTAO 
OETAOO 
AOCSTR 
AOC'S 
AOCSTR 
STATIM 
NIO 

_ RETC 

calculate storage aooress 

/PROM THE COORDINATES OP A COINCIDENCE 
/EVENT. RETURNS WITH AOORESS * IN THE ^ AC 

/EXPECTS THE COORDINATES TO BE IN PCHANS 
• ANO MCHANS. * CHANS 

/USES THE ALGORITHM A» I Yc Y- ) ) /2+x - I 
/ENTER IN THE FOLLOWING WAY 


/ CLEAR CO INC TO 0 1 SK 


/LOCATION 

/ 

/ PAXIS 
/ MAXIS 
OETAOO 


OETAt 


N 

CONTAINS 

CONTAINS 

0 

LAC 

OAC 

TAO 

CLL 

653 1 22 
0 

6H3 002 

CLL RAR 

TAO 

TAQ 

TAO 

JMP* 

TO PINO 


CONTENTS 
JMS OETAOO 
P COORDINATE 
M COORDINATE 


MAXIS 
OETAI 
* - 1 » 


PAXIS 
I - I ) 

PSTCOI 
OETAOD 

THE TWOS COMPLEMENT 


/GET V 
/Y-| 

/MUL 

/multiplicand 

/LACO. MO TO AC 
/OIVIOE BY TWO 
/AOO X 


BIT NUMBER. ENTER WITH 


/ROUTINE 

f or an i a 

’ * ° • (ivnocn . t fi 1 t 

/NUMBER TO BE COMPLEMENTED IN AC 
/RETURNS WITH COMPLEMENT IN AC 
COMPLM 0 

CMA 

TAO III 

JM P* COMPLM 

CIA 0 


/AOO 1ST DATA AOORESS 2ND BANK 


21 


COAT I 300 
COAT I 310 
COAT I 320 
COAT I 330 
CUATI3H0 
CJATI350 
COAT I 360 
COAT I 370 
COAT 1390 
COAT I 390 
COAT moo 
CDATimo 
COATIH20 
COAT I H30 
COATIHHO 
CCATIH50 
COATIH60 
COAT I *470 
COATIHBO 
COAT I H90 
COAT 1 500 
COAT IS 10 
COAT 1 520 
COAT 1 530 
COATISHO 
COAT 1 550 
COAT 1560 
COAT 1 570 
COAT 1 580 
COATS 590 
COAT 1 600 
COAT 1610 
COAT 1620 
COAT 1 630 
COATI6H0 
COAT 1650 
COAT 1 660 
COAT 1670 
COAT 1 660 
COAT 1690 
COAT I 700 
COAT I 710 
COAT I 720 
COAT I 730 
COATI7H0 
COAT 1750 
COAT 1760 
COAT I 770 
COAT I 780 
COAT I 790 
COAT 1800 
COAT 1 810 
COAT 1820 
COAT 1 830 
COATISHO 
COAT 1850 
COATI 860 
COAT I 870 
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001773 

744001 

CMAICLL 




COAT 1880 

00I77H 

356315 

TAD 

l 1 1 



COAT l 890 

001775 

621772 

JMP* 

CIA 



COAT 1900 



/CCUNTO HUB POP 9 




COAT 1 9 1 0 



/THIS ROUTINE PRINTS 

» OUT THE 

SCALERS CONTAINING 


COAT 1920 



/THE F SINGLES. MS INGLES, COINCIDENCE COUNTS. 


COAT 1930 



/SINGLES REJECTS. ANO COINCIDENCE REJECTS. 


COAT 1940 

001776 

000000 

COUNTO 0 




COAT I960 

001777 

200052 

LAC 

XCTBKG 



COAT 1960 

002000 

051653 

OAC 

MIOl 



COAT 1970 

002001 

1 1 1625 

JMS 

M 10 



COAT I960 

002002 

01 1714 

MESS7 




COAT 1990 

002003 

230015 

OSLIFSINHI 




COAT2000 

002004 

011717 

MESS8 




CDAT2010 

002005 

230017 

D8LIMSINHI 




COAT2020 

002006 

0 II 722 

MESS9 




C0AT2030 

002007 

230023 

OBLISREJHI 




COAT2040 

002010 

011725 

MESS 10 




CDAT2050 

00201 1 

230021 

08LICSCLHI 




COAT2060 

002012 

011730 

MESSI 1 




C0AT2070 

002013 

230025 

OBL ICREJHI 




COAT 2030 

0020 14 

01 1733 

MESS 15 




COAT209Q 

0C2015 

230027 

OBL lEREJHI 




CDAT2I00 

002016 

621776 

JMP* 

COUNTO 



C0AT2I 10 



/CUR P0P9 1969 




COAT2I20 



/SUBROUTINE TO OUT PUT ENTIRE 

EXPERIMENT 


COAT2I30 



/ON OECTAPE HITH UNIT OIALEO 

TO 3. 


COAT2140 

002017 

000000 

DECOUT 0 




C0AT2I50 

002020 

104041 

JMS 

AOCCHK 

/ ARE AOC S ON 


COAT 2 1 60 

00202) 

106054 

JK5 

ROOIR 

/READ DIRECTORY 


C0AT2I70 

002022 

740200 

SZA 


/OECTAPE ERROR 


COAT2180 

002023 

622017 

JMP* 

OECOUT 

/YES 


COAT2190 

002024 

1 05725 

JMS 

AODOIR 

/ADO NEW 10 


COAT2200 

002025 

206303 

LAC 

OIRrLG 

/IS tape OK 


COAT2210 

002026 

740200 

SZA 




C0AT2220 

002027 

606257 

JMP 

RETC 

/ NO 


COAT2230 

002030 

106072 

JMS 

WTO IP 

/WRITE THE DIRECTORY 


C0AT2240 

002031 

740200 

SZA 


/OECTAPE ERROR 


COAT 2250 

002032 

606257 

JMP 

RETC 



COAT2250 

002033 

206305 

LAC 

BLKNO 



COAT2270 

002034 

046522 

OAC 

OECBLK 

/SET BLOCK NUMBER 


C0AT2280 

002035 

400052 

XCT 

XCTBKG 



CDAT2290 

002036 

345546 

TAO 

8LK0NE 

/EXPERIMENT 10, ETC. 


COAT2300 

002037 

1065 14 

JMS 

WTOEC 



COAT 23 1 0 

002040 

151376 

OZM 

Rwr G 



C0AT2320 

002041 

400052 

XCT 

XCTBKG 



CDAT2330 

002042 

340221 

TAO 

SUMONE 

/SUM SPECTRUM 


COAT 2340 

002043 

1 0651 4 

JMS 

WTOEC 



CDAT2350 

002044 

400052 

XCT 

XCTBKG 



CDAT2360 

002045 

340217 

TAO 

TST ART 

/F SINGLES 


COAT237C 

0 02046 

106514 

JMS 

WTOEC 



COAT23QO 

002047 

400052 

XCT 

XCT8KG 



COAT 2390 

002050 

340220 

TAO 

MSTART 

/M SINGLES 


COAT 2400 

002051 

1 065 1 4 

JMS 

WTOEC 



C0AT24I0 

002052 

206522 

LAC 

0EC8LK 



COAT2420 

002053 

042060 

OAC 

.♦5 



COAT2430 

002054 

401013 

XCT 

JMS 10 

/WRITE CO INC SPECTRUM 


COAT2440 

002055 

000000 

0 


/ NULL OR DISK # 


CDAT2450 


• tip i "'»r 
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002056 760000 

002057 040000 

002060 000000 

002061 000005 

002062 750000 

002063 541 135 

002064 i | | 323 

002065 622017 

002066 220 1 1 4 

002067 201040 

002070 26606 1 

002071 406081 

002072 406260 

002073 406763 

002074 000000 

C02075 150107 

002076 240120 

002077 054006 

002100 2514 1 4 

002101 402205 

002102 141701 

002103 044001 

002104 160440 

002105 232401 

002106 222400 


131 ! 

1 002107 104041 

002110 112461 

002111 042534 

002112 213414 

002113 042535 

002114 212714 

002115 741200 

002116 602503 

0021 1 7 556352 

002120 602130 

002121 556353 

002122 602130 

002123 556354 

002124 602503 

0C"*I25 556355 

002126 632503 

002127 606746 

002130 3N2635 

002131 112461 

f *02132 440062 

002133 741000 

002134 602154 

002135 042405 

002136 216315 

002137 042406 

002140 212714 

002141 556356 

002142 602162 


• • • 


• * • 
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MESS I 2 


HESS53 


/DTREAO 


-20000 

40000 

0 

5 

CLA 

SAD 

JHS 

JMP* 

220114 

201040 

266061 

406061 

406260 

406763 

0 

150107 

240120 

054006 

251414 

402205 

141701 

044001 

160440 

23240 1 

222400 

WWB 


UNIT 

EOF 

OECOUT 


POP 9 


/ WC 
/ CA 
/ BLK • 

/ WRITE 

/ mag tape? 

/ YES 

/ RAL 
/ PH 
/ VO I 
/ JAN 
/ 20 
/ 1973 
/ENO 
/MAG 


/ RE 

/LOAD 

/O A 

/NO 

/STA 

/RT 


/ETC T,A S’NBLF«; C 2S?r?2* OTREA °' REA0S Exp E«>M£NT 10. 

«arr* 


JMS 

JMS 

OAC 

LAC 

OAC 

LAC 

SNA 

JMP 

SAD 

JMP 

SAO 

JMP 

SAO 

JMP 

SAO 

JMP 

JMP 

OAC 

JMS 

ISZ 

SKP 

JMP 

OAC 

LAC 

OAC 

LAC 

SAO 

JMP 


AOCCHK 

OECIN 

0TRE2 

BC* I 

OTREI 

TC 

0TRE3 

1531 

0TRE4 

1551 

0TRE4 

(40 

OTRE3 

(761 

OTRE3 

OMARK 

SIGN 

OECIN 

A INF 

0TRE7A 
INPUTF 
( 1 1 

INPDI V 
TC 
•521 
OTRE7B 


THE COMMANO MUST BE FOLLOMEO BY 

/ CHECK IF AOC TO BE SHUTOOUN 
/GET EXPERIMENT 10 OR A •*» 

/ LOW 
/ HIGH 

/ CHECK TERM CHAR 

/ ZERO terminates 

/YES- IT WAS AN 10 NUMBER 

/ PLUS SIGN 

/YES 

/Ml NUS S I GN 

/YES 

/SPACE? 


/SAVE ASCII CODE FOR OR 
/GET MULTIPLYING FACTOR 
/ ANY INPUT? 

/NO 

/SAVE IN INPUT FACTOR 
/SET OIVISOR TO ONE 


IS TERMINATOR AN 
YES 


COAT2460 

COAT2470 

C0AT2480 

COAT2490 

COAT2500 

C0AT25I0 

COAT2520 

C0AT2530 

C0AT2540 

COAT2550 

COATP560 

COAT 2570 

C0AT2580 

COAT2590 

C0AT260C 

C0AT26I 0 

C0AT2620 

COAT2630 

COAT2640 

COAT2650 

COAT26AO 

COAT2670 

COAT 2330 

C0AT2690 

COAT2700 

COAT27IO 

COAT2720 

COAT2730 

C0AT2740 

COAT2750 

COAT2760 

C0AT2770 

COAT27BO 

COAT2790 

COAT2800 

C0AT28I 0 

CO AT 2820 

C0AT2830 

C0AT2840 

COAT2850 

COAT2860 

COAT2870 

CO AT 2880 

COAT 2890 

C0AT2900 

C0AT29I 0 

C0AT2920 

COAT2930 

COAT2940 

C0AT2952 

C0AT2960 

COAT2970 

COAT2980 

COAT2990 

COAT 3000 

COAT 30 I 0 

COAT3020 

COAT3030 
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002143 

556357 


SAO 

(57) 

/ IS IT A / 



COAT 3040 

002144 

741000 


SKP 


/YES 


. 

COAT 3050 

002 I 45 

606746 


JMP 

QMARK 

/NO-PRINT question 



COAT 3060 

002 146 

1 12461 


JMS 

OECIN 




C9AT3070 

002147 

”042406 


DAC 

1 NPO 1 V 




C0AT3U80 

002150 

212714 


LAC 

TC 




COAT 3090 

002151 

556356 


SAO 

(52) 

/ IT MUST 8£ AN • 



COAT 3 1 00 

002152 

602162 


JMP 

0TRE7B 




COAT 3 1 10 

002153 

606746 


JMP 

QMARK 

/IT WASN'T 



COAT 3 120 

002154 

750001 

0TRE7A 

CLC 





COAT 3 130 

002155 

055424 


OAC 

RFLG 

/ SET RFLG TO PRINT 

R 1 

1 R2 . 

COAT3I40 

002156 

113051 


JMS 

FINT 




C0AT3I50 

002157 

216600 


FLAC 

ONUMI 




CDAT3160 

002160 

716603 


FOIV 

ONOM! 

/ FORM FACTOR 



COAT3170 

002161 

602166 


JMP 

.♦5 




COAT 3 180 

002162 

155424 

0TRE76 

OZM 

RFLG 

/ CLEAR RFLG 



COAT 3 1 90 

002163 

113051 


JMS 

FINT 




COAT3200 

002164 

242405 


FLAG IS 

inputf 




C0AT32I0 

002165 

742406 


FOIVIS 

! NPO I V 

/ FORM MULTIPLING FACTOR. 

C0AT3220 

002166 

015536 


FOAC 

FFACT 




CDAT3230 

002167 

1 1 3666 


JMS 

FCLA 




C0AT3240 

002170 

015425 


FDAC 

ALGRES 

/ CLEAR RES 1 OUALS 



COAT 3250 

002171 

015430 


FOAC 

ABSRES 




OAT 3260 

002172 

015433 


FOAC 

SQRRES 




COAT 3270 

002173 

1131 12 


JMS 

FEXT 




COAT 3280 

002174 

202635 


LAC 

SIGN 




COAT 3299 

002175 

556352 


SAD 

(53) 




COAT 3300 

002176 

602202 


JMP 

. *4 




COA733IO 

002177 

215537 


LAC 

FFACT* 1 

/ LEGATE FACTOR 



COAT 3320 

002200 

356314 


tag 

(400000 




COAT 3330 

002201 

055537 


OAC 

FFACT* 1 




COAT 3340 

002202 

215570 


LAC 

FBLKSV 




C0AT3350 

002203 

055577 


OAC 

fblk 




COAT 3360 

002204 

442577 


SSZ 

SW 




COAT3370 

002205 

602556 


JMP 

ROSL-3 




C0AT3380 

002206 

1 12461 


JMS 

oecin 




COAT 3390 

002207 

042534 


OAC 

0TRE2 




CDAT3400 

002210 

213414 


LAC 

9C*I 




COAT 34 1 0 

00221 I 

042535 


OAC 

OTRE! 




COAT3H20 

0022)2 

106054 


JMS 

RODIR 

/RE AO OIRECTORY 



COAT 3430 

002213 

740200 


SZA 


/DECTAPE ERROR 



CDAT3440 

002214 

606257 


JMP 

RETC 




COAT 3450 

002215 

10614! 


JMS 

SEARCH 

/SEARCH FOR 10 



COAT3460 

002216 

206303 


LAC 

0 1 RFLG 




COAT 3470 

002t* I 7 

740200 


SZA 





COAT3480 

002220 

606746 


JMP 

QMARK 

/ 10 WAS NOT FOUNO 



COAT 3490 

002221 

2063Q5 


LAC 

BLKNO 

/PLACE THE EXPERIMENTS 


COAT 3500 

002222 

042606 

SWST 

OAC 

R08LK 

/BLOCK- IN ROBLK 



C0AT3510 

002223 

200053 


LAC 

STRPFG 




COAT 3520 

Cu2224 

7402C0 


SZA 


/COINC OR STRIP? 



C0AT3530 

002225 

6023! ! 


JMP 

OTRE0 

/ STRIP 



COAT 3540 

002226 

540051 


SAD 

bkgflg 




COAT 3550 

002227 

606746 


JMP 

QMARK 

/ DON’T SUM SPECTRA 

IN 

SEEK. 

COAT 3560 

002230 

202635 


LAC 

SIGN 




COAT 3570 

002231 

556352 


SAO 

(53) 

/IF ♦ . UPDATE CNTS , 

SCALERS. TIMES 

COAT 3580 

092232 

102407 


JMS 

SC0MB5 




COAT3590 

002233 

400052 


XCT 

xctbkg 




COAT3600 

002234 

340221 


TAD 

SUMONE 

/ LOAD SUM SPEC 



COAT 36 ID 
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002235 

102261 

002236 

•*00052 

002237 

J*»02I7 

0022V0 

102261 

0022VI 

•*00052 

0022W2 

3 **0220 

0022V3 

102261 

0022VV 

20005** 

0Q22V5 

7** 1200 

0022V6 

7777V 1 

0022V7 

356337 

002250 

0W2636 

002251 

2I63W3 

002252 

0V253V 

002253 

102261 

00225V 

20253** 

002255 

356333 

002256 

•*•*2636 

002257 

602252 

002260 

6025V0 

002261 

000000 

002262 

0V26V0 

002263 

205717 

00226V 

055535 

002265 

•*•*2606 

002266 

102600 

002267 

7V0200 

002270 

606257 

002271 

7000W2 

002272 

777V00 

002273 

0V2637 

00227V 

! 13051 

002275 

275535 

002276 

515536 

002277 

3626V 0 

002300 

1 1 3657 

002301 

1 1 3666 

002302 

' 0626V0 

002303 

VV26V0 

00230** 

•*55535 

002305 

VV2637 

002306 

602275 

002307 

1 13112 

002310 

622261 

00231 1 

V55V2V 

00231b 

602321 

002313 

l 13051 

00231*4 

216600 

002315 

1 1 *(32** 

002316 

216603 

002317 

1 IW32V 

002320 

1 131 12 

002321 

777*«00 

002322 

035V50 

002323 

2I5**23 

00232** 

055316 

002325 

2I53**5 

002326 

0SS3W6 
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0TRE5 


SCOMB 


SCOMI 


0TRE8 


JMS 

SCOMB 

XCT 

XCTBKG 

tad 

FSTART 

JMS 

SCOMB 

XCT 

XCT8KG 

TAO 

MSTART 

JMS 

SCOMB 

LAC 

FG5050 

SNA 

LAW 

-37 

TAO 

(-11 

OAC 

OTCT 

LAC 

CW0000I 

OAC 

0TRE2 

JMS 

SCOMB 

LAC 

0TRE2 

TAD 

(•*00) 

IS 2 

OTCT 

JMP 

OTRES 

JMP 

0TRE6 

0 

OAC 

OTTS 

LAC 

01 RONE 

OAC 

FOTPI 

ISZ 

ROBLK 

JMS 

.7TAPE 

SZA 

JMP 

RETC 

ION 

LAW 

-woo 

OAC 

OTCT 1 

j ms 

fint 

placis* 

FOTPI 

PMUL 

«TACT 

f ado i s* 

OTTS 

JMS 

SPASNA 

JMS 

FCLA 

FOAClS* 

OTTS 

ISZ 

OTTS 

ISZ 

FOTPI 

ISZ 

OTCT I 

JMP 

SCOMI 

JMS 

FEXT 

JMP* 

SCOMB 

ISZ 

rflg 

JMP 

.♦7 

JMS 

fint 

FLAC 

ONUHI 

JMS 

fprin 

PL AC 

ONOMI 

JMS 

fprin 

JMS 

FEXT 

LAN 

-woo 

OAC 

SCOMBC 

LAC 

SLIM 

OAC 

LlMCT 

LAC 

RESPTS 

OAC 

RESPT 


/ LOAD F SINGLES 


/ LOAO M SINGLES 


/ 5050? 

/NO 

/ SET OTCT TO COUNT 

/THE WO BLOCKS OP COINT DATA 


/ SAVE SPECTRUM LOCATION. 
/SET FOTPI TO AOR OF BUFFER. 


/LOAO BUFFER 
/OECTAPE ERROR 


/GET BUFFER HORO 


/ CLEAR FAC IF NEG . 


/ DONE 
/ NO 


/ PRINT R I 1 R2? 
/ NO 


/ PRINT R I 
/ PRINT R2 


/ SET LIMIT COUNTER 


COAT 3620 
COAT 3630 
COAT36WO 
COAT 3650 
CD*T3660 
CGAT3670 
COAT 3680 
C0AT3690 
COAT 3700 
C0AT37I 0 
COAT3720 
C0AT3730 
CDAT37W0 
COAT 3750 
C0AT3760 
COAT3770 
COAT37BO 
COAT3790 
C0AT3800 
COAT38IO 
COAT 3820 
. COAT 3830 
C0AT38W0 
COAT 3850 
COAT 3860 
COAT 3870 
COAT 3880 
COAT 3890 
COAT 3900 
COAT39IO 
COAT 3920 
C0AT3930 
COAT 39*0 
COAT 3950 
COAT 3960 
C0AT3970 
COAT 3980 
COAT 3990 
COATWOOO 
COAT WO I 0 
COATW020 
C0ATW030 
COATWOWO 
COATWOSO 
C0ATW060 
C0ATWQ7U 
COATWOSO 
COATW090 
CDATWI00 
COAT VI 10 
COATW 1 20 
COATW I 30 
CDATWI VO 
CDATVI50 
C0ATWI60 
CDATWI 70 
COATW ISO 
COATWI90 
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002327 

203323 


002330 

055507 


002331 

200212 


002332 

1 15436 


002333 

215423 


002334 

055316 


002335 

200213 


002336 

•15436 


002337 

215423 


002340 

055316 


002341 

200214 


002342 

1 15436 


002343 

215422 


002344 

055316 


002345 

215532 


002346 

055507 


002347 

200054 


002350 

741200 


002351 

777741 


002352 

042636 


002353 

777500 


002354 

055450 


002355 

216316 


002356 

055534 


002357 

200234 


002360 

042534 


002361 

1 15436 


002362 

155534 


002363 

777400 


002364 

055450 


002365 

202534 


002366 

356360 


002367 

602373 


002370 

1 15436 


002371 

202534 


002372 

356333 


002373 

042534 


002374 

442636 


002375 

60c.»70 


002376 

777600 


002377 

055450 


002400 

203323 


00240 r 

055507 


002402 

202534 


002403 

1 15436 


002404 

602540 


002405 

000000 

inputf 

002406 

000000 

1 NPDIV 

002407 

000000 

SCOMBS 

C024I0 

202405 


0024 1 1 

542406 


002412 

741000 


002413 

622407 


002414 

205717 


002415 

042640 


002416 

102600 


0024 17 

740200 


002420 

606257 



LAC 

CNOP 

/ STORE RESIDUALS 

DAC 

SC0MB4»4 


LAC 

STRSUM 


JMS 

SCOMBS 

/ STRIP SUM SPEC. 

LAC 

SLIM 


DAC 

LIMCT 


LAC 

FSTRIP 


JMS 

SCOMBS 

/ STRIP F 

LAC 

SLIM 


OAC 

LIMCT 


LAC 

MSTRIP 


JMS 

SCOMBS 

/ STRIP M 

LAC 

CLIM 


DAC 

LIMCT 


LAC 

SCORE T 

/ OON’T STORE RESIDUALS. 

OAC 

SC0MB4*4 

LAC 

FG5050 

/ SKIP iF 50/50 

SNA 



LAW 

-37 

/ GET ALL BUT LAST BLOCK 

DAC 

OTCT 

L/W 

-300 


OAC 

SCOMBC 

/ SKIP OVER COMMENT 

LAC 

(1001 


OAC 

FBUFA 


LAC 

FSTCOI 


DAC 

0TRE2 


JMS 

SCOMBS 

/ STRIP COINC 

OZM 

FBUFA 


LAW 

-400 


OAC 

SCOMBC 


LAC 

0TRE2 


TAD 

(300) 


JMP 

. *4 


JMS 

SCOMBS 


LAC 

DTRE2 


TAD 

(4001 


OAC 

0TRE2 


ISZ 

OTCT 

/ THROUGH? 

JMP 

.-5 

/ NO 

LAM 

-200 

/ -200 HILL OET ALL BUT CS- 

OAC 

SCOMBC. 


LAC 

CNOP 


OAC 

SC0M84*4 


LAC 

0TRE2 


JMS 

SCOMBS 


JMP 

0TRE6 


0 



0 



0 



LAC 

INPUTF 


SAD 

1 NPO 1 V 

/FACTOR - 1 ? 

SKP 


/YES 

JMP • ‘ 

SCOMBS 


LAC 

01 RONE 


DAC 

OTTS 


JMS 

RTAPE 

/READ IN .OUNTS. SCALERS. ETC 

SZA 


/ERROR? 

JMP 

RETC 

/YES. 


COAT4200 

C0AT42I0 

C0AT422C 

COAT4230 

LDAT4240 

COAT4250 

C0AT4260 

CDAT4270 

C0AT4280 

CDAT4290 

COAT4300 

C0AT43I0 

C0AT4320 

CDAT4330 

CDAT4340 

C0AT435C 

CDAT4360 

COAT4370 

COAT430O 

C0AT4390 

CDAT440L 

COAT 44 10 

COAT4420 

C0AT443G 

COAT4440 

C0AT4450 

C0AT4460 

COAT4470 

COAT4480 

COAT4490 

COAT4500 

CDAT45I0 

COAT4S20 

COAT4S30 

COAT4540 

COAT 4550 

COAT 4560 

COAT 4570 

C0AT4580 

COAT 4590 

COAT 4600 

COAT46IO 

CDAT4620 

COAT4630 

C0AT4640 

COAT 4650 

COAT 4660 

COAT4670 

C0AT468C 

COAT 4690 

COAT4700 

CCAT47I0 

COAT 4720 

COAT4730 

COAT4740 

COAT 4750 

COAT 4760 

COAT4770 
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002421 400052 XCT 

002422 345546 TAO 

002423 042535 OAC 

002424 042534 OAC 

002425 7777*4 LAM 

002426 042537 OAC 

002427 442640 SC0MB6 ISZ 

002430 442535 ISZ 

002431 442534 ISZ 

002432 222640 LAC* 

002433 054374 OAC 

002454 442640 ISZ 

002435 222640 LAC* 

002436 054373 OAC 

002437 222535 LAC* 

002440 054377 OAC 

002441 442535 ISZ 

002442 222535 LAC* 

002443 054376 OAC 

002444 216361 LAC 

002445 054375 OAC 

002446 054400 OA' 

002447 113051 JMS 

002450 214373 FLAC 

002451 113426 jMS 

002452 014373 FOAC 

002453 214376 FLAC 

092454 113426 JHS 

002455 314373 FAOO 

002456 1 1 3506 jm« 

002457 1131 12 JMS 

002460 213414 LAC 

002461 062534 OAC* 

002462 442534 | SZ 

002463 213415 LAC 

00246“ 062534 OAC* 

002465 442637 ISZ 

002466 602427 jmP 

002467 777772 LAW 

002470 042637 OAC 

002471 113051 JMS 

002472 442640 ISZ 

002473 442535 ISZ 

002474 262640 FLAC IS* 

002“75 362535 FAOO.S* 

0024/6 062535 FOAC IS* 

002477 442637 ISZ 

002500 602472 JHP 

002501 I 131 12 JMS 

002502 622407 jMP» 

002503 442577 OTRE2 ISZ 

002504 602561 JMP 

002505 1 06054 jMS 

002506 740200 S2A 

002507 606257 jMP 

002510 106141 jp,S 

002511 206303 LAC 

002512 740200 SZA 
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0025 1 3 

606746 


JMP 

QMARK 

/NO 

CDATS360 

0029 1 4 

206305 


LAC 

BLKNO 

/YES. SET STARTING BLOCK FOR REAO 

C0AT5370 

0025 1 9 

042606 


OAC 

RDBLK 


C0AT5380 

002516 

200051 

OTHEO 

LAC - 

8KGFLG 

/ BACKGROUND? 

COAT 5390 

002517 

741200 


SNA 



C0AT5400 

002520 

101602 


jms 

EHASC 


COAT54IO 

002521 

10261 1 


JMS 

ROSIN 


COAT5420 

002522 

740200 


SZA 


/OECTAPE ERROR 

C0AT5430 

002523 

606257 


JMP 

RETC 

/YES 

COAT5440 

002524 

216343 


LAC 

(400001 

/l ST LOC. OF CO INC. SPECTRUM 

C0AT5450 

002525 

042534 


OAC 

0TRE2 


C0AT5460 

002526 

442606 


ISZ 

R08LK 


CDAT5470 

002527 

202606 


LAC 

ROBLK 


C0AT5480 

002530 

042535 


OAC 

OTREI 


COAT5490 

002531 

401013 


XCT 

JMS 10 


COAT5500 

002532 

000000 


0 


/ 

C0AT55I 0 

002533 

760000 


-20000 


/ WC 

C0AT5520 

002534 

000000 

0TRE2 

0 


/ CA 

C0AT5530 

002535 

000000 

DTREI 

0 


/ BLK • 

COAT5540 

002536 

000003 


3 


/ REAO 

C0AT555Q 

002537 

451376 


•sz 

RWFG 

/SET REWIND. 

COAT 5550 

002540 

740000 

DTRE6 

NOP 



C0AT5570 

002541 

20005! 


LAC 

BKGFLG 


COAT558C 

002542 

740200 


SZA 


/0KG OR FG 

COAT5590 

002543 

602553 


JMP 

.♦10 

/ 8KG 

COAT5600 

002544 

236362 


LAC* 

cexpiofi 

/ SETUP HIGH OROER 

COAT56IO 

002545 

076363 


OAC* 

( EXP 1 OH 1 

/ EXP 1 0 . 

COAT5620 

002546 

2! 1 375 


LAC 

MAGUFL 


COAT 56 30 

002547 

151375 


02M 

MAGUFL 


CDAT564Q 

002550 

74! 200 


SNA 



COAT5650 

00255! 

603775 


JMP 

UNFOLD 

/ UNFOLO MATRIX ANO PLACE ON DISK 

COAT5660 

002552 

612! 17 


JMP 

SETI 


C0AT5670 

002553 

236364 


LAC* 

(EXPIOF«400> 

COAT 5680 

002554 

076365 


OAC* 

( EXP i OH* 4001 

COAT5690 

002555 

6 ! 2 ! 17 


JMP 

SET 1 


COAT5700 

002556 

1 12461 


JMS 

DEC IN 


CDAT57I0 

002557 

! 02564 


JMS 

OK 


COAT6720 

002560 

602222 


JMP 

SWST 


COA T 5730 

00256! 

202534 

ROSL 

LAC 

DTRE2 


ro aT5740 

002562 

8 02564 


JMS 

OK 


“OAT5750 

002563 

602515 


JMP 

DTREO-I 


CDA T 5760 

002564 

000000 

OK 

0 



CDA 15770 

002565 

042577 


OAC 

SW 

/SAVE AC 

C0AT5780 

002566 

741201 


SNA t CMA 


CQAT5790 

Qc 2567 

606746 


JMP 

OMARK 

/ ILLEGAL VALUE. 

CDAT5800 

002570 

355315 


TAO 

( 1 ) 


C0AT5BS 0 

00257! 

3457 i 6 


TAO 

FULL 


COAT5820 

002572 

741100 


SPA 



COAT5830 

002573 

606746 


JMP 

QMARK 

/VALUE TOO LARGE. 

COAT58' 4 0 

002574 

202577 


LAC 

SW 

/RESTORE AC. 

COAT505O 

002575 

40 1014 


XCT 

JMSBLK 


C0AT5860 

002576 

622564 


JMP* 

OK 


CDAT5870 

002577 

000000 

sw 

0 


/USEO BY GET3.GET . RSEQ . GSEO , LSGRT 

C0AT5880 



/ROUTINE 

TO REAO 

ONE BLOCK FROM DEC TAPE 

CDAT5890 

002600 

000000 

PTAPE 

0 



COAT5900 

002601 

042605 


OAC 

RTAPI 

/SAVE 1ST CORE LOCATION 

COAT59IO 

002602 

401013 


XCT 

JMS ! 0 

/ XCT I/O 

COAT5920 

002603 

000000 


0 



COAT5930 
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002604 777400 
008605 000000 
002606 000000 
002607 000003 
002610 622600 


002611 000000 

0026 1 2 H00052 

002613 345546 

0026 1 4 1 02600 

002615 151376 

002616 442606 

002617 740200 

002620 6226 • I 

002621 400052 

002622 340221 

002623 1 02600 

002624 400052 

002625 340217 

002626 442606 

002627 102600 

002630 400052 

002631 340220 

002632 442606 

002633 1 02600 

002634 622611 

002635 000000 

002636 000000 

002637 000000 

002640 000000 

002641 000000 


002642 

002643 

002644 

002645 

002646 

0T2647 


102754 
21 1374 
744001 
351373 
740400 
602653 
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-400 


/ wc 

RTAPI 

0 


/ CA 

R08LK 

0 


/ BLK • 


3 


/ RE AO 


JMP* 

r T APE 


/ROSIN 

HUB 

POP 9 


/ROUTINE 

TO RE AO 

SINGLES SPECTRA FROM DEC TAPE 

/INTO THEIR NORMAL OATA ACQUISITION ADDRESSES 

ROSIN 

0 




XCT 

XCT8KG 



TAO 

8LK0NE 

/SCALERS 


JHS 

RTAPE 



OZM 

RHFG 

/ CLEAR REHI NO-ON-MAG FLAG 


ISZ 

ROBLK 



SZA 




JHP* 

ROSIN 



XCT 

XCT8KG 



TAO 

SUMONE 

/IST LOCATION OF SUM SPECTRUM 


. JHS 

RTAPE 

/REAO OEC TAPE 


XCT 

XCTBKO 



TAO 

FSTART 

/IST LOCATION F256 


ISZ 

ROBLK 

/ADVANCE OEC TAPE BLOCK 


JHS 

RTAPE 



XCT 

XCTBKO 



TAO 

MSTART 

/IST LOCATION M256 


ISZ 

ROBLK 



JHS 

RTAPE 



JMP* 

ROSIN 

/RETURN 

SIGN 

0 



OTCT 

0 



DTCTI 

0 



OTTS 

0 



OTTSI 

0 



/LSORT 

RCO 

8/23/71 



/ROUTINE TO SORT TWO OAtA LISTS XF ANO N< . 

/ASSUMES AOC RAMPS* 1 024 CHANNELS. STORES F ANO M 
/SINGLES IN |26 ANO 256 CHANNEL SPECTRA. STORES 
/COINCIDENCE DATA IN MEMORY AS 127X127 MATRIX ANO 
/ON TAPE AS 256X256 MATRIX. 127X127 MATRIX STOREO 
/IN UPPER CORE BANK. 


sLTZnVrVT 5" PER SEC0N0 IN A GIVEN EXPERIMENT THAT MAY BE 

/HANDLED CAN 8£ ESTIMATED FROM THE FOLLOHING OATA 
/ TYPE OF EVENT APPROX. SORTING TIME 
/F SINGLE 55 MICRO SECONOS 


/M SINGLE 57 MICRO SECONDS 

/GOOO CO INC 166 MICRO SECONOS 

/SINGLE r'EJECT 42 MICRO SECONOS 

/COINC. REJECT 46 MICO SECONOS 

0C ‘ ES N0T ,NCLU0E A CONSTANT TIME OF 54 MICROSECONDS AT THE 
/Sur OF THE SORTING OF EACH BUFFER TO INITIALIZE AND RESTART 

/THE AOC«S. THIS OF COURSE ADDS 54/16 MICRO SECONOS TO 
/THE AVERAGE SORTING TIME FOR EACH EVENT 


INTRO 


JMS 

LAC 

CHAICLL 

TAO 

SNL 

JMP 


LSORT 

MTRCLM 


/ SORT LISTS 
/GET LIMIT 


MTRCCT /PASSED LIMIT? 


C0AT5940 

CDAT5950 

COAT5960 

CDAT5970 

COA'. 5980 

CDaT5990 

CDAT6000 

COAT6010 

CDAT6020 

COAT6030 

C0AT6040 

C0AT6050 

CD AT 6060 

CD*T6070 

COaTBOBO 

CDAT6090 

COAT6IOO 

C0AT61 10 

COAT6I20 

COAT6I30 

COAT6.40 

C0AT6I50 

COAT6I60 

COAT6I70 

COAT6IBO 

C0AT6 1 90 

COAT6200 

C0AT6210 

COAT 6220 

COAT6230 

COAT6240 

COAT6250 

COAT6260 

CDAT6270 

SORTOOOO 

SORTQOIO 

S0RTC020 

SORT0G30 

SORTQ040 

SORT 0050 

SORT0060 

SORT0070 

SORTOOBO 

SORTOOBO 

SORTOlOO 

S0RT01 10 

S0RT0120 

SON TO I 30 

S0RT0.40 

SORT 0 1 50 

S0RT0I60 

SORT 0 1 70 

SORT'O 1 80 

SORT0I90 

SORT 0200 

SORT 02 1 0 

SORT0220 

SORT0230 
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002650 

101662 


JMS 

AOCSTP 

/YES- STOP AOC 

002651 

762075 


LAW 

MESS53 

002652 

107031 


JMS 

. MESCOM 

/PRINT MESSAGE 

002653 

801751 


LAC 

OETAOO 

00865*1 

741800 

INTRO 1 

SNA 


/HAVE CO INC EVENT TO PUT OISK? 

002655 

607436 


JMP 

RET 

/NO 

002656 

203323 


LAC 

CNOP 

/PREVENT EXECUTION OF THIS CODE 

002657 

0V265V 


OAC 

. INTRO 1 

/UNTIL ALL COINC EVENTS WRITTEN 

002660 

707212 


OLOK* 10 


002661 

751100 


SPA 1 CL A 


/ OISK BUSY? 

008668 

60272V 


JMP 

INTR04 

/YES 

002663 

707272 


OSRS* 1 0 


/ OISK status 

00266V 

516366 


AND 

(777770; 

002665 

7V02Q0 


SZA 


/ OISK INTERUPT PEN01NG? 

0G8666 

608784 


JMP 

INTR04 

/YES 

008667 

802655 


LAC 

INTROI ♦ 1 


008670 

048747 


OAC 

AOCOSK- 1 


008671 

760003 

INTR02 

LAW 

3 

/READ FUNCTION 

008678 

048710 


OAC 

DKFUNC 

008673 

816367 


LAC 

( JMP INTROS 1 

008674 

043463 


OAC 

OKINTI 

/ SET INTERUPT AOR. 

008675 

707842 


osco 


/ CLEAR STATUS REG. 

008676 

707074 


OLA 1*10 


f LOAO OISK #0. 

008677 

777777 


LAW 

-1 

002700 

OV0036 


OAC 

36 

/ wc 

008701 

216370 


LAC 

« INTR05- 

1 ) 

008708 

040037 


OAC 

37 

/ CA 

002703 

222752 


LAC* 

LSTAOR 

/ GET OISK AOR. 

00270V 

7VI 100 


SPA 


002705 

608738 


JMP 

1NTR06 

/ YES. HE 'RE OONE 

008706 

VV2752 


isz 

LSTAOR 

008707 

707024 


OLAL 


/ LC AO OISK AOR 

008710 

760003 

DKFUNC 

LAW 

3 


0087! I 

707047 


OSGO 



008718 

607436 


JMP 

RET 


008713 

760005 

1NTR03 

LAN 

5 

/ HRITE FUNCTION 

008714 

042710 


OAC 

DKFUNC 


008715 

442731 


ISZ 

INTR05 

/ INCREMENT OISK CONTENTS 

008716 

740000 


NOP 


0087 \ 7 

777777 


LAW 

-1 


008780 

348758 


TAO 

LSTAOR 

/ OECREMENT LIST POINTER 

008781 

048758 


OAC 

LSTAOR 

008788 

816371 


LAC 

(JMP INTR02I 

008783 

602674 


JMP 

1NTR02+3 


008784 

816371 

INTR04 

LAC 

(JMP INTR081 

008785 

043463 


OAC 

OKINTI 


008786 

216372 


LAC 

(JMP OKINT i ♦ 1 1 

008787 

048747 


OAC 

AOCOSK- 1 


008730 

607436 


JM*' 

RET 


00273 ! 

000000 

INTR05 

C 



002732 

141751 

INTR06 

OZM 

OETAOO 


008 >33 

804546 


LAC 

CSNA 


008734 

048654 


OAC 

INTROI 


008735 

802753 


LAC 

COlLST 


008736 

048758 


OAC 

LSTAOR 

/ LIST POINTER FOR OISK ROUTINE 

008737 

048751 


OAC 

LSTAO 

/LIST POINTER FOR SORT ROUTINE 

002740 

204641 


LAC 

AOCCO 

002741 

740200 


SZA 


/ ENABLE AOC? 








30 


S0RT02V0 

SORT 0250 

SORT 0260 

S0RT0270 

SORT 0380 

S0HT0290 

SORT 0300 

SORT03I0 

SORT0320 

SORT 0330 

S0RT03V0 

SORT 0350 

SORT0360 

SORT0370 

S0RT038Q 

SORT0390 

SOF.TOVOO 

SORfOVIQ 

SORT 0V20 

SORT0V3O 

SORTOVVO 

SORTOVSO 

SORT0V60 

SORTQV70 

SORTOVSO 

SORTQV90 

SORT 0500 

SORT0510 

S0RT0520 

SORT 0530 

SORT 05 VO 

SORT0550 

SORT 0560 

SORT 0570 

SORT 0560 

SORT 0590 

SORT0600 

S0RT06I0 

SORT 0620 

S0RT0630 

SORT 06 VO 

SORT 0650 

SORT 0660 

SORT 067(J 

SORT 0680 

SORT0690 

SORT 0700 

SORT0710 

SORT 0720 

SORT 0730 

SORT07V0 

SORT0750 

SORT 0760 

S0RT0770 

S0RT0780 

SORT 0790 

SORT0800 

SORT 08 10 
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0Q8742 

602746 


008743 

202750 


008744 

740200 


002745 

103406 


008746 

1 42750 


008747 

603464 


008750 

000000 

AOCOSK 

008751 

000000 

LSTAO 

008758 

000000 

LSTAOR 

008753 

031 100 

COILST 

008754 

000000 

(.SORT 

008755 

203255 


008756 

740200 


008757 

602767 


002760 

200227 


002761 

040244 


092762 

200230 


002763 

040245 


002764 

200242 


008785 

043255 


002766 

602774 


008767 

200231 

LSORI 

008770 

040244 


002771 

200232 


008778 

040245 


008773 

143255 


008774 

200227 

LS0R2 

008775 

343255 


002776 

040041 


008777 

340241 


003000 

040043 


003001 

203257 


003002 

040040 


003003 

040042 


003004 

202751 


003005 

356373 


003006 

740100 


003007 

603016 


003010 

204641 


00301 1 

740200 


003012 

603020 


003013 

200225 


003014 

701244 


003015 

603020 


003016 

103375 


003017 

448750 


003080 

701 124 


003w2l 

70 1 104 

LS0R2I 

003022 

203257 


QU3023 

043260 


003024 

440244 


003025 

440245 


003086 

220844 

LS0R3 

003087 

741100 


003030 

603056 


003031 

503256 


003032 

744010 


003033 

040246 



P0P9/I5 

ASSEMBLY L 

I ST I NO • • • PACE 

J HP 

. *4 


LAC 

AOCOSK 


SZA 

jus 

ONADC 


DZH 

AOCOSK 


JHP 

o 

OK INTI* 

1 / OR JMP RET OR JHP 0 1 SK 10* 1 0 

0 

0 

31 100 
0 

LAC 

BFLOP 


SZA 


/LISTS ONE 

JHP 

LSORI 

/NO 

LAC 

F8l 

/YES. SET LIST LOCATIONS FOR 

OAC 

POATA 

/SORTING FIRST LIST 

LAC 

MSI 

DAC 

HOATA 


LAC 

BUFLEN 

/RESET 9FL0P 

OAC 

BFLOP 


JH° 

LS0R2 


LAC 

FB8 

/SET UP LIST LOCATIONS 

OAC 

rOATA 

/FOR SORTING 2N0 LIST 

LAC 

M88 

OAC 

MOAT A 


OZH 

BFLOP 

/RESET BFLOP 

LAC 

FBI 

/oetsrhine new current aooress 

tad 

BFLOP 

OAC 

4! 

/»' starting adore ss 

TAO 

LSTTOT 


OAC 

43 

/h starting aooress 

LAC 

HLSTEN 

/set uoro counter 

OAC 

40 


OAC 

48 


LAC 

LSTAO 


TAO 

t-31 160) 


SHA 

JHP 

LSOR8I-3 

/ RAN OUT OF LIST SPACE 

LAC 

AOCOO 

SZA 


/ ENABLE A0C? 

JHP 

LS0R8I-I 

/ NO 

LAC 

ACC MOO 

/GET MODE VALUE 

AOCOP 


/SET A0C MODE 

JHP 

LS0R2 1 - 1 


JHS 

cffaoc 


is: 

AOCOSK 


~0I ian 
CFOV 


/ CLEAR ADCS 

LAC 

HLSTEN 


OAC 

NOEVNT 

/SET list counter 

ISZ 

FOATA 


ISZ 

MOATA 


LAC* 

FOATA 

/GET NEXT FEVENT 

SPA 


/tagoeo f 

JHP 

LS0R4 | 

/NO 

ANO 

STMASK 

/YES 

RCL 

OAC 

LSTCMP 

/SAVE 


31 


soRToeao 
SORT0830 
S0RT0B40 
SCRT0B50 
SuRT 0860 
SORT0870 
SORT 0880 
SORT 0890 
50RT0900 
SORT09I0 
SORT0920 
SORT0930 
SORT0940 
SORT 0950 
SCRTG960 
SORT0970 
SORT 0980 
SORT0990 
SORT I 000 
SORT I 010 
SORT 1 080 
SORT 1 030 
SORT I OHO 
SORT I 050 
SORT 1 060 
SORT I 070 
SORT 1 080 
SORT I 090 
SORTI 100 
SORT til 0 
SORTI 1 20 
SORT I I 30 
SORTI |H0 
SORTI 150 
SORTI 160 
SORT I | 70 
SORTI 180 
SORTI 190 
SORT 1800 
SORT 1810 
SORT 18*0 
SORT 1830 
SORT 1 240 
SORT 1 850 
SORT I860 
SORT 1 870 
SORT 1880 
SORT 1890 
SORT I 300 
SORT I 310 
SORT I 380 
SORT | 330 
SORT 1 340 
SORT 1350 
SORT | 360 
SORT I 370 
SORT I 380 
SORT I 390 
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00303* 

2202*5 


LAC* 

HOATA 

/OET NEXT HE VENT 

003035 

7*0100 


SNA 


/TAGGED H 

003036 

603055 


JHP 

LSOR* 

/NO 

003037 

503256 


AND 

STHASK 

/YES 

0030*0 

3*02*6 


TAO 

lstshp 

/SUN 10 ’S 

0030*1 

55637* 


SAO 

(2000001 

/F SINGLES 

0030*2 

603076 


JHP 

LS0R7 

/YES 

0030*3 

35631* 


SAO 

(*000001 

/M SINGLES 

0030** 

603110 


JHP 

LS0R8 

/YES 

0030*5 

956375 


SAO 

(1*00001 

/GOOD CO INC 

0039*6 

603126 


JHP 

LS0R9 

/YES 

0030*7 

356376 


SAO 

(6000001 

/SINGLES REJECT 

003050 

6032*3 


JHP 

L30RI* 

/YES 

003051 

7**010 


RCL 


/NO 

003052 

7**010 


RCL 



003053 

556376 


SAO 

(6000001 

/CO INC. REJECT 

00305* 

603250 


JHP 

LSOR IS 

/ YES 

003055 

2202** 

LSORH 

LAC* 

POATA 

/NO 

003056 

3602*5 

LSORWl 

TAO* 

HOATA 


003057 

7*1200 


SNA 


/END OF PARTIAL SUFFER 

OQ3060 

62275* 


JHP* 

LSORT 

/YES 

003061 

*76377 

LS0R5 

ISZ* 

(EREJLO) 

/ NO. ERROR REJECT 

003062 

603065 


JHP 

LS0R6 


003063 

*62015 


1SZ* 

COUNTO* 1 7 

/ EREJHI 

00306* 

7*0000 


NOP 


/36 BIT OVERFLOW 

003065 

1602** 

LS0R6 

OZH* 

TOATA 

/ZERO SORTED ENTRIES 

003066 

1602*5 


OZH* 

HOATA 


003067 

**02** 


ISZ 

FDATA 

* ADVANCE LISTS 

003070 

7*0000 


NOP 



003071 

**02*5 


ISZ 

HOATA 


003072 

7*0000 


NOP 



003073 

***3260 


ISZ 

NOEVNT 

/FNO OF BUFFER 

00307* 

603026 


JHP 

LSOR1 

/NO 

003075 

62275* 


JHP* 

LSORT 

/YES 

003076 

2202** 

LS0R7 

LAC* 

FDATA 


003077 

103263 


JHS 

CONVRT 

/GET 238 RAMP 

003100 

3*0217 


TAO 

FSTART 

/CALCULATE AOORCSS 

003101 

0*02*7 


OAC 

1NCLOC 

/SAVE 

003102 

*602*7 


ISZ* 

INCLOC 

/INCREMENT F SPECTRUM 

003103 

7*0000 


NOP 



00310* 

*76*00 


ISZ* 

(FSINLOI 

/ INCREMENT F SCALER 

003105 

603110 


JHP 

LSGRB 


003106 

*62003 


ISZ* 

C0UNT0*5 

/ FSINH! 

003107 

7*0000 


NOP 


/36 PIT OVERFLOW 

0031 10 

2202*5 

LS0R8 

LAC* 

HOATA 


0031 1 1 

7*0010 


RAL 


/ IS H 0000 

Ottl 12 

7*1 120 


jPAIRAR 


/CHECK ANO RESTORE 

0031 13 

603065 


JHP 

LS0R6 

/ NO 

0031 1* 

103263 


JHS 

CONVRT 

/OET 236 RAMP 

G03I 15 

3*0220 


TAO 

HSTART 

/CALCULATE AODRESi 

0031 16 

0*02*7 


OAC 

INCLOC 


003117 

*602*7 


ISZ* 

INCLOC 

/INCREMENT M SPEC ROM 

003120 

7*0000 


NOP 



003121 

*76*01 


ISZ* 

(HSINLOI 

/ INCREMENT H SCAt ER 

003122 

603065 


JHP 

LS0R6 


003123 

*62005 


ISZ* 

COUNTO*7 

/ MSINMI 

00312* 

7*0000 


NOP 


/36 BIT OVERFLOW 

003.25 

603065 


JHP 

LS0R6 
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SORT moo 
SORTimo 
sort 1*20 

«ORTI*30 
SORT 1**0 
SORT I *50 
SORT|*60 
SORT t *7Q 
SORT m80 
SORT 1*90 
SORT 1500 
SORT 1510 
SORT 1520 
SORT 1530 
SORT 1 5*0 
SORT | 550 
SORT 1560 
SORT 1570 
SORT 1580 
SORT 1590 
SORT 160 C< 
SORT 1610 
SORT 1620 
SORT | 630 
SORT 16*0 
SORT I6S0 
SORT 1660 
SORT 1670 
SORT 1 660 
SORT 1 690 
SORT 1700 
SORT 1710 
SORT 1 720 
SORT 1 730 
SORT 1 7*0 
SORT 1750 
SORT 1 760 
SORT 1 770 
SORT | 780 
SORT 1780 
SORT 1 800 
SORT 1810 
SORT 1820 
SORT 1830 
SORT 18*0 
SORT 1850 
SORT 1 860 
SORT 1 870 
SORT 188c 
SORT i860 
SORT 1 900 
SORT 1910 
SORT 1920 
SORT 1930 
SORT 19*0 
SORT 1950 
SORT 1960 
SORT 1970 
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003136 330315 

003137 103363 

003130 010333 

003131 711030 

003133 01025? 

003133 330311 

0031 31 103363 

003 1 35 OH 0333 

003136 711030 

003137 010360 

003 IHO 300333 

003 1 HI 310333 

003 I H3 356103 

003113 710100 

003111 750000 

003115 356103 

003116 310331 

003117 010317 

003150 300051 

003151 710300 

003153 603301 

003153 300360 

003151 710001 

003155 3563 IS 

003156 310357 

003157 710100 

003160 603176 

003161 300357 

003163 313361 

003153 711100 

003161 603301 

003165 313363 

003166 710100 

003167 603301 

003170 316101 

003171 310360 

003173 010331 

003173 160331 

003171 710000 


003175 

603301 

003176 

200360 

003177 

01 1 757 

003300 

300357 

003301 

010360 

003303 

391757 

093303 

0 U 0357 

003301 

777777 

003305 

310333 

00^306 

“11000 

003307 

610710 

C033I0 

310333 

00331 1 

356337 

003313 

063751 

9C33I3 

113751 

903311 

101751 

003315 

010231 

003316 

777777 

003317 

062751 
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LS0R9 


LSOR I 3 


LS0R13 


LAC* 

4HS 

OAC 

RCR 

OAC 

LAC* 

JHS 

OAC 

RCR 

OAC 

LAC 

TAO 

TAO 

SMA 

CLA 

TAO 

TAO 

OAC 

LAC 

SZA 

JMP 

LAC 

CHA 

TAO 

TAO 

SNA 

JHP 

LAC 

TAO 

SPA 

JMP 

TAO 

SMA 

JMP 

LAC 

TAO 

OAC 

ISZ* 

NOP 

JMP 

LAC 

OAC 

LAC 

OAC 

LAC 

OAC 

LAm 

TAO 

CLL 

ALS 

TAO 

TAO 

OAC* 

ISZ 

JHS 

OAC 

LAN 

OAC* 


MOATA 

CONVRT 

MCHANL 

PAX IS 
FOATA 
COHORT 
FCHANL 

MAXIS 

FCHANL 

MCHANL 

1-3771 


«377l 

SUNONE 

INC IOC 

OKGFLG 

LSORl 3 
MAXIS 

1 1 1 

PAX IS 

LSOR 13 

PAX'S 

LOML 

LSOR 1 3 
highl 

LSOR 1 3 
(S7600) 
MAXIS 
CO I NAD 
COINAO 

LSOR (3 
MAXIS 
OCTAI 
PAX IS 
MAXIS 
OETAI 
PAX IS 
-I 

MCHANL 

10 

PCHANL 
• -II 
LSTAO 

lstao 

oetaod 

COINAO 

■I 
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'GET 356 RAMP 
'MAKE 136 RAMP 

'GET 356 RAMP 
'MAKE 136 RAMP 

/h!lF U OP SS FR0M P I AST 

/HALF OF 356 PLUS 356 

'356 CERTA,N SUH >S N0T 0VER 

'IP IT IS SET TO 355 
'SUM AOORCSS 


' P CHANS 


' M CHANS 
'M > OR • TO F 
'YES 

J* <- M<»I5 THEN 
'STORE IN M-137 
'IS I3<-MT 
' NO 

• IS M(-I5 
/ NO 

' BEGINNING OF Ha 137 


'REVERSE M I F. 


' A»356* ( Y- 1 ) «x- I , 
' MULTIPLE 6V 356. 


' OETERMINE FOLDED COINC A OR 


lstao 


33 


SORT 1 960 
SORT 1 990 
SORT3000 
SORT30I0 
S JRT3030 
L0RT3030 
SORT3010 
SORT 3050 
S0RT3060 
SORT3070 
SORT 3060 
SORT3090 
SORT3IOO 
S0RT3I IC 
SORTS | 30 
S0RT3I 30 
SORT3H0 
S0RT3I50 
SORTS 160 
SORTS | 70 
SORTS 1 80 

SORTS 1 96 

SORT3300 

S0RT33I0 

SORT 3330 

S0RT3330 

S0RT3310 

SORT 3350 

S0RT3360 

SQRT3370 

SORT 3380 

SORT 3390 

SORT3300 

S0RT33I0 

SORT 3330 

SORT3330 

S0RT3310 

SORT3350 

S OR T 3360 

S0RT3J70 

S0RT33R0 

SORT33SIO 

S0RT3100 

S0RT31I0 

SORT 3130 

SORT 31 30 

S0RT3110 

S0RT3150 

SORT3160 

SCRT3170 

SORT 3180 

SOR 3190 

S0RT3500 

S0RT35I0 

SORT 3530 

SORT3530 

S0RT3510 

S0RT3550 



E-35 


03/02/73RALPH RIC C. DAVIES PDP-9 


003220 200091 
003221 7m 200 
003222 460224 
003223 740000 
00322** 460247 
003225 740000 
003226 200222 
003227 7***tOIO 
003230 7**20 1 0 
003231 7 **20 10 
003232 742010 
003233 7*«20 S 0 
00323** 3H0223 
003235 1 1 1 1 00 
003236 **76**05 
003237 603065 
003240 **620 1 1 
0032m 7 **0000 
003242 603065 
003243 476406 
003244 603065 
003245 462007 
003246 740000 
003247 603065 
003250 476407 
003251 603065 
003252 4620 1 3 
003253 740000 
003254 603065 
003255 000000 
003256 340000 
003257 000000 
003260 000000 
003261 777766 
003262 777774 


003263 000000 
003264 742020 
003265 516403 
003266 741200 
003287 603061 
003270 623263 


003271 106737 
003272 216343 
003273 043305 
003274 223305 
003275 5564 1 0 
003276 606257 
003277 1 06752 
003300 443305 
003301 203305 
003302 540234 
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LAC 

BKOFLG 



SNA 




ISZ* 

CO I NAD 

/INCREMENT CO INC. SPECTRUM 


NOP 




ISZ* 

INCLOC 

/INCREMENT SUM SPECTRUM 


NOP 




LAC 

FCHANL 

/PACK CHANNELS FOR 


RCL 


/WRITING IBM TAPE 


RTL 




RTL 




RTL 




rtl 




TAO 

MCHANL 


JMSBUF 

JMS 

MTBUF 

/PUT COINC. EVENT (N TAPE BUFF 


ISZ* 

CCSCLLOl 

/ INCREMENT COINC. SCALER 


JMP 

LS0R6 



ISZ* 

COUNTO* 1 3 

/ CSCLHI 


NOP 




JMP 

LS0R6 


LS0RI4 

ISZ* 

(SREJLOl 



JMP 

LS0R6 



l„Z* 

COUNTO* 1 1 

/ SREJHI 


NOP 




JMP 

LS0R6 


LS0RI5 

ISZ* 

(CREJLOl 



JMP 

LS0R6 



ISZ* 

COUNTO* 15 

/ CREJHI 


NOP 




JMP 

LS0R6 


3FL0P 

0 


/buffer INOICATOR 

STMASK 

340000 


MASK FOR 10 BITS WITHOUT AOC 10 

MLSTEN 

0 


/2-S COMPLEMENT OF LIST LENGTH 

NOEVNT 

c 



LOUL 

-12 


/LOW LIMIT FOR HINOOW I2<-M 

HiGHL 

-4 


/HI OH LIMIT FOR WlNOOW H«I9 

/CONVRT 

HUB 

POP-9 

9/14/68 


/ROUTINE TO CONVERT A 1024 RAMP AOORESS TO A 256 RAMP AOORESS. 
/ALSO CHECKS EACH INOIVIOUAL CHANNEL NUMBER TO SEE THAT 
/IT IS NOT ZERO. IF THE CHANNEL NUMBER'O THEN THE EVENT 
/IS OISCAROEO AS AN ERROR REJECT. 

CONVRT Q 


RTR 


/OIVIOE BY 4 


ANO 

C 377 ) 

/MASK OFF CHANNEL 

NUMBER 

SNA 


/CHANNEL -0 


JMP 

LS0R5 

/YES 


JMP* 

CONVRT 

/ NO. RETURN 


/CUR P0P9 

SEP I960 



/subroutine to 

PRINT COMMENT 

STOREO BY COMM 


COMMPS JMS 

CRLF 



LAC 

(<40000) 



OAC 

COMPT 



C0MM3 LAC • 

COMPT 

/GET ONE 


SAD 

(215) 

/IS IT A CARRIAGE 

RETURN 

JMP 

RETC 

/ YES-RETURN 


JMS 

PRINT 

/NO PRINT IT 


IS 2 

COMPT 



LAC 

COMPT 



SAO 

FSTCOI 

/END OF STORAGE 



S0RT2560 
SORT 2570 
S0RT2S80 
SORT2590 
SORT2600 
S0RT26I0 
SORT 2620 
S0RT2630 
SORT 2640 
SORT2650 
SORT 2660 
SORT 2670 
SORT 2680 
S0RT2690 
SORT 2700 
S0RT27IC 
S0RT2720 
SORT 2730 
S0RT2740 
S0RT2750 
S0RT2760 
SORT277C 
SORT27BO 
S0RT2790 
SORT 2000 
S0RT28I0 
SORT 2820 
SORT 2830 
S0RT2840 
S0RT28S0 
SORT 2860 
S0RT2870 
S0RT288G 
SORT 2890 
SORT2900 
S0RT29I 0 
S0RT2920 
SORT 2930 
S0RT29HG 
SORT 2950 
S0RT2B60 
SORT2970 
SORT2980 
SORT2990 
SORT 3000 
SORT 30 10 
SORT 3020 
SORT 3030 
SORT 3040 
S0RT305C 
SORT 3060 
SORT 3070 
SORT 3080 
SORT 3090 
SORT 3 1 00 
SORT 31 i 0 
SORTS 1 20 
SORT 3 1 30 
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003303 606297 
00330* 60327*4 
003305 000000 


003306 70220* 

003307 702201 

003310 *§335 I 

003311 7H0000 

003312 607*436 

003313 70222*4 

,1 00331*4 702221 

ii 003315 *463353 

003316 7*40000 

0033 1 7 607*436 

003320 7022*4*4 

|j 003321 7022*4 1 

|{ 00 3322 *463355 

[ 003323 7*40000 

ji 00332*4 607*436 

l 003325 70226*4 

H 003326 702261 

!i 003327 *463357 

)j 003330 7*40000 

;| 003331 607*436 


003332 

200226 

003333 

7*0200 

00333*4 

105237 

003335 

107557 

003336 

605055 

003337 

200226 

003340 

7*0200 

0033*4 1 

1 05237 

0033*42 

1033** 

0033*43 

605055 

0033*4*4 

000000 

0033*45 

200052 

0033*46 

051653 

0033*47 

II 1625 

003350 

011700 

003351 

230005 

0C3352 

01 1703 

003353 

230007 

''0335*4 

01 1706 

003355 

23001 1 

003355 

01 171 1 

003357 

230013 

003360 

6233** 

003361 

1050*7 

003362 

107077 

003363 

305250 

00336*4 

306317 
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COMPT 

/ 

/SCALER 

/ 

AENT 


RETC / YES 

COMM /NO 

/COMMENT POINTER 


INTERRUPT SERVICE ROUTINE. 



ISZ* 

NOP 

SCAER+S 


JMP 

RET 

BENT 

SPSS 

ENSB 



ISZ* 

NOP 

SCAER*7 


JMP 

RET 

CENT 

SPSC 

ENSC 



ISZ* 

SCAER* 1 1 

CNOP 

NOP 



JMP 

RET 

DENT 

Sr SO 
ENSO 



ISZ* 

tlOP 

SCAER* | 3 


JMP 

RET 

/COUNTS 

MMB 

POP 9 


/STOP SCALER A 
/ENABLE SCALER A 
/ INCREMENT OVERFLOW LOC. 
/IN CASE OF 18 BIT OVERFLOW 

/STOP SCAlER 8 
/ENABLE SCALER B 


/STOP SCALER C 
/ENABLE SCALER C 

/USEO AS A CONSTANT. 

/STOP SCALER 0 
/ENABLE SCALER 0 


TO LIST NUMBER OF 0000 ANO REJECT EVENTS 
TO °RINT THE TIMES 


L.\C 

SZA 

JMS 

JMS 

JMP 

TO PRINT 
LAC 
SZA 
JMS 
JMS 
JMP 


ADC ON 

REAOCS 

TIME 

panret 

THE SCALERS 
AOCON 

REAOCS 

SCAER 

PANRET 


/IS AOC ON 

YES - READ ON FLY 
/NO 


/IS AOC ON 

/USEO AS A CONSTANT. 
/YES - RE AO ON FLY 
/NO 


INE TO PRINT THE CONTENTS OF SCALER A. 8. C. ANO 


I.AC 

OAC 

JMS 

MESS3 

OBLISCALRA 

MESS* 

0BLISCALR8 

MESS5 

OBLISCALRC 

MESS6 

OBLISCALRD 


XCTBKG 

MIOI 

MIO 


JMP* 

JMS 

JMS 

305250 

306317 


SCAER 
PAOCB 
PR I OF 


USEO AS A POINTER. 
USEO AS A PuINTEfl. 
USEO AS A POINTER. 
USEO AS A POINTER. 


SORT 3 I *0 
S0RT3I5P 
S0RT3 1 60 
SORT3I70 
SORT 3 I 80 
SORT 3 I 90 
SORT 3200 
S0RT32I0 
SORT 3220 
SORT3230 
SORT 32*40 
SORT 3250 
SORT 3260 
SORT 3270 
SORT 3280 
SORT 3290 
SORT 3300 
SORT 33 10 
SORT 3320 
SORT 3330 
S0RT33«*0 
SORT 335C 
S0RT336C 
S0RT3370 
SORT 3380 
SORT 3390 
SORT 3*420 
SGRT3«430 
SORT 3*4*40 
SORT 3*450 
SORT 3*60 
SORT 3*70 
SORT 3*80 
SORT 3*90 
S0RT3500 
SORT3SI 0 
SORT 3520 
SORT 3530 
SORT 35*0 
SORT 3550 
SORT 3560 
SORT 3570 
SORT 3580 
SORT 3590 
SORT 3600 
SORT 36 10 
SORT 3620 
SORT 3630 
SORT 36*0 
SORT 3650 
SORT 3660 
SORT 3670 
SORT 3680 
SORT 3690 
SORT 3700 
SORT 37 1 0 
SORT3720 
S0RT3730 
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0033SS SSI 207 

003366 7000*2 

003367 *51370 

003370 till 00 

003371 216*11 

003372 1 1 127* 

003373 151373 

00337* 605055 

003375 000000 

003376 70125* 

003377 70232* 

003*00 70000* 

C03*0! 70220* 

003*02 70222* 

003*03 7022** 

003*0* 70226* 

003*05 623375 

003*06 000000 

003*07 200225 

003*10 7012** 

003*11 79110* 

003*12 702321 

003*13 7000** 

003*1* 702201 

003*15 702221 

003*16 7022*1 

003*17 702261 

003*20 623*06 


003*21 000000 
0G3*22 700002 
003*23 201751 
003*2* 7*1200 
003*25 603*31 
003*26 203*25 
003*27 0*27*7 
003*30 607*36 
003*31 700002 
003*32 223*21 
003*33 70706* 
003*3* *«»3*2I 
003*35 223*21 
003*36 0*0036 
003*37 **3*2! 
003**0 750001 
003**1 363*2 £ 
003**2 (1*0037 
003**3 **3*2l 
003*** 223*21 
003**5 7*1100 
003**6 603*51 




P0P9/I5 ASSEMBLY LISTING 


• • • 


PAGE NO . 36 


ONAOC 


651207 

ION 

ISZ 

JMTB JMS 

LAC 
JMS 
OZM 
JMP 

OFTAOC 0 

70125* 

CHLT 

CLOF 

SPSA 

SPSS 

SPSC 

SPSO 

JMP* 

ONAOC 0 

LAC 

AOCOP 

CFOV 

cslt 

CLON 

ENSA 

EKSB 

ENSC 

ENSO 

JMP* 

/DISK 10 ROUTINE 
/CALLING SEQUENCE . 
/ JMS 

/ DISK * 

/ NC 

/ CA 

/ 01 SK AOR 

/ FUNCTION 

DISK 10 0 

I OF 

LAC 

SNA 

JMP 

LAC 

D*.C 

.IMP 

I OF 

..AC* 

f'LAH 

ISZ 

LAC* 

OAC 

ISZ 

CLC 

TAO* 

OAC 

ISZ 

LAC* 

SPA 

JMP 


TERBUF 

MTBUF 

(0*55001 

MTCC* 

MTRCCT 

PANRET 


/•BELL 

/TERMINATE BUFFER 


/ 01 SABLE INTERFACE 


OFFAOC 

AOCMOO 


/ CLEAR AOC 


ONAOC 


OISKIO 
/ BITS 15-17 

/2'S COMPLEMENT 
/ 1 5 BIT ADR 
/ 18 BIT AOR 
/ BITS 15-17 


OETAOO 

. ♦* 

.-l 

AOCDSK- I 
RET 

OISKIO 

OISKIO 

OISKIO 

36 

OISKIO 

OISKIO 

37 

OISKIO 

OISKIO 


/ 8USY? 

/ NO 

/ YES SET UP RETURN AOR. 


/DISK • 


/ IF NEG. IT'S 2 ' S COMP. OF UORO AOR. 


SORT37*0 
SORT 3750 
SORT 3760 
S0RT3770 
SORT37BO 
SORT3790 
SORT3BOO 
SORT 38 10 
SORT3820 
S0RT3830 
SORT 3835 
SORT 38*0 
SORT 3850 
SORT 3860 
SORT 3870 
SORT 3880 
SORT 3890 
SORT3900 
SORT 39 1 0 
SORT 3920 
SORT3930 
SORT 3935 
SORT 39*0 
SORT3950 
SORT 3960 
SORT 3970 
SORT 3980 
SORT 3990 
OISKOOCO 
OISKOOIO 
OISK0020 
0 ISK0030 
OISK00*0 
0 I SK0050 
0 1 SK0060 
DISK0070 
0 1 SK0080 
OISK0085 
0 1 SK0099 
0 1 SK 0 1 0 3 
OISKOI 10 
OISK0I20 
OISKOI 30 
0 1 SKO I *0 
OISKOI 50 
01 SKO 1 60 
01 SKO 1 70 
01 SKO 1 80 
01 SKO 1 90 
0 1 SK0200 
OISK02I0 
OISK0220 
DISK0230 
0 1 SK02*0 
0 I SK0250 
DISK 0260 
OISK0270 
OISK0280 
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003VV7 

660710 

ALSS 

10 

003V50 

603V53 

JHP 

♦3 

003V5I 

7V000I 

CHA 

003V52 

356315 

tao 

( f 1 

003VS3 

70702V 

OLAL 

003V5V 

VV3V2I 

ISZ 

DISKIO 

003V55 

223V2I 

LAC • 

OISKIO 

003V56 

“V3V2I 

ISZ 

OISKIO 

003V57 

T070V7 

OSGO 

003V60 

607V36 

JMP 

RET 

003V6I 

201751 

OSKINT LAC 

GET ADD 

003V62 

7V0200 

SZA 

003V63 

602671 

OK INTI JMP 

INTROa 

003V6V 

707272 

OSRS* 1 0 

003V65 

0V3505 

OAC 

OKSTAT 

003V66 

7072V2 

OSCO 

003V67 

7S0I00 

SMAICLA 


003V70 

603503 

JMP 

OKSTAT-a 

003V71 

107077 

JMS 

PR 1 OF 

003V72 

30V2S2 

30V2S2 

/*o 

003V73 

32331 1 

32331 1 

/ IS 

003V7V 

2V03I3 

2V03I3 

fK 

003V75 

322305 

322305 

/ER 

003V76 

317322 

317322 

/RO 

003V77 

6V0322 

6V0322 

/R 

003500 

203505 

LAC 

OKSTAT 

003501 

- 1 06526 

JMS 

OCTOUT 

003502 

777777 

L AH 

• | 

003503 

7000V2 

ION 


00350V 

623V2I 

JMP* 

01SK10 

003S05 

000000 

OKSTAY 0 

/ COPY SCRATCH ROUTINE.... 

003506 

777827 

COPTS LAM 

- 1 51 

003507 

0V35V5 

OAC 

COPTS 

003510 

216333 

LAC 

C 400 1 

003511 

603515 

JMP 

. 


/ IF POS. IT'S A BLK • 

/DISK AOR 

/ EXECUTE FUNCTION 

t STORING CO INC ON DISK? 

/ YES ( «JMP INTR02 OR INTRC3I 

f SAVE STATUS 

/ ERROR FLAG? 

/ NO 


/ PRINT STATUS 


/ • OF 8LKS. 

/ STARTING BLK. 


0035* 2 776703 
0035 i 3 0V35V5 

0035 m a i6v i a 

003515 0V3S37 
003516 a05V53 
003517 ovsvsa 

003530 20V265 
00352 1 0V7667 
003522 215573 
003523 5V3533 
00352V 6r.35V5 
00 '-525 203537 

003526 356V I 3 
003527 0V36I0 
003530 2035V5 
003531 356V I 3 
003532 0V3V06 
003533 I 36V IV 
00353V 000000 
003535 777000 



0ISK0290 

0ISK0300 

OISK03I0 

0ISK0320 

OISK0330 

0ISK03V0 

0ISK0350 

OISK0360 

D1SK0370 

DISK0380 

DISK0390 

OISKOVOO 

OISKOVIO 

01 SK0V20 

0 * SK0V30 

OISKOVVO 

OISKOVSO 

OISKOV60 

OISK0V70 

OISKOVSO 

0ISK0V9C 

7 1 SK 0500 

0ISK0510 

0ISK0520 

0ISK0530 

0ISK05V0 

DISK 0550 

0 1 SK0560 

OISK0S70 

OISK0580 

0 I3K0S90 

DISK0600 

0ISK06I0 

0ISK0620 

0ISK0630 

0ISK06S0 

OISK0650 

OISX0660 

OISK0670 

Ot SK0680 

CISK0S90 

0 1 SK0700 

0ISK07I0 

OISK0720 

OISK0730 

0ISK07V0 

OISKG750 

DISK0760 

OISK0770 

OISK0780 

0 1 SK0790 

OISKOBOO 

OISKOBIO 

OISK0820 

oiSKoeso 

OISKOBVO 

OISK0850 

0ISK0860 
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003536 

033H00 

33*400 / CA 




0ISKO87O 

003537 

000551 

COPYa 551 / 8LK * 




DISK0880 

0035H0 

000003 

3 / RE AO 




OISK0890 

0035H 1 

ao 35H0 

LAC .-1 ! SETUP 

TO 

RE AO PROM OISK 


OISK0900 

0035Ha 

0H36II 

OAC OECOSa * 1 




OISK09I0 

0035V3 

a 163*46 

LAC (5» / SETUP 

TO 

WRITE ON OECTAPE 


oiSK09ao 

0035*4*4 

60355*4 

JMP .*10 




O.SK0930 


/ OECTAPE TO OISK COPY ROUTINE OISK09VO 


003545 

776703 

C0P V 3 

LAW 

-1075 

/ 

* OF 8LKS. 

DISK0950 

0035H6 

0*43*406 


OAC 

ONAOC 



Of SK0960 

0035*47 

203537 


LAC 

C0PY3 



DISK0970 

003550 

0*43610 


OAC 

oEcosa 



0! SK0980 

00355! 

2163*46 


LAC 

(51 

/ 

SET T9 WRITE ON OISK 

OISK0990 

003552 

0*436 1 1 


OAC 

OEcosa* i 



OISK 1000 

003553 

216335 


LAC 

(3) 

/ 

SET TO READ FROM OECTAPE 

0 1 SK 1 0 1 0 

003554 

0*43601 


OAC 

OEcosi+a 



OISK 1020 

003555 

2 16*4 1 5 


LAC 

(JMP TAPCON > 

OISK 1030 

003556 

0*46*425 


OAC 

OECT3+ 1 2 

/ 

CAUSES CONTINUOUS MOTION 

DISK 1040 

003557 

200226 


LAC 

ADCON 



OISK1050 

003560 

751200 


SNAICLA 




DISK! 069 

00356! 

603566 


JMP 

.♦5 



OISK) 070 

003562 

700002 


I OF 




DtSKIOBO 

003563 

103375 


JMS 

OFTAOC 



0ISKI090 

00356*4 

7000*42 


ION 




OISK! 100 

003565 

716315 


LAC 

< 1 1 



OISKl 1 10 

003566 

0*4*4060 


OAC 

adcgon- : 

/ 

SAVE AOC ON OR OFF FLAG 

Oi SKI 120 

003567 

0*4*46*4 1 


OAC 

AOCCO 



OtSKl 125 

003570 

203577 


LAC 

OECOS1 



01 SK 1 130 

003571 

0*43607 


OAC 

0EC0S2- 1 

/ 

SET UP BUFFER POINTER ANO 

01 SKI 140 

003572 

356333 


TAO 

(400) 

/ 

CA OF OISK 

OISK! 150 

003573 

051367 


OAC 

MACTPT 



DISKI 160 

00357*4 

136330 

OECIO 

JMS* 

( DEC TRW ) 



OISKl 170 

003575 

000000 


0 




OfSKl 180 

003576 

777400 


*400 


/ 

WC 

OISKl 190 

003577 

033400 

0EC0S1 

33400 


/ 

CA 

01 SKI 200 

003600 

000001 


1 


/ 

BLK • 

0 1 SK 1 2 1 0 

003601 

000003 


3 


/ 

RE AO OR WRITE 

01 SKI 220 

003602 

740200 


SZA 


/ 

OECTAPE ERROR? 

OISKl 230 

003603 

603627 


JMP 

TAPCON- 1 0 

/ 

YES 

01 SKI 240 

00360*4 

103421 


JMS 

OISKIO 



01 SKI 250 

003605 

000000 


0 




OISKl 260 

003606 

777400 


-400 


l 

WC 

OISKl 270 

003607 

033400 


33400 


/ 

CA 

01 SKI 280 

003610 

000551 

0EC0S2 

551 


/ 

BLK 9 

0 1 SK 1 290 

003611 

000005 


5 


/ 

WRITE OR RE AO 

OISK 1300 

003612 

740200 


SZA 


/ 

OISK ERROR? 

0 1 SK 1 3 1 0 

003613 

603627 


JMP 

TAPCON- 10 

/ 

YES 

OISKl 320 

00361*4 

443610 


1SZ 

0EC0S2 

f 

INCREMENT BLK * 

DISK I 330 

003515 

21 1367 


LAC 

HA6TPT 



OISK) 340 

003L16 

0 U 3607 


OAC 

0EC0S2* 1 



DISK! 350 

003617 

543577 


SAD 

OECOSl 

/ 

8UF • 1 ? 

OISKl 360 

003620 

603623 


JMP 

.♦3 

/ 

YES 

01 SKI 370 

003621 

203577 


LAC 

OECOSl 



OISKl 380 

003622 

741000 


SKP 




OISKl 390 

003623 

356333 


TAO 

(400) 



OISK 1400 

00362*4 

051 367 


OAC 

MAGTPT 



0 I SK 1 4 1 0 

003625 

443406 


!SZ 

ONAOC 

/ 

DONE? 

OISKl 420 

003626 

607436 


JMP 

RET 


NO 

0 1 SK 1 430 


ot>-a 


03/02/73RALPH RIC C. OAVIES POP-8 


00M27 IB1M 

003630 ones 1 3 

003631 203637 

003632 046425 

003633 2 I 6* I 6 

003634 046436 

003635 144641 

003636 60S4S4 

*06436 TAPCON 
003640 777400 

003641 040030 

003642 75000 1 

003643 351367 

003644 040031 

003645 707554 

003646 700042 

003647 626513 

oooooo foloeo 

003651 216317 

003652 041525 

003653 14(522 

003654 141307 

003655 1 41 31 3 

003656 216341 

003657 041523 

003660 041526 

003661 044346 

003662 044352 

003663 200234 

003664 040255 

003665 760100 

003666 041303 

003667 101636 

0C3670 143702 

003671 142535 

'"‘2535 FOLD I 

003673 142534 

003674 203701 

003375 044012 

003676 103421 

003677 000000 

003700 777400 

003701 031200 

003702 OOOOOO FOLOA 

003703 0R0003 

003704 443702 

003705 442534 

003706 202535 

OC 3707 7 <<4020 

003710 043774 

0037 l | 202534 

003712 744020 

0037)3 044030 

003714 740001 

0037J5 356315 

003716 343774 

003717 740(00 

003720 603737 
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LAC 
OAC 
LAC 
OAC 
LAC 
OAC 
OZM 
JMP 
JMS 
LAN 
OAC 
CLC 
TAO 
OAC 

OTXA+IO 
(ON 
JMP* 

0 

LAC 
OAC 
O r M 
OZM 
OZM 
LAC 
OAC 
OAC 
OAC 
OAC 
LAC 
OAC 
LAW 
OAC 
JMS 
OZM 
OZM 
ISZ 
OZM 
LAC 
OAC 
JMS 
0 

-400 
31200 
0 
3 

ISZ 
ISZ 
LAC 
RCR 
OAC 
LAC 
RCR 
OAC 
CMA 
TAO 
TAO 
SMA 
JMP 


-I 

OECRET 
TAPCON 
0ECT3* 12 
(OECT3* 1 3 s 
OECCMO 
AOCOO 
0SEL*2 
OECCMO 
-400 

30 / MC 

MAGTPT / CA-I 

31 

* CONTINUE. 

DCCRET 

< 1 760 1 
YLIMIT 
XL IMI T 
VCROSS- I 
HCROSS-I 
I 10) 

OEI.IMT 

CHOR £ * S£T 0,SPLAY CHANGE 

CVER 

FSTCOI 

zertem 

-17700 

CFCMFG 

FOLOA 7 ' ° C0,NC 0ur F£R. 

OTREl 

OTREI 

OTRE2 

FOLOGT ' BE0,NNIN G OF TRANSFER BUf . 
DISKIO 

/ DISK # 

/ WC 

/ CA IN STRIP BUFFER 
> DISK AOR. 

„ • PE AO DISK 

FOLOA 
0TRE2 
OTREl 

0TRE2 7 M ’ KC 120 



01 SKI 440 
0ISKI450 
0 1 SK 1 460 
CISKI470 
OISK140O 
0 1 SK I 490 
0 1 SK I 495 
01 SKI 500 
0 1 SK 1 5 1 0 
01 SKI 520 
Of SK 1 530 
01 SKI 540 
OISK15S0 
01 SKI 560 
0ISKI570 
01 SKI 580 
0ISKI590 
01 SKI 600 
01 SK 1610 
DISK 1620 
01 SKI 630 
01 SKI 640 
01 SKI 650 
0 1 SK 1 660 
01 SKI 670 
01 SKI 680 
0 1 SK 1 690 
01 SKI 700 
0 1 SK 1 7 1 0 
0 1 SK 1 720 
01 SKI 730 
0ISKI7VS 
0ISKI750 
0 1 SK 1 760 
0 1 SK 1 770 
01 SKI 780 
0ISKI790 
01 SKI 800 
0 1 SK 1 8 1 0 
0 I SK I 820 
01 SKI 630 
01 SKI 840 
0 1 SK 1 850 
0 1 SK 1 860 
01 SKI 870 
01 SKI 880 
01 SKI 890 

0 f SK i 900 
0ISKI9I0 
0 I SK I 920 
0 I SK 1 930 
0 1 SK 1 940 
0 1 SK 1 950 
CUSK 1 960 

01 SKI 970 
0 I SX 1 980 
0 1 SK 1 990 
PISK2000 


/ N> OR - F? 
t YES 
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003721 

203774 


LAC 

MFOLO 

/ 

IF 12<- M <-15. 

01SK20I0 

003722 

343261 


TAO 

LONL 

/ 

THEN STORE IN M-127. 

01SK2020 

003723 

741 100 


SPA 


/ 

I2<-M? 

0ISK2030 

003724 

603745 


JMP 

F0L03 

t 

NO 

OISK2040 

003725 

343262 


TAD 

1 GHL 



DISK2050 

003726 

740100 


SMA 


{ 

M< ■ 1 5? 

OI5K2060 

003727 

603745 


JMP 

F0L03 

/ 

NO 

DISK2070 

003730 

216404 


LAC 

(57600) 

/ 

BEGINNING OF M-127. 

0ISK2080 

003731 

344030 


TAO 

FFOLO 



0 I SK2090 

003732 

043752 


OAC 

F0L04 



OISK2100 

003733 

224012 


L AC • 

FOLOGT 



OISK2MO 

003734 

363752 


TAO* 

F0L04 



0ISK2120 

003735 

063752 


DAC* 

F0L04 



OISK2130 

003736 

603745 


JMP 

F0L03 



DISK2I40 

003737 

204030 

F0L02 

LAC 

FFOLO 

/ 

REVERSE F AND M. 

0ISK2I50 

003740 

043752 


OAC 

F0L04 



OISK2I60 

003741 

203774 


LAC 

MFOLO 



0 I SK2 ! 70 

003742 

044030 


OAC 

FFULD 



0ISK2180 

003743 

203752 


LAC 

FOLC/4 



0ISK2190 

003744 

0437 74 


OAC 

mfolc 



0 I SK2200 

003745 

204030 

FOLD3 

LAC 

FFOLO 



01SX2210 

003746 

043752 


OAC 

FQL04 



01SK2220 

003747 

356337 


TAO 

(-1) 



01SK2230 

003750 

744000 


CLI. 


/ 

A-f* • Y-l )*X-I 

DISK2240 

003751 

653122 


MUL 




0 1 SK2250 

003752 

000000 

F0L04 

0 




0 I SK2260 

003753 

641002 


LACQ 




0 1 SK2270 

003754 

744020 


RCR 




DISK2280 

003755 

343774 


TAO 

MFOLO 



OISK2290 

003756 

356337 


T*nO 

C-l 1 



0 1 SK2300 

003757 

340234 


TAO 

FSTCOI 

/ 

BEGINNG OF CO INC. 

OISK23IO 

003760 

043752 


OAC 

F0L04 



0 1 SK2320 

003761 

224012 


LAC* 

FOLOGT 



OISK2330 

003762 

363752 


TAD* 

F0L04 



OISK2340 

003763 

063752 


OAC* 

F0L04 



DISK2350 

003764 

444012 


ISZ 

FOLOGT 



DISK2360 

003765 

216403 


LAC 

(377) 



01SK2370 

003766 

542534 


SAD 

OTRE2 

/ 

OONE WITH this BUFFER? 

D 1 SK2380 

003767 

741000 


SKP 




DISK2390 

003770 

6037C5 


JMP 

FOLOA*3 

t 

NO 

DISK2H00 

003771 

542535 


SAD 

OTRE 1 

/ 

FINISHED LOADING? 

01SK2410 

003772 

623650 


JMP* 

FOLOEO 

/ 

YES 

0ISK2420 

003773 

603672 


JMP 

FOLOl 



OISK2430 

003774 

000000 

MFOLO 

0 




01SK2440 

003775 

777777 

UNFOLD 

LAN 

- 1 



0ISK2450 

003776 

044012 


CAC 

FOLOGT 



0 I SK2460 

003777 

777601 


LAN 

- 1 77 



0ISK2470 

004000 

043774 


OAC 

MFOLO 

/ 

DETERMINES WHEN FINISHED 

DISK2480 

004001 

144030 


OZM 

FFOLO 

/ 

initiate disk aor. 

01SK249G 

004002 

200234 


LAC 

FSTCOI 



0ISK2500 

004003 

043752 


OAC 

F0L04 

/ 

AOR OF CO INC 8UF . 

O1SK25I0 

004004 

204027 


LAC 

FFOLO-I 



D1SK2520 

004005 

040255 


OAC 

ZERTEM 



0ISK2530 

004006 

777400 


LAN 

-400 



DISK2540 

004007 

101636 


JMS 

ZEROUT 

/ 

INITIALIZE OUTPUT BUF . 

DISK2550 

004010 

204027 


LAC 

FFOLO- 1 



0 I SK2560 

0040! ! 

040255 


OAC 

ZERTEM 



0ISK2570 

C74012 

777777 

FOLOGT 

LAN 

-1 



01SK2580 
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00*4013 

043702 


OAC 

POLO:* 

00*401*4 

223752 


LAC* 

POLO'* 

00*4015 

443752 


ISZ 

POLOH 

00*4016 

440255 


ISZ 

ZERTEM 

00*4017 

060255 


OAC* 

ZERTEM 

00*4020 

440255 


ISZ 

ZERTEM 

00*402! 

443702 


ISZ 

POcOA 

00*4022 

6040 1 4 


JMP 

. -6 

00*4023 

444030 


ISZ 

PPOLO 

00*402*4 

103421 


JMS 

0 1 SK 10 

00*4025 

000000 


0 


00*4026 

777400 


-HOO 


004027 

031200 


31300 


004030 

000000 

fFOLO 

0 


004031 

000005 


5 


004032 

444030 


ISZ 

PPOLO 

004033 

777777 


LAN 

* 1 

004034 

344012 


TAO 

POLOGT 

004035 

044012 


OAC 

POLOGT 

004036 

443774 


ISZ 

mp old 

004037 

604010 


JMP 

POLOGT- 

004040 

6121 17 


JMP 

SET1 

004041 

000000 

AOCCHK 

0 


004042 

105275 


JMS 

aocbus 

004043 

200226 


LAC 

ADCON 

004044 

741200 


SNA 



004045 

004046 

004047 

004050 

004051 

004052 

004053 

004054 

004055 

004056 

004057 

0040S0 

C0408I 

004062 

004063 

0040C-4 

904065 

00*4066 

00*4067 

00*4070 

00*407 1 

00H072 

00H073 

O'* *407*4 

Cj*4075 

00*4076 

00*4077 

00*4100 

00*4101 

00*4 1 02 

00*4103 

0C*4 I 0*4 


62*40*4 1 
20*4057 
556*4 1 7 
7m 000 

62*40*41 
0*4*4060 
700002 
103375 
7000*42 
62*40*4 1 
160000 
000000 
000000 
20*4060 
7m 200 
62H06 I 
1 *4*4060 
700002 
103*406 
7000*42 
62*4061 
212701 
052237 
II2IH** 
777777 
*40*4101 
00*4057 
606257 
231025 
2*40*417 
2716*40 
010*403 


AOCGON 


JMP* 

LAC 

SAO 

SKf* 

J1.P* 

OAC 

i or 

JMS 

ION 

JMP» 

160000 

0 

0 


AOCFLG 


AOCCHk 

A0CG0N-2 

(310000) 

AOCCHK 
AOCGON- 1 

Off AOC 

AOCCHK 


/ GET NENT CO INC VALUE 


t STORE DATA IN EVERY OTHER WORD Of SUf 


t OONE WITH THIS 8LK? 
/ NO 


/ WC 
/ CA 

/ DISK SLK 
/ WRITE 

/ NEXT OISK 8LK 


/ OONE? 
/ NO 


t CHECK f BKG & OR ADC 

/ AOC ON 
/ NO 

• RUN WITH AOC ' S ? 

/ tes 


t Y-TURN Off AOC 1 S : N-LEAVE Af»C ' S 
' WERE AOC ' S ON ft AG 


LAC 

AOCGON i 


SNA 


/ NER 

JMP* 

AOCGON 

/ NO 

OZM 

AOCGON- 1 

/ CLE 

IOP 

JMS 

ONAOC 


SON 

JMP* 

AOCGON 


LAC 

TEL8 


OAC 

QAM*5 


JMS 

OA 


LAN 

-I 


XCT 

+ 3 


AOCGON' 2 

JMP 

RETC 


231025 


/ SHU 

240417 


/ TOO 

271640 


/ WN 

010403 


/ AOC 


0ISK2590 

0 1 SK2600 

0 ! SK26 1 0 

OISK2620 

OISK2630 

DISK 26*40 

0ISK2S50 

0 1 SK2660 

0ISK2S70 

OISK2680 

0 1 SK2690 

OISK2700 

DISK27I0 

01SK2720 

OISK2730 

0ISK27*40 

OISK2750 

DISK2760 

OISK2770 

0ISK2780 

OISK2790 

0ISK28C0 

0ISK28I0 

0 1 SK2820 

0ISK2830 

OISK28*40 

0 1 SK2350 

0 1 SK2860 

0 1 SK2670 

OISK2880 

01SK2890 

0 1 SK2900 

OISK29IO 

0 1 SK2920 

0 1 SK2930 

0 1 SK29*tO 

0 1 SK2950 

OISK2960 

0ISK2970 

OISK2S80 

0ISK2990 

0 1 SK3CJ00 

OISK30I0 

OISK3020 

OISK 3030 

0 1 SK3040 

01SK3050 

0 1 SK3C60 

0ISK3070 

0ISK3080 

0 1 SK309I 

0ISK3I00 

DISK3I 10 

0 1 SK 3 1 20 

OISK3130 

OISK 3 1 *40 

OISK3I50 

01 SK3 160 
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004105 

784000 


784000 


/ : 

OISK3I70 



/CMR 

POPS 

APRIL 

1969 

CPANOOOO 



/PANEL 

SERVICE ROUTINE 


CPANOO 1 0 

004106 

000000 

PANFLG 

0 



CPAN0020 

004107 

444 1 06 

PANSEV 

ISZ 

PAHfLG 


CPAN003Q 

oom to 

705618 


PNRO 


/RE AO PANEL ST AT I S 

CPAN00H0 

0041 1 1 

044147 


OAC 

PCQOt 


CPAN0050 

0041 18 

760006 


LAN 

6 


CPAN0060 

0041 13 

705004 


F8CM 



CPAN0070 

004114 

705714 


PN 1 T ♦ l 0 


/DISABLE PANEL INTERRUPT AND CL A 

CPAN0080 

004115 

705604 


PNCL 


/CLEAR PANEL STATIS 

CPAN0090 

0041 16 

140006 


OZH 

STPOUT 


CPAN0I00 

0041 17 

760010 


LAM 

10 

/TURN ERROR LIGHT OFF 

CPANOI 10 

004180 

105037 


JHS 

PINOOF 


CPANOI 20 

00418! 

700048 


ION 



CPANOI 30 

004188 

804147 


LAC 

PCOOE 


CPANOI HO 

004183 

748080 


RTR 



CPANOI 50 

004184 

740080 


RAR 



CPANOI 60 

004185 

516338 


AND 

i 171 


CPANOI 70 

004186 

105305 


JHS 

PANBR 

/BRANCH TO ONE OF 1? SERVICE ROUTINES 

CPANOI 00 

004187 

605055 


JMt- 

PANRET 

/NO ZERO SWITCH NUMBER 

CPANOI 90 

004130 

604150 


JHP 

PCODE* 

1 / DEVICE SELECTION 

CPAN0200 

004 1 3 1 

044605 


OAC 

OITEM 

/ ITEM .OR OUTPUT 

CPAN02I0 

004138 

604648 


JHP 

POSO 

/PER 100 OF PER 100 1C DUMP 

CPAN0220 

004133 

604575 


JHP 

PL 1 VET 

/PANEL LIVE TIME 

CPAN0230 

004134 

604305 


JHP 

ROTSEL 

/ ROTATION SELECTION 

CPANO2H0 

004135 

604784 


JHP 

POMODE 

/Ot SPLAT HOOE SELECTION 

CPAN0250 

004136 

604816 


JHP 

PINFOl 

/INFORMATION SELECTION NUMBER 1 

CPAN0260 

004137 

604853 


jnr 

P1NF08 

/INFORMATION SELECTION NUMBER 2 

CPAN0270 

004140 

604786 


JHP 

PNOCD 

/NUMBER OF CHANNELS OISPLAYEO 

CPAN0280 

004141 

604750 


JHP 

PLCFS 

/LINEAR COUNTS FULL SCALE 

CPAN0290 

004148 

604770 


JHP 

PNOLD 

/NUMBER OF LOO OECAOES 

CPAN0300 

004143 

6G5Q04 


JHP 

P8LDN 

/BASE LINE OECAOE NUMBER 

CPAN03I0 

004144 

604168 


JHP 

PB 1 5 

/PUSH BUTTSON 

CPAN0320 

004 1 45 

604173 


JHP 

P8I6 

/PUSH BUTTONS 

CPAN0330 

004146 

604804 


JHP 

PBI7 

/PUSH BUTTONS 

CPAN03H0 

004147 

000000 

PCODE 

0 



CPAN0350 

004150 

044604 


OAC 

ODEV 


CPAN036Q 

004151 

356337 


TAO 

( - ! > 


CPAN0370 

004158 

556:346 


SAO 

c 5 > 

/ HAG TAPE? 

CPAN0380 

004153 

751000 


SKPICLA 


/ TES 

CPAN0390 

004154 

556347 


SAO 

(4) 

/ OECTAPE? 

CPAN0H00 

004155 

741000 


SKP 



CPANOHIO 

C04156 

605055 


JHP 

PANRET 


CPAN0H20 

004157 

05371 1 


OAC 

UNi TSV 


CPAN0H30 

004160 

100743 


JHS 

08 


CPANOHHO 

004161 

605055 


JHP 

PANRET 


CPAN0H50 



/PUSH BUTTON SERVICE 


CPAN0H60 

004168 

1 05305 

PBI5 

JHS 

PANBR 


CPAN0H70 

004163 

605055 


JHP 

PANRET 

/NOT USEO 

CPAN0H80 

004164 

603361 


JHP 

NTEOFP 

/ISM TAPE EOF 

CPAN0H90 

004165 

1 1 1453 


JHS 

RENT NO 

/ IBM TAPE REM I NO 

CPAN0500 

004166 

605055 


JHP 

PANRET 

/ IBM TAPE REMIND ANO UNLOAD 

CPAN05I0 

004167 

604538 


JHP 

ROGO 

/RE AO OUT GO 

CPAN0520 

004170 

604581 


JHP 

ROHLT 

/REAO OUT HALT 

CPAN0530 

004171 

604501 


JHP 

COt NON 

/CO INC STORAGE ON 

CPAN05H0 

004178 

60451 t 


JHP 

COtNOF 

/COINC STORAGE OFF 

CPAN0550 

004S73 

105305 

FBI 6 

JHS 

PANBR 


CHAN0560 
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004174 

601107 

004175 

604606 

004176 

60461 I 

004177 

604625 

004200 

101662 

004201 

605015 

004202 

150302 

004203 

605021 

004204 

505305 

004205 

605413 

004206 

601345 

004207 

601341 

004210 

605373 

00421 1 

605405 

004212 

164337 

004213 

605400 

004214 

605420 

004255 

767777 

004216 

045535 

004217 

400052 

004220 

344215 

004221 

044230 

004222 

205535 

004223 

105535 

004224 

! 10466 

004225 

104471 

004226 

104441 

004227 

104372 

004230 

767777 

004231 

! 10442 

004232 

1 1043! 

004233 

110411 

004234 

047667 

004235 

740100 

004236 

605053 

004237 

516420 

004240 

050463 

004241 

050464 

004242 

207667 

004243 

516421 

004244 

556421 

004245 

450464 

004246 

556314 

004247 

150463 

004250 

210465 

004251 

047667 

004252 

605055 

0U4253 

045535 

004254 

200051 

004255 

740200 

004256 

604272 

004257 

205535 

004260 

105535 

004261 

770003 

004262 

770017 

004263 

770015 
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004264 

77002. 


OPRICSCLHI 


004265 

107756 


JMS 

NGNON 

004266 

770013 


OPR 1 SCALRO 

004267 

77001 1 


OPR I SCALRC 


004270 

770007 


OPR 1 SCALRB 

004271 

S04234 


JMP 

PINRET 

004272 

205535 


LAC 

PIC < 

004273 

105535 


JMS 

PICK 

004274 

770405 


OPR 1 SCALRA+MOO 

004275 

770417 


OPRIMSINH1 ♦H00 

004278 

770415 


OPRIFS1NHI ♦H00 

004277 

770421 


OPRICSCLHI ♦MOO 

004300 

1 07756 


JMS 

NGNON 

004301 

770413 


OPRISCALRD*HOO 

004302 

77041 I 


OPRlSCALRC+'tOO 

004303 

770407 


OPR 1 SCALRB*H00 

004304 

604234 


JMP 

PINRET 



/ ROTATION SELECTION: 



/ SPECTRUM. MARKERS. 

OR ZZERO 

004305 

105535 

ROTSEL 

JMS 

PICK 

004306 

000000 


0 


004307 

004342 


ZZER 


004310 

004346 


ChOR 


00431 1 

004352 


OVER 


004312 

004356 


HOR 


004313 

004362 


VER 


004314 

004366 


SPEC 


004315 

000000 


0 


004316 

741200 


SNA 


004317 

605055 


JMP 

panret 

004320 

044336 


QAZ 

ROTPT 

004321 

356315 


TAO 

< l ) 

004322 

044337 


OAC 

ROTPTl 

004323 

356315 


TAO 

( 1 > 

004324 

044340 


DAC 

R0TPT2 

004325 

356315 


TAO 

( 1 1 

004326 

044341 


OAC 

ROTPT3 

004327 

224341 


L AC • 

ROTPTl 

004330 

047667 


OAC 

INSEL 

004331 

224337 


LAC* 

ROTPTl 

0043?2 

044337 


OAC 

ROTPTl 

004333 

224340 


LAC* 

ROTPT2 

004334 

044340 


OAC 

R0TPT2 

004335 

605055 


JMP 

PANRET 

004336 

000000 

ROTPT 

0 


004337 

005431 

ROTPTl 

RTMP 


004340 

0G0000 

ROTPY2 

0 


004341 

000000 

ROTPT3 

0 


004342 

000001 

ZZER 

♦1 


004343 

001337 


ZZMOV 


01*344 

000250 


ZTEMP 


004345 

104434 


JMS 

SPEMRK 

004346 

000C10 

CHOR 

10 


004347 

001336 


HCMOV 


004350 

001314 


HCROSS 


004351 

104404 


JMS 

CONMRK 

004352 

0000 1 Q 

CVER 

10 


004353 

001335 


VCMOV 



/ POINTS TO ROTATION CONTROL CONSTANT 
/ -TO ROTATION VARIABLE 
/ -TO MARK POSITION VARIABLE 
/ -TO NO SUBROUTINE 
/ ENABLE 


/ ZZERO 


/CONTOUR HOR 


/CONTOUR VER 


CPANI 150 
CPANI 160 
CPANI 170 
CPANI 180 
CPANI 190 
CPAN1200 
CPANI2I0 
CPANI 220 
CPANI 230 
CPANI2H0 
CPANI250 
CPANI 260 
CPANI270 
CPANI 290 
CPANI 290 
CPANI 300 
CPANI 310 
CPANI 320 
CPANI 330 
CPANI 3H0 
CPANI 350 
CPANI 360 
CPANI 370 
CPANI 380 
CPANI 390 
CPANIHGO 

cpani mo 

CPANIH20 
CPANI M30 
CPANIHHO 
CPANI 450 
CPANI 460 
CPANI 470 
CPANI 480 
CPANI 490 
CPANI 500 
CPAN1510 
CPANI 520 
CPANI 530 
CPANI 540 
CPANI 550 
CPANI 560 
CPANI 570 
CPANI 580 
CPANI 590 
CPANI 600 
CPANI6I0 
CPANI 620 
CPANI 630 
CPANI 640 
CPANI 650 
CPANI 660 
CPANI 670 
CPANI 680 
CPANI 690 
CPANI 700 
CPANI 710 
CPANI 720 
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004354 001310 
004355 104404 
004356 000001 
004357 010255 
004360 011077 
004361 104434 
004362 000001 
004363 010256 
004364 011073 
004365 104434 
004366 0002Q0 
004367 010306 
004370 000000 
004371 1 1 043 1 


004372 000000 
004373 777776 
004374 340261 
004375 673323 
004376 00004* 
004377 641002 
004400 356315 
004401 050556 
004402 750000 
004403 624372 

004404 000000 
004405 777777 
004406 344340 
004407 050556 
004410 230556 
004411 740001 
004412 356315 
004413 050556 
004414 200054 
004415 741200 
004416 201303 
004417 741 100 
004420 450556 
004421 224336 
004422 044426 
004423 224340 
004424 744000 
004423 653323 
004426 000000 
004427 641002 
004430 350556 
004431 050556 
f-4432 750000 
004433 624404 

004434 000000 
004435 224340 
004436 050656 
004437 750000 
004440 624434 
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VCROSS 

JMS CONMRK 

HOR 1 / SPECTRUM HOR 

MHMOV 
MH 

JMS SPEMRK 

VER ♦ 1 / SPECTRUM VER 

MVMOV 
MV 

JMS SPEMRIC 

SPEC 200 / THE SPECTRUM 

SPCON 
0 

JMS C8DP 

/ SUBROUTINE TO COMPUTE DUMP SLOT NUMBER 
/ FOR NUMBER GENERATOR 
OSLOT 0 


LAW 

-2 

• OUMPS START IN SLOCK 2 

TAO 

ABCT 


673323 

H5 

LACQ 


t LMQ.CLA.CLL. AND 01 V 

TAO 

t \ ) 


OAC 

CLA 

NGLOW 


JMP* 

OSLOT 



/ SUBROUTINE TO PICK UP CONTOUR HOR OR VER MARKER 
CONMRK 0 


LAW 

-1 




TAD 

R0TPT8 




OAC 

NGLOW 




LAC* 

NGLOW 




CMA 





TAO 

( 1 1 




OAC 

NGLOW 




LAC 

FG505Q 




SNA 


/ SKIP 

IF 

5050 

LAC 

CFCMf- G 




SPA 





ISZ 

NGLOW 

/ SEEK 

OR 

5050 

LAC* 

ROTPT 




OAC 

. 




LAC* 

ROTPT2 





CLL 

iOlV 

0 

LACO 

TAO NGLCH 

OAC NGLOH 

CLA 

J HP* CONMRK 

/ SUBROUTINE TO PICKUP SPECTRUM HOR OR VER MARKER 
SPEMRK 0 

LAC* R0TPT2 

OAC NGLOW 

CLA 

JMP* SPEMRK 

/ SUBROUTINE TO CONVERT SIN TO OCT 


CPAN1730 

CPANI740 

CPANI750 

CPANI760 

CPAN1770 

CPAN1780 

CPANI 790 

CPAN1800 

CPANI 810 

CPANI 820 

CPANI 830 

CPANI 840 

CPANI 850 

CPANI 860 

CPANI 870 

CPANI 88 9 

CPANI 890 

CPANI 900 

CPA <11910 

CPANI 920 

CPANI 930 

CPANI 940 

CPANI 950 

CPANI 960 

CPANI970 

CPANI 980 

CPANI 990 

CPAN2QO0 

CPAN20 1 0 

CPAN2020 

CPAN2030 

CPAN2040 

CPAN2050 

CPAN2060 

CPAN2070 

CPAN2080 

CPAN2090 

CPAN2100 

CPAN2 I 10 

CPAN2I20 

CPAN2I 30 

CPAN2140 

CPAN2I50 

CPAN2I60 

CPAN2I70 

CPAN2I80 

CPAN2 1 90 

CPAN2200 

C.PAN2210 

CPAN2220 

CPAN223J 

CPAN2240 

CPAN2250 

CPAN2260 

CPAN2270 

CPAN2280 

CPAN2290 

CPAN2300 
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/ FOR CORE DISPLAY 



CPAN23I0 

OOHHHl 

OGOOOO 

OCORE 

0 



CPAN2320 

00NNH2 

750004 


LAS 



CPAN2330 

00NNN3 

044478 


DAC 

qctmp 

/ SAVE FOP CHANGING tHIS LOCATION 

CPAN23N0 


516422 


AND 

C777771 


CPAN23N2 

OONHN5 

356423 


TAD 

(-60000) 


CPAN23H5 

0OMHM6 

740100 


SNA 


r OVER CORE LIMIT? 

CPAN23N6 

QOVH47 

144476 


DZM 

dctmp 

/ YES 

CPAN23N7 

004450 

777772 


LAM 

-6 

/ COUNT 6 

CPAN2350 

004451 

044475 


OAC 

DCCTN 


CPAN2360 

004452 

224476 


LAC • 

DCTMP 


CPAN2370 

004453 

740010 


RAL 



CPAN2380 

004454 

740010 


RAL 



CPAN2390 

004455 

742010 


RTL 



CPAN2H00 

004456 

044477 


DAC 

OCTMPl 


CPAN2NI 0 

004457 

516344 


AND 

( 7 1 


CPAN2N20 

004460 

350566 


TAO 

NGCOOA 

/ ADD BASE 

CPAN2N30 

004461 

044500 


DAC 

DCTMP2 


CPAN2NW0 

004462 

224500 


LAC • 

DCTMP2 


CPAN2N50 

004463 

0600! : 


DAC • 

1 1 

/ STORE CODE 

CPAN2H60 

004464 

204477 


uAC 

DCTMP! 


CPAN2W70 

004465 

444475 


ISZ 

OCCTN 


CPAN2N8G 

004466 

604454 


JMP 

OCORE* I 3 


CPAN2H90 

004467 

1600! 1 


OZM* 

1 i 


CPAN2500 

004470 

627662 


JMP* 

NG8T0 

/ BY PASS DIN TO OEC 

CPAN25 1 0 



/ ROUTINE TO CHANGE 

CORE -01 SABLE WHEN RUNNING 

CPAN2520 

004471 

OOOOOC 

occcc 

0 



CPAN2530 

004472 

750004 


LAS 



CPAN25N0 

004473 

064476 


0*C* 

DCTMP 

/ PUT 7N0000 HERE TO DISABLE 

CPAN2550 

004474 

604450 


JMP 

0C0RE+7 


CPAN2S60 

004475 

000000 

occtn 

0 



CPAN2570 

004476 

000000 

DC IMP 

0 



CPAN2580 

004477 

000000 

0CTMP1 

0 



CPAN2590 

004500 

000000 

0CTMP2 

0 



CPAN2600 



/CUR P0P9 1969 



CPAN26IC 



/ENABLE 

CO INC STORAGE 


CPAN2620 

004501 

105047 

CO! NON 

JMS 

PAOCB 

/ARE ADC'S ON 

CPAN2E30 

004502 

203370 


LAC 

JMT8 

/NO 

CPAN26N0 

004503 

043235 


OAC 

JMSBUF 


CPAN265G 

004504 

216417 


LAC 

(310000) 


CPAN2660 

004505 

072064 


DAC* 

SET *5 

/ CMC 

CPAN2670 

004506 

760004 


LAM 

4 

/TURN PANEL INDICATOR ON 

CPAN2680 

004507 

1 05026 


JMS 

P I NOON 


CPAN2690 

004510 

605055 


JMP 

PANRET 


CPAN2700 



/DISABLE 

CO INC STORAGE 


CPAN27I0 

00451 1 

105047 

COINOF 

JMS 

PAOCB 

/ARE AOCS ON 

CPAN2720 

004512 

203323 


LAC 

CNOP 


CPAN2730 

004513 

043235 


DAC 

JMSBUF 


CPAN27*«0 

.'•*4514 

216M24 


LAC 

f 160000) 


CPAN2750 

004515 

072064 


OAC* 

SET *5 

/ CMG 

CPAN2760 

004516 

760704 


LAW 

4 

/TURN PANEL INDICATOR OFF 

CPAN2770 

004517 

105737 


JMS 

PINDOF 


CPAN2700 

004520 

605G5U 


JMP 

PANRET 


CPAN2790 



/COMMAND 

TO DISCONTINUE TTY AND PUNCH 

CPAN20OO 



/OUTPUT 

AND CLEAR ENABLE READ 

out flag 

CPAN2810 

004521 

2I63I5 

ROHLT 

LAC 

( I ) 


CPAN2820 

004522 

045067 


OAC 

ENABRO 

/enable read out 

CPAN2830 

00-523 

040006 


DAC 

stpgut 

/STOP OUTPUT 

CPAN28N0 


E-48 


. 


03/02/72RALPH RIC C. DAVIES POP-9 


... PQP9/I5 ASSEMBLY LISTING ••• 


PAGE NO. 


004924 

HHH531 

004525 

60*52* 

004526 

i*ooo6 

004527 

106737 

004530 

605055 

004531 

000000 

004532 

536363 

004533 

076362 

00453H 

205067 

004535 

556315 

004536 

7m 000 

004537 

605053 

004540 

1*5067 

004541 

2 163 1 * 

004542 

7Q570* 

004543 

760001 

004544 

70500*4 

004545 

20*605 

004546 

7*1200 

004547 

60*563 

004550 

5563** 

004551 

60*571 

004552 

105305 

004553 

7*0040 

004554 

612005 

004555 

603332 

004556 

603337 

004557 

101776 

004560 

611616 

004561 

6070*2 

004562 

7*00*0 

004563 

20*60* 

004564 

5563*5 

004565 

60*577 

004566 

5563*6 

004567 

60*577 

004570 

605053 

00457! 

20*60* 

004572 

5563*7 

004573 

607132 

004574 

556335 

004575 

607205 

004576 

605053 

004577 

I 020 I 7 

004600 

10*061 

004601 

76633* 

004602 

10 7£3i 

004603 

605055 

0 J4604 

000000 

004605 

OOGOOO 

004606 

216315 

004607 

0*156* 

004610 

605055 

00461 1 

20156* 

004612 

5563 1 5 


IS2 

JMP 

OZrt 

JMS 

JMP 

ROH 0 

/SUBROUTINE TO 


ROH 

.-I 

STPOUT 

CRLF 

PANRET 


/WAIT FOR OUTPUT TO STOP 


ROGO 


CSNA 


LAC* 

OAC • 

LAC 

SAO 

SKP 

JMP 

OZM 

LAC 

PNIT 

LAW 

PBCM 

LAC 

SNA 

jr° 

SAO 

JMP 

JMS 

XX 

JMP 

JMP 

JMP 

JMS 

JMP 

JMP 

XX 


START OUTPUT OPERATION 
(EXP I OH) 

(EXPIOFI 

ENABRO /CHECK ENABLE REAO OUT 
( 1 ) 


PERROR 
ENABRO 
( 400000 I 

l 

OITEM 

ROGI 
C 7 1 
R0G2 
PAN8R 

UPSET 

TIMES 

SCALER 

COUNTO 

LIST 

EXP I OP- 3 


/PUSH CLEAR FIRST 
/CLEAR ENABLE REAO OUT 
/ENABLE PANEL INTERRUPT 


/ IS IT ALL DATA? 

/YES 

/IS IT 0 1 SPLAYEO OATA 
/YES 


/PRINT TIMES 
/SCALERS 
/PRINT COUNTS 

/ PRINT EXPIO 


ROGI LAC 

SAO 
JMP 
SAO 
JMP 
JMP 

ROGS LAC 

SAO 
JMP 
SAO 
JMP 
JMP 

OECOU JMS 

JMS 
LAW 
JMS 
JMP 

OOFV 0 

OITEM 0 

/ERASE ENABLE 
EENAB LAC 

OAC 
JMP 

/ERASE OATA 
PERASE LAC 

SAO 


OOEV 

<61 

OECOU 

(5) 

OECOU 

PERROR 

OOEV 

(HI 

SPECP1 

(31 

PUNOUT 

PERROR /OEVICE - DATA ITEM 

OECOUT 

AOCGON 

MESS45 /OUTPUT COMPLETE 

MESCOM 

PANRET 

/OUTPUT OEVICE 
/OUTPUT ITEM 

( I ) 

ERASE /ENA8LE 

PANRET 

ERASE 

'•I /IS ERASE ENABLEO 


47 


CPAN2850 

CPAN2860 

CPAN2870 

CPAN2880 

CPAN2890 

CPAN2900 

CPAN2910 

CPAN2920 

CPAN2930 

CPAN2940 

CPAN2950 

CPAN2960 

CPAN2970 

CPAN2980 

CPAN2990 

CPAN3000 

CPAN30 ! 0 

CPAN3020 

CPAN3030 

CPAN3040 

CPAN305G 

CPAN3060 

CPAN3070 

CPAN3080 

CPAN3090 

CPAN3I00 

CPAN3I 10 

CPAN3I20 

CPAN3I30 

CPAN3IH0 

CPAN3IS0 

CPAN3I60 

CPAN3170 

CPAN3I80 

CPAN3I90 

CPAN3200 

CPAN32 1 0 

CPAH3220 

CPAN3230 

CPAN3240 

CPAN3250 

CPAN3260 

CPAN3270 

CPAN3280 

CPAN3290 

CPAN3300 

CPAN33 I 0 

CPAN3320 

CPAN3330 

CPAN3340 

CPAN3350 

CPAN3360 

CPAN3370 

CPAN3380 

CPAN3390 

CPAN3400 

CPAN34I0 

CPAN3H20 
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00*613 

7*1000 

SKP 




CPAN3*30 

00*61* 

605053 

JMP 

PERROR 

/NO 


CPAN3**0 

00*615 

1 * 156* 

OZH 

ERASE 

/O l SABLE EOR NEXT TIME 

CPAN3*50 

00*6 S 6 

101553 

JMS 

ERASE 

/ ERASE 


CPAN3*60 

00*617 

107077 

JMS 

pr:of 



CPAN3*70 

00*620 

305850 

308250 


/It 


CPAN3H80 

00*621 

301328 

301322 


/RA 


' CPAN3H90 

00*622 

305323 

308323 


/St 


CPAN3500 

00*623 

651207 

651207 


/ ) BELL 


CPAN35I0 

00*62* 

605055 

JMP 

PANRET 



CPAN3520 



/START ADCS 




CPAN3530 

00*625 

I 050*7 

PADCGO JMS 

PAOCB 



CPAN35*0 

00*626 

200051 

LAC 

BKGFLG 



CPAN3550 

00*627 

7*0200 

SZA 


/ SKIP IF NOT 

BKG . 

CPAN356C 

00*630 

60*637 

JMP 

.♦7 



CPAN357-J 

00*631 

107077 

JMS 

PR! or 



CPAN3580 

00*632 

301250 

301250 


/CA 


CPAN3590 

00*633 

30330* 

30330* 


/DC 


CPAN3600 

00*63* 

3*72*0 

3172*0 


/O 


CPAN36I0 

00*635 

25 1 3 1 S 

251316 


/N 1 


CPAN3620 

00*636 

*00207 

*00207 


/BELL 


CPAM3630 

00*637 

50*717 

JMS 

AOCSTR 



CPAN36*0 

00*6*0 

605055 

JMP 

PANRET 



CPAN3650 

00*6*1 

000000 

AOCGO 0 




CPAN3660 



/PER 100 OF PEROIOIC 

dump or 

ALL DATA 


CPAN3670 

00*6*2 

200051 

POSO LAC 

BKGFLG 



C P AN 3680 

00*6*3 

7*0200 

SZA 


/ BKG? 


CPAN3690 

00*6** 

605055 

JMP 

PANRET 

/ YES 


CPAN3700 

00*6*5 

20* S *7 

LAC 

PCOOE 



CPAN37I0 

00*6*6 

5163** 

AND 

(7) 



CPAN3720 

00*6*7 

105535 

JMS 

PICK 



CPAN3730 

00*650 

000000 

0 


/NONE 


CPAN37*0 

00*651 

777777 

-1 


/MINUTES I 


CPAN3730 

00*652 

777773 

-5 


/MINUTES 5 


CPAN3760 

00*653 

777766 

-12 


/MINUTES 10 


CPAN3770 

00*65* 

77770* 

-7* 


/HOURS 1 


CPAN3790 

00*655 

77732* 

-*5* 


/HOURS 5 


CPAN3790 

00*656 

776850 

-1130 


/ HOURS 10 


CPAN3800 

00*657 

7721 10 

-5670 


/HOURS 50 


CPAN38 ‘ 0 

00*660 

0*0056 

OAC 

ODES 

/ SAVE FOR RESETTING COUNTER 

CPAN3820 

00*663 

0*0055 

OAC 

oorc 

/ SET COUNTER 


CPAN3830 

00*662 

7*0001 

CMA 




CPAN38*0 

00*663 

356315 

TAO 

( 1 > 



CPAN3850 

00*66* 

072066 

OAC* 

SET *7 

/ OOPI - DUMP 

INTERVAL HOLD 

CPAN3860 

00*665 

760002 

LAM 

2 

/TURN PANEL LIGHT OFE 

CPAN3870 

00*666 

1 05037 

JMS 

PINDOE 



CPAN3880 

00*667 

232058 

LAC • 

SET*7 

/ OOPI - IS INTERVAL 0? 

CPAN3890 

00*670 

7*1200 

SNA 




CPAN3900 

L 1*671 

605055 

JMP 

PANRET 

/YES 


CPAN39I0 

00*672 

760002 

LAM 

2 

/NO- TURN LIGHT 


CPAN3920 

00*673 

1 05026 

JMS 

PI NOON 

/SACK ON 


CPAN3930 

00*67* 

605055 

JMP 

PANRET 



CPAN39*0 



/AMOUNT OF LIVE TIME 



CPAN3950 

00*675 

*05535 

PL* VET JMS 

PICK 



CPAN3960 

00*676 

000000 

0 


/GET FROM TTY 


CPAN3970 

00*877 

000001 

1 


/MINUTES 


CPAN3980 

00*700 

000005 

5 


/MINUTES 


CPAN3990 

00*701 

0000*2 

12 


/MINUTES 


CPAN*000 


..i 


tTV. 





t#* 


faster. 
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0047Q2 

000074 


74 


/ 1 HOUR 



CPANHOIO 

004703 

000454 


454 


/5 HOUR 



CPANH020 

0047Q U 

001130 


2 130 


/ 1 0 HOUR 



CPANH030 

004705 

005570 


5670 


/50 HOUR 



CPANHOHO 

004706 

741200 


SNA 


/IF ZERO REAO IN FROM TTy 


CPANH05C 

GQ4707 

605055 


JMP 

PANRET 




CPANHO60 

004710 

044723 


OAC 

PLIVE 




CPANH070 

00471 l 

236425 


LAC • 

(L1VETM) 




CPANH080 

004712 

7400CI 


CMA 





CPANH090 

004713 

344723 


TAO 

PLIVE 




CPANHIOO 

004714 

741100 


SPA 





CPANHI 10 

004715 

605053 


JMP 

PERROR 




CPANHI 20 

004716 

204723 


LAC 

PLIVE 




CPANHI 30 

004717 

072070 


OAC • 

SET* 1 I 

/ LIVEPS-LIVE TIME 

PRESET. 


CPANHI HO 

004720 

076350 


OAC • 

CL1VEPTI 

/ LIVE TIME PRESET 

HOLD. 


CPANHI 50 

004721 

076351 


OAC* 

CL1VEPH) 

/ LIVE TIME HOLD. 



CPANHI 60 

004722 

605055 


JMP 

PANRET 




CPANHI 70 

004723 

000000 

PLIVE 

0 





CPANHI 80 



/DISPLAY 

MOOE SELECTION 




CPANHI 90 

004724 

045477 

PDMODE 

OAC 

OMOOE 

/STORE MOOE 



CPANH200 

004725 

605454 


JMP 

OSEL+2 




CPANHc’Q 

004726 

044746 

PNOCD 

OAC 

NOOCSW 

/NUMBER OF 01 SPLAY 

CHANNELS 

SWITCH 

CPANH220 

004727 

105535 


JM3 

PICK 




CPANH230 

004730 

000400 


400 


/256 



CPANH2H0 

004731 

000010 


10 


/8 



CPANH250 

004732 

000020 


20 


/ 16 



CPANH260 

004733 

000030 


30 


/24 



CPANH270 

004734 

000040 


40 


/ 32 



CPANH280 

004735 

000060 


60 


/58 



CPANH290 

004736 

000100 


too 


/64 



CPANHIOO 

004737 

000200 


200 


/ 128 



CPANH3I 0 

004740 

050344 


OAC 

NOCO 

/STORE IN NUMBER OF 

CHANNELS 

OISPLAYEO 

CPANH320 

004741 

34 7660 


TAO 

OISAOO 




CPANH330 

004742 

356426 


TAO 

c-400: 




CPANH3H0 

004743 

740100 


SMA 





CPANH3S0 

004744 

147660 


OZM 

OISAOO 




CPANH360 

004745 

605055 


JMP 

PANRET 




CPANH370 

004746 

000000 

NOOCSW 

0 


/NUMBER OF DISPLAY 

CHANNELS 

SWITCH 

CPANH380 



/PICK COUNTS FULL SCALE FOR LINEAR DISPLAY 



CPANH390 

004747 

000000 


0 





CPAMHHOO 

004750 

044747 

PLCFS 

OAC 

.-1 




CPANHH1C 

004751 

204747 


LAC 

-2 




CPANHH20 

004752 

105535 


JMS 

PICK 




CPANHH30 

004753 

010300 


ROTLST ♦ 1 5 


/256K 



CPANHHHO 

004754 

010263 


ROTLST 


/ 32 



CPANHH50 

004755 

010264 


ROTLST* | 


/64 



CPANHH60 

004756 

010266 


ROTLST ♦ 3 


/256 



CPANHH70 

^04757 

01 0270 


ROTLST *5 


/IK 



CPANHH80 

004760 

010272 


ROTLST *7 


/ 4K 



CPANHH90 

004761 

010274 


ROTLST*! 1 


/ 16K 



CPANH500 

P04762 

010276 


ROTLST* 13 


/64K 



CPANH5I0 

004763 

050261 


OAC 

LOCATR 




CPANH520 

004764 

216315 


LAC 

(I) 

/SET SCALE 



CPANH530 

004765 

047661 


OAC 

SCALE 

/TO LINEAR 



CPANH5H0 

004766 

605055 


JMP 

PANRET 




CPANH550 



/PICK NUMBER OF OECAOES 




CPANH560 

004767 

000000 


0 





CPANH570 

004770 

044767 

PNOLO 

OAC 

-l 




CPANH5B0 
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004771 

204767 


LAC 


.-2 



004772 

556344 


SAO 


(7) 



004773 

216346 


LAC 


(5) 



004774 

741200 


SNA 





004775 

216346 


LAC 


(51 



004776 

660714 


ALSS 


I 4 



004777 

050675 


OAC 


FACT 



005000 

147661 


OZM 


scale 

/SET SCALE TO 

LOG 

005001 

21 1026 


LAC 


JLOGAR 



005002 

050376 


OAC 


LOGLIN 



005003 

605055 


JMP 


PANRET 





/PICK BASE LINE 

DECADE NUMBER 



005004 

556344 

PBLDN 

SAO 


(7) 



005005 

216346 


LAC 


(5) 



005006 

741200 


SNA 





005007 

216346 


LAC 


t5> 



005010 

356337 


TAO 


(-1) 



00501 1 

350620 


TAO 


AOECM 

/CALCULATE BY 

TABLE LOOK UP 

005012 

107072 


JMS 


LAC l 



005013 

050617 


OAC 


LOGSUB 



005014 

605055 


JMP 


PANRET 





/LOG LINEAR FLIP FLOP 



005015 

207661 

LOGLN 

LAC 


SCALE 



005016 

740200 


SZA 





005017 

604771 


JMP 


PNOLD+I 



005020 

604751 


JMP 


PLCFS+ 1 





/AOO ONE 

INCREMENT 

TO SPREAO 



005021 

210302 

PSPREA 

LAC 


SPREAD 



005022 

356427 


TAO 


(200) 



005023 

516340 


A*fO 


( 1777) 



005024 

050302 


OAC 


SPREAO 



005025 

605055 


JMP 


PANRET 





/subroutine to maintain panel 

INDICATORS 




/CALL PI NOON TO 

TURN LIGHT ON 





/CALL PINDOF TO 

TURN LIGHT OFF 




/ENTER WITH PROPER 

8 1 TS IN AC 

12 - 17 


005026 

000000 

P I NOON 

0 





005027 

700002 


I OF 





005030 

045037 


OAC 


PINDOF 



005031 

7400G1 


CMA 





0C5032 

505046 


AND 


1NOIC 



005033 

245037 


XOR 


P l NOOF 



005034 

045046 


OAC 


IN01C 



005035 

705702 


PNIO 





005036 

625026 


JMP* 


PI NOON 



005037 

G00000 

PINDOF 

0 





005040 

700002 


I OF 





005041 

740001 


CMA 




• 

005042 

505046 


AND 


1 NO I C 



O05043 

045046 


DAC 


I NO 1C 



005044 

705702 


PNIO 





005045 

625037 


JMP* 


P I NOOF 



005046 

000000 

I NO I C 

0 



/HOLOS PANEL INDICATOR ST AT 1 



/GOES TO 

PER ROR 

IF 

AOC IS ON 



005047 

000000 

PA0C8 

0 





005050 

200226 


LAC 


ADCON 

/ARE AOC S ON 


005051 

741200 


SNA 





005052 

625047 


JMP* 


PA0C8 

/NO 



CPAN4390 

CPANH600 

CPAN*«6 1 0 

CPAN><680 

CPANW630 

CPANH640 

CPAN‘4650 

CPAN4660 

CPANH670 

CPANW680 

CPANM690 

CPANH700 

CPANH7 1 0 

CPANH720 

CPANW730 

CPANkTiO 

CPANM750 

CPAMH760 

CPANH770 

CPANH780 

CPANW79Q 

CPAN4800 

CPAN48I0 

CPAN408Q 

CPAN4830 

CPAN4840 

CPAN4850 

CPAN4860 

CPAN407O 

CPAN4880 

CPAN409O 

CPANH900 

CPANH’9 1 0 

CPAN4920 

CPAN4930 

CPAN4940 

CPAN4950 

CPAN4960 

CPAN4970 

CPAN4980 

CPAN4990 

CPAN5000 

CPAN50 l 0 

CPAN5020 

CPAN503Q 

CPAN5040 

CPAN5050 

CPAN5060 

CPAN5070 

CPAN5080 

CPAN5G90 

CPAN5I00 

CPAN5I 10 

CPAN5I20 

CPAN5130 

CPAN5I40 

CPAN5I50 

CPAN5I60 
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/SET ERROR LIGHT ON 

1 PANEL 


CPAN51 70 

005053 

760010 

PERROR 

LAW 

10 


CPAN5180 

G05054 

105026 


JMS 

P 1 NOON 


CPAN5190 



/RETURN 

F ROM PANEL 

INTERRUPT 


CPANS200 

003055 

216314 

PANRET 

LAC 

(M00000) 


CPAN5210 

005056 

700002 


IOF 



CPAN5220 

005057 

705704 


PN IT 


/ENABLE PANEL INTERRUPT 

CPAN5230 

005060 

760001 


LAW 

1 

/ENABLE BOX 

CPAN5240 

00506! 

705004 


FBCM 



CPAN5250 

005062 

204106 


LAC 

PANFLG 


CPAN5260 

005063 

144106 


OZh 

PANFLG 

/CLEAR FLAG 

CPAN5270. 

005064 

740200 


SZA 


/TTY ENTRY OR PANEL INTERUPT? 

CPAN5280 

005065 

607436 


JMP 

RET 


CPAN5290 

005066 

606257 


JMP 

RETC 

/TTY 

CPAN5300 

C05067 

000000 

ENA8R0 

0 


/ENABLE RE AO OUT 

CPAN5310 



/SUBROUTINE TO CLEAR CLOCKS AND SCALERS 

CPAN532P 

005070 

000000 

CCAS 

0 



CPAN5330 

00507! 

21 1265 


LAC 

MT801 

/RESET MAG POINTERS 

CPAN5340 

005072 

051271 


OAC 

MTBP 1 


CPAN5350 

005073 

tZ : 1 266 


LAC 

MT802 


CPAN5360 

005074 

Oa 1 272 


OAC 

HT3P2 


CPAN537^ 

005075 

232070 


LAC • 

SET+ | | 

/ LIVEPS-RESET LIVETM PRESET 

CPAN5380 

005076 

076350 


OAC • 

(LIVEPT ) 

/ POINTER. 

CPAN5390 

005077 

770760 


LAW 

-7020 


CPAN5400 

005100 

040007 


DAC 

7 


CPAN54I 0 

00510! 

777437 


LAW 

-341 


CPAN5420 

005102 

076430 


DAC * 

(LI VECL) 


CPAN5430 

005103 

702302 


CCSC 


/CLEAR SYSTEM LIVE TIME 

CPAN5440 

005 1 OH 

702004 


CLSA 


/CLEAR SCALER A 

CPAN5450 

005105 

702024 


CL 38 


/a 

CPAN5460 

005106 

702044 


CLSC 


/C 

CPAN5470 

005107 

702064 


CL 50 


/D 

CPAN540O 

0051 10 

105237 


JMS 

READCS 

/READ ZEROED CLOCKS FOR STORAGE 

CPAN5490 

00511 1 

203351 


LAC 

SCAER+5 

/ SCALRA AOR. 

CPAN5500 

005! 12 

04Q255 


OAC 

ZERTEM 


CP AN55 10 

005! 13 

777752 


LAW 

-26 


CPAN5520 

005! 14 

101636 


JMS 

ZEROUT 

/ ZERO SCALERS. 

C ^5530 

005! 15 

200056 


LAC 

OOFS 

/ RESET DATA OUMP COUNTER 

CPAN5540 

005! 1 6 

040055 


OAC 

OOFC 


CPAN5550 

005! 17 

216413 


LAC 

(21 


CPAN5560 

005 I2C 

040261 


OAC 

A8£T 

/PERIOOiC BLOCK COUNT 

CPAN557i> 

00512! 

151373 


OZM 

MTRCCT 

/MAG TAPE RECORD COUNTER 

CPAN5580 

005122 

625070 


JMP* 

CCAS 


CPAN5590 



/routine 

TO SERVICE 

real time 

CLOCK INTERRUPTS 

CPAN5600 

005123 

700044 

RTSEV 

CLON 



CPAN56 1 0 

005124 

770760 


LAW 

-7020 

/RESET CLOCK WITH -3600 

CPAN5620 

005125 

040007 


DAC 

7 


CPAN5630 

005126 

476431 


ISZ* 

CREALTM) 

/ ADO 1 MINUTE TO REALTM. 

CPAN5640 

C°5 127 

440055 


ISZ 

OOFC 

/ OUMP COUNTER 

CPAN5650 

0 G5 1 30 

607436 


JMP 

RET 


CPAN5660 

005131 

232066 


LAC* 

SET + 7 

/ OOPi - IF 0 DON ' T DUMP. 

CPAN5670 

005132 

741200 


SNA 


/PERIOOIC DATA IS BEING DUMPED 

CPAN5680 

005133 

607436 


JMP 

RET 

/ NO. RETURN 

CPAN5690 

005134 

200051 


LAC 

bkgflg 


CPAN5700 

005135 

740200 


SZA 


/ OONT DUMP IF IN SKG . 

CPAN57I 0 

005136 

607436 


JMP 

RET 


CPAN5720 

005137 

103375 


JMS 

offaoc 


CPAN5730 

005140 

44464 1 


ISZ 

AOCGO 

/ DON'T ENABLE AOC 

CPAN5750 
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oosmi 

105237 

.JMS 

REAOCS 

0051 42 

2002*1 

LAC 

A9CT 

0051*43 

045202 

OAC 

ALLCTN 

0Q5I44 

216347 

LAC 

(41 

oosms 

041135 

OAC 

UNIT 

005 146 

205546 

LAC 

BLKONE /'O ECT 

0051*47 

105174 

JMS 

S r NOMP 

005150 

740200 

S2A 

/ERROR? 

005i5i 

605166 

JMP 

RTSEVJ /YES 

005152 

20022! 

LAC 

SUMONE /SUM SPECTRUM 

005153 

105174 

JMS 

SI NOMP 

005154 

200217 

LAC 

fstart /F singles 

005155 

105174 

JMS 

SI NOMP 

005156 

200220 

LAC 

MSTART /M singles 

005157 

105174 

JMS 

S S NOMP 

005160 

105206 

JMS 

CONOMP /COINCIDENCE 

005161 

200261 

LAC 

ABCT 

005162 

356331 

TAO 

(45) 

005163 

556432 

SAD 

( 1055) 

005164 

216413 

LAC 

(2) 

005165 

04026! 

OAC 

ABCT 

005166 

200056 

RTSEV1 LAC 

OOFS / RESET COUNTER 

005167 

040055 

OAC 

OOFC 

005170 

700002 

I OF 


005171 

103406 

JMS 

ONADC 

005172 

144641 

OZM 

AOCGO 

005173 

607436 

JMP 

/SUBROUTINE TO DUMP 

RET 

SINGLES ON DECT APE 

005174 

000000 

S I NOMP 0 


005175 

045201 

OAC 

. +4 

005176 

I063H4 

JMS 

DEC TRW 

005177 

000000 

0 


005200 

777400 

-400 

/we 

005201 

000000 

0 

/CA 

005202 

000000 

ALLCTN 0 

/BLK 0 

005203 

000005 

5 

/WRITE 

005204 

445202 

ISZ 

ALLCTN 

005205 

625174 

JMP* 

/SUBROUTINE TO OUMP 

Si NOMP 

COINCIDENCE ON DEC TAPE 

005206 

000000 

CONOMP 0 


005207 

205202 

LAC 

ALLCTN 

005210 

045215 

OAC 

.♦5 

00521 1 

106344 

JMS 

DEC TRW 

005212 

000000 

0 


0052 5 3 

760000 

-20000 

/ WC 

0052 1 4 

040000 

40000 

/ CA 

005215 

000000 

0 

/ BLK * 

005216 

000005 

5 

' WRITE 

005217 

‘325206 

JMP* 

CONOMP 



/CWR PDP9 

/ROUTINE TO SERVICE 

SEPTEMBER 1968 

REAL TIME CLOCK INTERRUPTS 

005220 

702304 

LTSEV CCOF 

/CLEAR COVERFLOW FLAG 

005221 

476430 

ISZ* 

<L l VECL 1 

0G5222 

607436 

JMP 

RET / NO OVERFLOW 

005223 

476425 

ISZ* 

( L I VE T f i / I MINUTE IS UP. 

005224 

777437 

LAW 

-341 

005225 

076430 

OAC* 

(LtVECD / RESET CLOCK (-3600) 

005226 

236425 

LAC* 

(LI VETM) 


CPAN5760 

CPAN5770 

CPAN5780 

CPAN5790 

CPAN5800 

CPAN58 1 0 

CPAN5B20 

CPAN5830 

CPAN58>*0 

CPAN5850 

CPAN506O 

CPAN5870 

CPAN5880 

CPAN5890 

CPAN5900 

CPAN59I0 

C*»AN5920 

CPAN5930 

CPAN59HO 

CPAN5950 

CPAN5960 

CPAN5979 

CPAN5960 

CPAN5990 

CPAN6000 

CPAN60 1 0 

CPAN6020 

CPAN6030 

CPANBO'fQ 

CPAN6050 

CPAN6060 

CPAN6070 

C^ANSOBO 

CPAN6090 

CPAN6I00 

CPANSI 10 

CPAN6I20 

CPAN6I30 

CPAN6 I ‘sO 

CPAN6I50 

CPAN6I60 

CPAN61 70 

CPAN6I80 

CPAN6190 

CPAN6200 

CPAN62I0 

CPAN6220 

CPAN6230 

CPAN62m> 

CPANf 250 

CPAN6260 

CPAN6270 

CPAN6280 

CPAN6290 

CPAN6300 

CPAN63I0 

CPAN6320 

CPAN6330 
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005827 

005230 

005231 

005232 

005233 

005234 

005235 

005236 


576350 

7HI000 

607436 

101662 

236350 

372070 

076350 

607436 


005237 

0052*40 

0052HI 

005242 

0052*43 

005244 

0052*45 

0052*46 

0052H7 

005250 

005251 

005252 

005253 

00525*4 

005255 

005256 

005257 

005260 

005261 

005262 

005263 

00526*4 

005265 

005266 

005267 

005270 

005271 

005272 

005273 

005274 


000000 
236*43 ! 
076*433 
200007 
356*43*4 
744Q0Q 
650323 
007020 

6H 1 002 

076*435 

236425 

076436 

236430 

741200 

605263 

356437 

744000 

650323 

000341 

641002 

076440 

702012 

076441 

702032 

076442 

702052 

076443 

702072 

076444 

625237 


005275 

-.05276 

005277 

005300 

0-5301 

005302 

005303 

005304 


000000 

200226 

751200 

625275 

340051 

740200 

625275 

606746 


005305 

005306 

005307 


000000 

345305 

045314 
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005310 

225314 


LAC* 

. *4 

-- 

00531 ! 

045314 


OAC 

♦ + 3 


005313 

204147 


LAC 

PCOOE 


005313 

516344 


AND 

171 


005314 

740040 


XX 



005315 

605055 


JMP 

PAI.RET 




/COMMAND 

TO SELECT 

NUMBER TO 

BE GENERATED 



/ON DISPLAY 



005316 

1 12461 

NGCOM 

JMS 

DEC IN 

/INPUT NUMBER 

005317 

516344 


ANO 

(7) 

/SAVE LOU BITS 

005320 

050616 


DAC 

NGCTS 


005321 

106737 


JMS 

CRLF 


005322 

754000 


CLAICLL 



005323 

705704 


PNIT 


/0ISA8LE PANEL 

005324 

213415 


LAC 

BC+2 


005325 

640503 


LRS 

3 

/CONVERT INPUT NUMBER 

005320 

741200 


SNA 


/TO A SWITCH NUMBER 

005327 

605366 


JMP 

NGCOM 1 


005330 

556315 


SAD 

( 1 1 


005331 

605370 


JMP 

NGCOM2 


005332 

5564 1 3 


SAD 

(21 


005333 

741000 


5KP 



005334 

606746 


JMP 

QMARK 


005335 

200051 


LAC 

BKGFLG 


005336 

740200 


SZA 



005337 

605353 


JMP 

.♦14 


0G5340 

210616 


LAC 

NGCTS 


00534*1 

105535 


JMS 

PICK. 

/ SELECTION OF ITEMS 

005342 

107756 


JMS 

NGNON 


005343 

411373 


XL :T 

MTRCCT 

/ NOT ON PANEL 

005344 

406512 


XCT 

OECPTY 


005345 

770027 


OPR 1 ERE JH 1 


005346 

770023 


OPRISREJHI 


005347 

770025 


OPRICREJHI 


005350 

107756 


JMS 

NGNON 


005351 

107756 


JMS 

NGNON 


005352 

604234 


JMP 

P1NRET 


005353 

210616 


LAC 

NGCTS 


005354 

105535 


JMS 

PICK 


005355 

107756 


JMS 

NGNON 


005356 

411373 


XCT 

MTRCCT 


005357 

406512 


XCT 

OECPTY 


005360 

770427 


OPR 1 ERE JH f +H00 


005361 

770423 


OPRISREJHI -mOO 


005362 

770425 


OPRICREJHI +400 


005363 

107756 


JMS 

NGNON 


005364 

107756 


JMS 

NGNON 


005365 

C04234 


JMP 

PINRET 


C 75366 

216445 

NGCOM 1 

LAC 

(70) 

/INFO SELECTION 1 

J05367 

741000 


SKP 



005370 

216316 

NGC0M2 

LAC 

i 1 00 l 

/ INFO SELECT ION 2 

005371 

350616 


TAD 

NGCTS 


005372 

6041 1 1 


JMP 

PANSEV2 




/ZERO SUPPRESSION 

FLIP FLOP 

FOR 01 SPLAY 

005373 

203323 

SUPZRO 

LAC 

CNOP 


005374 

550351 


SAD 

002+1 


005375 

203340 


LAC 

CSZA 


005376 

050351 


DAC 

002* t 
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CPAN6920 
CPAN6930 
CPAN6940 
rpAN6950 
CPAN6960 
CPAN6970 
CPAN6980 
CPAN6990 
CPAN7000 
CPAN70I0 
CPAN7020 
CPAN7030 
CPAN70H0 
CPAN7050 
CPAN7060 
CPAN707G 
CPAN70Q0 
CPAN7090 
CPAN7I00 
CPAN7 5 10 
CPAN7I20 
CPAN713Q 
CPAN714Q 
CPAN7I50 
CPAN7160 
CPAN7170 
CPAN7I80 
CPAN7190 
CPAN7200 
CPAN72I0 
CPAN7220 
CPAN7230 
CPAN7240 
CPAN7250 
CPAN726G 
CPAN7270 
CPAN7280 
CPAN7290 
CPAN7300 
CPAN73I0 
CPAN7320 
CPAN7330 
CPAN7340 
CPAN7350 
CPAN7260 
CPAN7370 
CP>N7380 
CPAN7390 
CPAN7400 
CPAN74IC 
C?AN7420 
CPAN743P 
CPAN7440 
CPAN7450 
CPAN7460 
CPAN7470 
CPAN748U 
CPAN7490 
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P0P9/I5 

ASSEMBLY LI 

005377 

605055 

/rotate 

JHP 

CONTROL 

PANRET 

005400 

777777 

RR1GKT 

LAN 

- 1 

G054QS 

050305 


OAC 

SPCONA 

005402 

224336 


LAC* 

ROTPT 

005403 

064337 


OAC* 

ROTPTi 

005404 

605055 


JHP 

P/NRET 

0054C5 

2 I 63 15 

RLEFT 

LAC 

C 1 ) 

005406 

050305 


OAC 

SPCONA 

005407 

005^10 

224336 

740001 


LAC* 

CMA 

ROTPT 

00541 I 

356315 


TAD 

1 1 ) 

005418 

605403 


JHP 

RLEFT-2 

005413 

1 47660 

RINIT 

DZM 

0 1 SAOD 

005414 

150310 


OZM 

SX 

005415 

164340 


DZM* 

R0TPT2 

005416 

164337 


OZM* 

ROTPT! 

0054 J 7 

605055 


JHP 

PANRET 

005480 

216446 

rfast 

LAC 

C RTMP 1 

005421 

050254 


OAC 

MOVAOO 

005422 

450260 


ISZ 

ROT INC 

005423 

605055 


JHP 

PANRET 

005424 

204337 


w AC 

ROTPTI 

005425 

050254 


OAC 

MOVAOO 

005426 

777776 


LAN 

-2 

005427 

050260 


OAC 

ROT INC 

005430 

605055 


JHP 

PANRET 

005431 

000000 

RTMP 0 

/COINCIDENCE DISPLAY CONTROL 

00*432 

705012 

OUST 

FBRD 


00^433 

1 4 1 526 


OZM 

CMODE 

005434 

516447 


AND 

I 100000) 

005435 

545500 


SAO 

BSPEED 

005436 

605446 


JHP 

.♦10 

005437 

005440 

045500 
74 1209 


OAC 

SNA 

BSPEED 

005441 

605446 


JMP 

.♦5 

0G5442 

005443 

005*44 

224337 

744010 

744010 


LAC* 

CLLIRAL 

CLLIRAL 

ROTPT! 

005*45 

064337 


OAC* 

ROTPT 1 

005446 

005447 

447762 

741000 


ISZ 

SKP 

NGRF 

005450 

1 07662 


JMS 

NGBTO 

005451 

107770 


JHS 

NGOSS 

005452 

610051 

OSEL 

JMP 

01 SPEC 

005453 

675432 


JMP 

OLIST 

005454 

205477 


LAC 

DMOOE 

005455 

345466 


TAD 

AOLD 

005456 

J05457 

1/45457 

740040 


OAC 

XX 

.♦1 

005460 

005461 

205453 

741000 


LAC 

SKP 

OSEL ♦ I 

005462 

205465 


LAC 

♦ 3 

005463 

045452 


OAC 

OSEL 

005464 

605055 


JMP 

PANRET 

005465 

601353 


JMP 

CONOIS 

005466 

605467 

ADLD 

JMP 

. ♦ I 
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/ROTATE RIGHT 


/ROTATE LEFT 


PAGE NO. 


R5 


/ROTATE INITIALIZE 


RE AO FUNCTION BOX 
CLEAR DISPLAY CHANGE 


FLAG 


NUMBER GENERATOR 8f NARY TO OEC 
DISPLAY NUMBER 


/ FORM INSTRUCTION 


CPAN7500 

CPAN75 1 0 

CPAN7520 

CPAN7S30 

CPAN7540 

CPAN7550 

CPAN7560 

CPAN7570 

CPAN7S60 

CPAN7590 

CPAN7600 

CPAN7610 

CPAN7620 

CPAN7630 

CPAN76*«0 

CPAN7650 

CPAN7660 

CPAN7670 

CPAN7680 

CPAN7690 

CPAN7700 

CPAN77 i 0 

CPAN7V0 

CPAN7730 

CPAN77N0 

CPAN7759 

CPAN7760 

CPAN7770 

CPAN7780 

CPAN7790 

CPAN70OO 

CPAN78 I 0 

CPAN7820 

CPAN7830 

CPAN70««Q 

CPAN7V150 

CPAN7860 

CPAN7870 

CPAN788G 

CPAN7890 

CPAN7900 

CPAN79 ’• 0 

CPAN79S0 

CPAN7930 

CPAN7940 

CPAN7950 

CPAN7960 

CPAN7970 

CPAN7980 

CPAN7990 

CPAN8000 

CPAN80 i 0 

CPAN0O2O 

CPAN8030 

CPAN80*«0 

CPAN8050 

CPAN8G6G 

CPAN8070 
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b6 


005467 

605462 


JMP 

.-5 


CPAN0Q8O 

005470 

605460 


JMP 

.-10 


CPANS090 

00547! 

605527 


JMP 

PFOIS 

/plane-f overlap 

CPAN8100 

00547? 

605526 


JMP 

PC IS 

/PLANE 

CPAN81 10 

005473 

6055 i 3 


JMP 

SUMO I S 

/SUM 

CPAN8120 

005474 

605506 


JMP 

FMOIS 

/F - M OVERLAP 

CPAN8130 

005475 

605504 


JhP 

MO IS 

/M SINGLE DISPLAY 

CPAN8I40 

005476 

605502 


JMP 

F01S 

/ F SINGLE D I SPLAT 

CPAN8150 

005477 

000007 

OMODE 

7 


/ HOLDS DISPLAY MOOE 

CPAN8160 

005500 

000000 

BSPEED 

0 



CPAN8I 70 

005501 

610051 

JO ISP 

JMP 

01 SPEC 


CPAN8180 

005502 

200217 

FDIS 

LAC 

FSTART 

/O I SPLAY F SINGLE 

CPAN8190 

005503 

605514 


JMP 

SUMOISM 


CPAN8200 

005504 

200220 

HOIS 

LAC 

MSTART 

/DISPLAY M SINGLE 

CPAN821 0 

005505 

605514 


JMP 

SUMO IS* I 


CPAN8220 

005506 

200220 

FMOIS 

LAC 

MSTART 

/DISPLAY F-M OVERLAP 

CPAN8230 

005507 

340051 


TAO 

8KGFLG 


CPAN8240 

005510 

050410 


OAC 

OJSTWO 


CPAN8250 

00551 1 

200217 


LAC 

FSTART 


CPAN8260 

005512 

605515 


wMP 

SUM0IS+2 


CPAN82.0 

005513 

200221 

SUMO IS 

LAC 

SUMONE 

/DISPLAY SUM 

CP AN828C 

005514 

150410 


OZM 

OISTWO 


CPAN8290 

005515 

340051 


TAO 

8KGFL0 


CPAN8300 

005516 

050407 


OAC 

OISONE 


CPAN83I0 

005517 

777400 

RAMPC 

LAM 

-400 


CPAN8320 

005520 

050307 


OAC 

MRAMP 


CPAN833C 

005521 

205501 


LAC 

JO ISP 


CPAN8340 

005522 

045452 


OAC 

DSEL 


CPAN8350 

005523 

216450 


LAC 

<7700* 

/ MOVE NO UP 

CPAN8360 

005524 

050551 


OAC 

NY 


CPAN8370 

005525 

605055 


JMP 

PANRET 


CPAN6480 

005526 

751000 

POIS 

SKPICLA 


/Ol SPLAY PLANE 

CPAN8390 

005527 

200233 

PFOIS 

LAC 

FSTI20 

/display plane-f OVERLAP 

CPAN04OO 

005530 

050410 


OAC 

OISTWO 


CPAN84I0 

005531 

200216 


LAC 

FGTPLA 


CPAN8420 

005532 

050407 


OAC 

OISONE 


CPAN8430 

005533 

777600 


LAW 

-200 


CPAN8440 

005534 

605520 


JMP 

RAMPC ♦ 1 


CPAN8450 



/ENO OF 

CO INC CODING 


CPAN8460 



/BEGINNING OF COMMON COOING 


XOIROOOO 

005535 

000000 

PICK 

0 



XOIROOIO 

005536 

345535 


TAO 

PICK 


X0IR0020 

005537 

045545 


OAC 

. *6 


XD1R0030 

005540 

215535 


LAC 

PICK 


XOIR0040 

005541 

356341 


f AO 

(10) 


XOIR0050 

005542 

045535 


OAC 

PICK 


X01R0060 

005543 

225545 


LAC ■ 

. *2 


XOIR0070 

005544 

625535 


JMP® 

PICK 


XOIR0080 

005545 

000000 


0 



XOfRG090 

005546 

030000 

8LK0NE 

EXP f 0 



XDIR0100 



/NEWDIR 

MW8 

POP-9 


XDIR01 10 



/ROUTINE 

TO CREATE 

A DIRECTORY 

ON DEC TAPE. 

XDIR0120 

005547 

000000 


0 



XOIR0I30 

005550 

104041 

NEWOIR 

JMS 

AOCCHK 


XOIR0140 

005551 

201135 


LAC 

UNIT 


X01R0150 

005552 

7402C0 


SZA 


/ MAG TAPE MAY NOT HAVE DIRECTORY 

X0IR0160 

005553 

106054 


JMS 

ROD 1 R 


XD IRQ 170 

005554 

400052 


XCT 

XCTBKG 


XOIROIQO 
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005555 

3k6t 33 


TAO 

OECNHA 


XOIR0I90 

005556 

Ok55k7 


OAC 

NEMOIH* 

1 

X0IR020C 

005557 

220215 


LAC* 

REEL 


XOIR02I0 

005560 

0655k7 


OAC* 

NEMD1R* 

1 

XOIR0220 

005561 

IH6307 


OZH 

DIRCNY 


XDIR0230 

005563 

777775 


LAM 

_ *“ 


XOlR02sO 

005563 

0k63Q0 


OAC 

01 LOOP 


XDIR0250 

00556k 

777777 


LAM 

-1 


XDIR0260 

005565 

0k630! 


OAC 

CKSLOT 


XDIR0270 

005566 

205717 


LAC 

01 RONE 


X0IR0280 

005567 

0k63O2 


OAC 

OIRTEM 


XDIR0290 

005570 

20630! 

NEMO! 

LAC 

CKSLOT 


XOIR0300 

005571 

066302 


OAC* 

OIRTEM 

/SET CHECK MORO 

XQIR03I0 

005572 

kk630i 


iSZ 

CKSLOT 


XOIR0320 

005573 

7k0000 


NOP 



XDIR0330 

00557k 

kk630 2 


ISZ 

OIRTEM 


XOIR03VQ 

005575 

kk6307 


ISZ 

OIRCNT 


XD1R0350 

005576 

kk6300 


ISZ 

01 LOOP 

/LAST CHECK MORO 

X0IR0360 

005577 

605570 


JHP 

NEMOI 

/NO 

XOIR0370 

005600 

166302 

NEWD2 

DZH* 

OIRTEM 

/ZERO REMAINDER OF BLOCK 

yO!RG?0O 

005601 

kk6307 


ISZ 

OIRCNT 


X0IR0390 

005602 

206307 


*-AC 

OIRCNT 


XO !R0k«V0 

005603 

556333 


SAO 

mooi 

/OJ RECTORY BLOCK ZEROEO 

XOIROklO 

00560k 

605607 


JHP 

.*3 

/ YES 

XO I R0k20 

005605 

kk6302 


ISZ 

OIRTEM 

/NO 

XD1R0H30 

005606 

6Q5600 


JHP 

NEMOS 


XOlROkkO 

005607 

2055k7 


LAC 

NEMO I R- 

I / GET REEL NUMBER. 

XOlROkSO 

005610 

112250 


JHS 

NIO 


XOIROkSO 

00561 1 

2255k7 


LAC* 

NEMO I R- 

1 

XOlR0k70 

005612 

060215 


OAC* 

REEL 


XOlROkOO 

005613 

106072 


JHS 

MTOIR 


XOIR0H90 

00561k 

201135 


LAC 

UNIT 


X0IR0500 

005615 

7k0200 


SZA 


/ MAG TAPE? 

XOIR0510 

005616 

606257 


JHP 

RETC 

/ NO 

XOIR0520 

005617 

151376 


OZH 

RMFG 


X0IR0530 

005620 

V 1 1 377 


JHS 

mtrout 

/ MAKE IT LOOK LIKE NORMAL FILE 

XOIROBkO 

005621 

000000 


0 



XOIR0550 

005622 

7 56k 00 


*21 kOO 


/ HC 

X01R0560 

005623 

03k600 


3k600 


/ CA 

XOIR0570 

00562k 

000000 


0 


/ NO SKIPPING 

X0JRP580 

005625 

000005 


5 



X0IRC590 

005626 

11 1 323 


JHS 

EOF 


XOIR0600 

005627 

606257 


JHP 

RETC 


X02R061 0 



/DIRECT 

MMB 

POP-9 


XOIR0620 



/ROUTINE 

TO PRINT 

DIRECTORY 

ON DEC TAPE. 

XOIH0630 

005630 

COOOOO 

DIRECT 

0 



XOIROSkO 

005631 

106737 


JHS 

CRLF 


XOIR0650 

005632 

105662 


JHS 

OIRCK 

/CHECK DIRECTORY 

XOIR0660 

005633 

625630 


JHP* 

QIRECT 

/NO OJRECTORY 

XDIR0670 

H0563k 

625630 


JHP* 

OIRECT 

/NO SPECTRA 

XQ1R068G 

005635 

7kOOOQ 


NOP 


/TAPE FULL 

XOI R06S0 

005636 

1 OS III 


JHS 

SEtCNT 

/NORMAL 01 RECTORY 

XDIR0700 

005637 

Ik2535 


OZH 

DTREI 

/ ZERO SLOT COUNTER 

XUIR0710 

0056k0 

10673V 

0 1 fi£ 1 

JHS 

CRLF 


XQIR0720 

0056kl 

kk25 35 


ISZ 

OTREt 

/ NEXT SLOT 

X0IR0730 

0056k2 

202535 


LAC 

OTREI 


X0IR07k0 

0056H3 

7kkOaO 


CLL 


/ POS. • 

XDIR0750 

0056k k 

1 0655k 


JHS 

OECPRI 


XOIR0760 
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0056*5 

226306 


LAC* 

OIRTI 


XDIR077G 

0056*6 

0*6712 


DAC 

HIGHPR 

/ SET HIGH OROER 

XDIR0780 

0056*7 

226302 


LAC* 

OIRTEM 

/GET ENTRY 

XDIR07S0 

005650 

IC655* 


JMS 

OECPRT 

/PRINT CONTENTS OF SLOT 

XOIROBOO 

005651 

226302 


LAC* 

DIRTEM 


XDlftOBlO 

00565c? 

326306 


AO0* 

OIRTI 


XDIR0B20 

005653 

**6302 


ISZ 

OIRTEM 


X0IR0830 

O0565* 

**6306 


ISZ 

DIRTI 


XOIR08<<0 

005655 

7*0200 


SZA 


/ID IN THIS ENTRY 

XDIRQ850 

005556 

**6307 


ISZ 

OIRCNT 

/ YES 

XOIRC860 

005657 

6056*0 


JMP 

DIRE! 

/NO 

XDIR0870 

005660 

106737 


JUS 

CRLF 


XOIROBBO 

005661 

625630 


JMP* 

OIRECT 


XDIR0890 



/DIRCK 

WHS 

POP-9 


XDIR0900 



/ROUTINE 

TO CHECK FOR A DIRECTORY. PRESENCE OF SPECTRA. IF TAPE 

XOIR09I 0 



/IS FULL * 

USED 

IN FOLLOWING 

WAV. 

XDIR0920 



f 

JMS 

DIRCK 


X01R0930 



i 

X 


/RETURNS HERE IF NO OIRECTORY , 

XDIR09H0 



/ 

X 


/RETURNS HERE IF NO SPECTRA 

X0IR0950 



/ 

X 


/RETURNS HERE IF TAPE FULL 

XDIR0960 



/ 

V 


/RETURNS HERE IF NORMAL OIRECTORY 

XOIR0970 



/ 




X01R099R 

005668 

OOQOOO 

OIRCK 

0 



XDIR0990 

005663 

777775 


LAW 

-3 


XOIRIOOO 

00566* 

0*6300 


OAC 

DILOOP 


XOIRIOIO 

005665 

777777 


LAW 

-1 


XOIRl 920 

005666 

0*6301 


DAC 

CKSLQT 


XOIRI 030 

005667 

205717 


LAC 

OIRONE 

/LOCATION 1ST WORO OF DIRECTORY 

XOIRIORO 

005670 

0*6302 


DAC 

OIRTEM 


XD1RI050 

005671 

226302 

OIRCt 

LAC* 

OIRTEM 


XOIRI060 

005672 

5*6301 


SAD 

CKSL01 

/CHECK HORO OK 

XOIRI07J 

005673 

605677 


JMP 

0IRC2 

/YES 

XDIRI080 

00567* 

76632* 


LAW 

MESS3M 


XOIR109C 

005675 

1 07031 


JMS 

HESCOM 


XOIRl 100 

005676 

625662 


JMP* 

DIRCK 


XOIRI I 10 

005677 

**6301 

0IRC2 

ISZ 

CKSLOT 


XOIRl 120 

005700 

7*0000 


NOP 



XOIRI «30 

00570! 

**6302 


ISZ 

OIRTEM 


XOIRI 1 *tO 

005702 

**6300 


ISZ 

OILOOP 

/LAST CHECK WORD 

XOIRI 150 

005703 

60567 1 


JMP 

OIRCl 

/NO 

XOIRI 160 

00570* 

**5662 


ISZ 

DIRCK 

/YES 

XOIRI 170 

005705 

225720 


LAC* 

OIRTWO 

/GET NUMBER OF SPECTRA ON TAPE 

XOIRI 180 

005706 

7*0200 


SZA 


/ANY SPECTRA 

XOIRI 190 

005707 

60571 1 


JMP 

DIRC3 

/YES 

X01RI200 

005710 

625662 


JMP* 

DIRCK 


X01RI2I0 

00571 I 

**5662 

01RC3 

ISZ 

DIRCK 


XOIRl 220 

005712 

5*5716 


SAD 

FULL 

/ TAPE FULL 

X01RI230 

005713 

625662 


JMP* 

OIRCK 

/ YES 

XDIRI2H0 

00571* 

**5662 


ISZ 

DIRCK 

/NO 

XOIRI 250 

J05715 

625662 


JMP* 

OIRCK 


X0IRI26) 

C057I6 

oooon 

FULL 

17 



XDIRI270 

005717 

032600 

oi rone: 

32600 


/ 1ST LOC OF DIRECTORY 

XDIRI280 

005720 

032603 

OIRTWO 

32603 


/NUMBER OF SPECTRA 

XOIRI 290 

005721 

03260* 

0IR3 

3260M 


/ l ST 10 

XOIRI 300 

005722 

032637 

0 1 RHf £ 

32637 


/USEO IN RENAME 

X0IRI3I0 



/ADOOIR 

wws 

POP-9 


XOIRI 320 



/ROUTINE 

TO ADO 

ENTRY TO DEC 

TAPE DIRECTORY AND CALCULATE BEGINNING 

XOIRI 330 



/BLOCK TO 

WRITE 

NEW OATA IN. 

IF NO OIRECTORY IS ON TAPE OR IF 

XOIRI 340 
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TAPE IS full routine returns with dirflg«i. otherwise 
/oirflg*o. 


005723 

000000 


0 


005724 

000000 


0 


005725 

000000 

AOODIR 

0 


005726 

146303 


OZM 

OIRFLG 

005727 

400052 


XCT 

XCTBKG 

005730 

345546 


TAD 

BLKONE 

00573! 

045723 


OAC 

AD00JR-2 

005732 

356337 


TAO 

t-n 

005733 

045724 


OAC 

AOODIR- I 

005734 

1 05662 


JMS 

OIRCK 

005735 

6060 1 3 


JMP 

A0D03^a 

005736 

605764 


JMP 

AOOOO I 

005737 

60601 1 


JMP 

A0003 

005740 

1061 1 1 


JMS 

SETCNT 

00574 J 

225723 


LAC* 

A000IR-2 

005742 

325724 


ADD* 

Aooom-i 

005743 

741200 


SNA 


005744 

605776 


JMP 

A0006 

005745 

226302 

A00D8 

LAC • 

OIRTEH 

005746 

565723 


SAD* 

AQODIR-2 

005747 

741000 


SKP 


005750 

605754 


JMP 

. *4 

005751 

226306 


LAC* 

DIRT! 

005752 

565724 


SAO* 

AOODIR- 1 

005753 

606015 


JMP 

ADDD4 

005754 

226302 


LAC* 

OIRTEH 

005755 

326306 


Aon* 

DIRT 1 

005756 

446302 


1SZ 

OIRTEH 

005757 

446306 


ISZ 

OIRTI 

005760 

740200 


SZA 


005761 

446307 


ISZ 

OIRCNT 

005762 

605745 


JMP 

A0DD8 

005763 

106737 


JMS 

crlf 

005764 

146304 

AOOOO 1 

DZM 

0IRCT2 

005765 

1061 I I 


JMS 

SETCNT 

005766 

446304 

AOCDI 

ISZ 

DIRCT2 

005767 

226302 


LAC* 

OIRTEH 

005770 

326306 


ADD* 

OIRTI 

005771 

741200 


SNA 


005772 

606000 


JMP 

A0002 

005773 

446302 


ISZ 

OIRTEH 

005774 

446306 


ISZ 

DIRT! 

005775 

605766 


JMP 

AOOO! 

005776 

766340 

A0006 

LAW 

HESS46 

005777 

606012 


JMP 

A0DD3* I 

006000 

225723 

AD0D2 

LAC* 

AoooiR-a 

0^5001 

066302 


OAC* 

OIRTEH 

006002 

225724 


LAC* 

AOODIR- I 

006003 

066306 


DAC* 

OIRTI 

006004 

465720 


ISZ* 

OIRTRO 

006005 

206304 


LAC 

0IRCT2 

006006 

40 1 0 I 4 


XCT 

JHSBLK 

006007 

046305 


OAC 

8LKN0 

00601 0 

625725 


JMP* 

AOODIR 

0060! i 

766310 

A00D3 

LAW 

HESS 14 

006012 

1 07031 


JMS 

MESCOM 


/ADDRESS OF EXP 10 
/AOORESS OF EXP I DM 


/CHECK DIRECTORY 
/ NO DIRECTORY 
/NO SPECTRA. OK 
/TAPE FULL 
/ DIRECTORY OK 
/EXPIO 
/ EXP I OH 

/ YES-PPOTEST 
/ COMPARE LOW ORDER 
/EXPIO 


/ COMPARE HIGH OROER 
/EXPIDH 
/ SAME 


/ LAST 
/ NO 
/YES 

/ZERO BLOCK COUNTER' 
/RESET COUNTERS 

/GET 10 

/SLOT AVAILABLE 

/YES 

/NO 


/ YES 
/PUT 10 

/ IN DIRECTORY 


/INCREMENT NUMBER OF SPECTRA 
/COMPUTE 1ST BLOCK NUMBER 


/ TAPE FULL 


XDIRI350 
XDIR1360 
XOIRl 370 
XOIRl 380 
X0IRI390 
xoiRmoo 

XDIR 1 4 1 0 
X0IRI420 
XOIRl 430 
XOJRl 440 
XOIR 1450 
XOIRl 460 
X0IRI47Q 
X01RI48Q 
XOIRl 490 
XOIRl 500 
X0IR15I0 
XOIRl 520 
XDIRI530 
X0IRI540 
XOIRl 550 
XOIRl 560 
XOIRl 570 
XOIRl 580 
X0IRI590 
X0IRI600 
X0IRI6I0 
XOIRl 620 
X0IRI630 
XOIRI640 
XOIRl 650 
XOIRl 660 
X0IRI670 
XOIRl 600 
XOIRl 690 
XOIRl 700 
XDIRmtO 
XOIRl 720 
X0IRI7J0 
XOIRl 740 
XOIRl 750 
XOIRl 760 
XDIRI770 
XOIRl 780 
XOIRl 790 
XOIRl 800 
XOIRl 810 
X0IRI820 
XOIRl 830 
XOIRl 840 
XDIRI850 
XOIRl 860 
X0IRI870 
XOIRl 880 
XOIRl 890 
XOIR1900 
X0IRI9S0 
XOIRl 920 
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006013 

446303 


ISZ 

DIRFLG 


?060i<« 

625735 


JMP* 

AOOOIR 


006015 

766331 

AOOOH 

LAM 

HESS*»3 

/ DUPLICATE 10 

006016 

6060 1 a 


JMP 

A00D3+ 1 




/ CHILE T£ 

UMB 

POP-9 




/routine 

TO OELETE AN ENTRY 

FROM DIRECTORY. 



/ENTER WITH EXPERIMENT ID TO BE OELETEO IN AC. 

006017 

000000 

OELETE 

0 



006020 

105663 


JMS 

OIRCK 

/CHECK OIRECTORY 

006021 

6360 1 7 


JMP* 

OELETE 

/NO OIRECTORY 

006022 

636017 


JMP* 

OELETE 

/NO SPECTRA ON TAPE 

006023 

74C00G 


NOP 


/ TAPE FULL 

00602M 

1061 I I 


JMS 

SETCNT 

/ tape OK 

006025 

33630 3 

DELE 1 

LAC* 

OIRTEH 


006026 

5534 15 


SAD 

8C*3 

/COMPARE LOW 

006Q27 

741000 


SKP 



006030 

806034 


JMP 

. *4 


006031 

336306 


LAC* 

OIRTI 


006032 

5534 1 4 


SAO 

BC* I 

/COMPARE HIGH 

006033 

606046 


JMP 

0ELE3 

/ MATCH 

00603*4 

336302 


LAC* 

OIRTEM 


006035 

336306 


AOO* 

OIRT! 


006036 

446306 


ISZ 

OIRTI 


006037 

446303 


ISZ 

OIRTEM 


0060*40 

740300 


SZA 



0060*41 

446307 


ISZ 

OIRCNT 

/SE ARCHE 0 AL IO»S 

0060*42 

606025 


JMP 

OELEI 

/NO 

0060*43 

766320 


LAW 

MESS33 

/YES 

0060*4*4 

107031 


JMS 

MESCOM 

/PRINT MESSAGE 

0060*45 

626017 


JMP* 

OELETE 


0060*46 

166303 

0ELE3 

OZM* 

OIRTEM 

/ZERC 10 

0060*47 

166306 


OZM* 

OIRTI 


006050 

335730 


LAC* 

OIRTWO 

/GET NUMBER OF SPECTRA 

006051 

356337 


TAO 

i-n 


006052 

065730 


OAC * 

OIRTWO 


006053 

636017 


JMP* 

OELETE 




/ROOIR 

WW8 

POP-9 




/ROUTINE 

TO REAO 

OIRECTORY FROM DEC TAPE INTO CORE. 

00605*4 

000000 

RDDIR 

0 



006655 

750000 


CLA 



006056 

401014 


XCT 

JMSBLK 

/SET BLOCK NUMBER 

006057 

043606 


OAC 

ROBLK 


006060 

305717 


LAC 

01 RONE 

/GET 1ST CORE LOCATION 

006061 

103600 


JMS 

RTAPE 

/READ OIRECTORY IN 

006062 

653000 


653000 


/ SAVE ERROR FLAG 

006063 

400052 


XCT 

XCTBKG 


00606*4 

346133 


I AO 

OECNMA 


006065 

046072 


OAC 

WTOIR 


006066 

330215 


LAC* 

REEL 


006067 

066073 


OAC* 

WTOIR 


006070 

641003 


LACQ 



006071 

636054 


JMP* 

ROOIR 




/ WTO ! R 

WW8 

POP- 9 




/ROUT INE 

TO WRITE 

OIRECTORY 

FROM CORE ONTO DEC TAPE. 

006072 

000000 

WTOIR 

0 



006073 

750000 


CLA 



00607*4 

40 1014 


XCT 

JMSBLK 


006075 

046533 


OAC 

OECBLK 

/SET BLOCK NUMBER 


X0IRI930 
XDIRI940 
XO I R 1950 
XDIR1960 
X0IR1970 
XOIR1980 
X0IRI990 

xoiRaooo 

xoiRaoao 

XOlRa030 

xoiR304o 

XDIRaOSO 

XDIR2060 

XDIRa070 

xoiRaoeo 

XOIR3090 

xoiRaioo 
xoiRai io 
xoiRaiao 

XDI R2 i 30 

xoiRamo 

XOIR3150 

xo i Ra i so 

X0IR3I70 

xo i Ra 1 80 

XOIRat90 

xciRaaoo 
xoiRaai o 
xoiRaaao 
xoiRaa3o 
XDIR2240 

xoiRaaso 
xoiRaaeo 
xo 183370 
X0IR338C 
XOIR3290 
XOIR3300 
X0IR33I0 
XDIR333Q 
XDIR333G 
XOIR3340 
XOJR3350 
XDI R3360 
XDIR337Q 
X0IR2380 
XDIR3390 
XDIR3400 
X0IR3410 

xoiRanao 

X0IR3430 

xoiRa^HO 

XDIR3450 

X0IR3460 

XDIR3470 

xoiRaoeo 

X0IR3490 

X0IR3500 

X0IR35I0 


«=y " 1 1 -tr-c* - -> 
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006076 

205717 


LAC 

D I RONE 

/ 1 ST CORE LOCATION 

XD1R2520 

006077 

106514 


JMS 

WTOEC 


XDIR2530 

006100 

626072 


JMP* 

WTO I R 


XOIR2540 



/REMOVE 

HUB 

POP -9 


XDIR2550 



/ROUTINE 

TO OELETE 

AND EXPERIMENT FROM DEC TAPE. ACCESSED BY COMMANO 

XDIR2560 



/DELETE. 




XDIR2570 

006101 

1 12461 

REMOVE 

JMS 

OECIN 

/GET EXPERIMENT ID 

XDIR2580 

006102 

104041 


JMS 

ADCCHK 


XDIR2590 

006103 

106054 


JMS 

RODIR 

/GET DIRECTORY INTO CORE 

XDIR2600 

0061 OH 

740200 


SZA 


/TAPE ERROR 

XDIR26I0 

006105 

606257 


JMP 

RETC 


XDIR2620 

006106 

106017 


JMS 

DELETE 

/DELETE ID 

XDIR2630 

006107 

106072 


JMS 

WTDIR 

/WRITE NEW DIRECTORY ON TAPE 

XDIR2640 

006110 

606257 


JMP 

RETC 


XDIR2650 



/ROUTINE 

TO SET UP 

COUNTERS i 

FOR DIRECTORY ROUTINES. 

XCIR2660 

0061 1 I 

000000 

SETCNT 

0 



X0IR2670 

006112 

225720 


LAC* 

DIRT WO 

/GET NUMBER OF SPECTRA 

XOIR26BO 

0061 13 

101766 


JMS 

COMPLM 

/DETERMINE TWO#S COMPLEMENT 

XD1R2690 

0061 14 

046307 


OAC 

OIRCNT 


XOIR2700 

0061 15 

205721 


LAC 

0IR3 

/GET LOCATION OF FIRST ID 

XDIR2710 

0061 16 

046302 


OA~ 

OIRTEM 


XDIR2720 

0061 17 

356427 


TAD 

(2001 


XDIR2730 

006120 

046306 


OAC 

DIRT! 


XDIR2740 

00612! 

626! 1 I 


JMP* 

SETCNT 


X0IR2750 



/ INDEX 

HUB 

POP-9 


X01R2760 



/ROUTINE 

TO LIST DEC TAPE DIRECTORY. 

XDIR2770 



/ACCESSED 

i BY COMMANO INDEX. 


XDIR270O 

006122 

104041 

INDEX 

JMS 

ADCCHK 


X0IR2790 

006123 

106054 


JMS 

RODIR 

/READ DIRECTORY INTO CORE 

XDIR2800 

006124 

740200 


SZA 


/TAPE ERROR 

XD1R28I0 

006125 

606257 


JMP 

RETC 

- 

XOIR2820 

006126 

104061 


JMS 

AOCOON 

/ TURN AOC BACK ON 

XOIR203O 

006127 

440061 


ISZ 

PFG 

/ PRINT REEL NUMBER 

XOIR2S40 

006130 

I 12001 


JMS 

setvar 


XDIR2850 

006131 

112144 


JMS 

0/ 


XDIR2860 

006132 

253040 


XOR 

MESS97 


X0IR2870 

006133 

030040 

QECNMA 

DECNM 



XDIR2880 

00613V 

226133 


LAC* 

OECNMA 


X01R2890 

006135 

060215 


OAC* 

REEL 


XDIR290D 

006136 

140061 


OZM 

PEG 


X0IR291P 

006137 

105630 


JMS 

DIRECT 

/PRINT DIRECTORY 

XDIR2920 

006140 

606257 


JMP 

RETC 


XDIR2930 



/SEARCH 

HUB 

POP -9 


X01R2940 



/ROUTINE 

TO SEARCH 

DIRECTORY 

FOR AN ID. ENTER WITH 

X01R2950 



/OESIREO 

ID IN AC. 

IF NO DIRECTORY OR NO SPECTRA. OR 10 NOT 

XDIR29&0 



/ON TAPE. 

RETURNS WITH OIRFLG»l. OTHERWISE OIRFLG«0. I F ID 

X0IR2970 



/MATCH. CALCULATES 

1ST BLOCK 

NUMBER OF EXPERIMENT. 

XDIR2980 

006141 

000000 

SEARCH 

0 



X0IR2990 

006142 

146303 


DIM 

OIRELG 

/ZERO FLAG 

XOIR3000 

006143 

105662 


JMS 

OIRCK 

/CHECK DIRECTORY 

XDIR3GI0 

006144 

606173 


JMP 

SEAR2 

/NO DIRECTORY 

XDIR3020 

006145 

606173 


JMP 

SEAR2 

/NO spectra 

XDIR3030 

006146 

740000 


NOP 


/TAPE FULL 

XDIR3040 

006147 

1061 1 1 


JMS 

SETCNT 

/ALL OK 

XDIR3050 

006150 

146304 


DZM 

0 « RC T 2 

/ZERO BLOCK COUNTER 

XDIR3060 

006151 

226302 

SEAR! 

LAC • 

dirtem 


XOIR3070 

006152 

448304 


ISZ 

0IRCT2 


XDIR308Q 

006153 

542534 


SAD 

0TRE2 

/ COMPARE LOW 

X01R3090 
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006 ISH 

7HI 000 

006(65 

606161 

006(66 

226306 

006157 

5H2535 

006160 

606175 

00616! 

226302 

006162 

326306 

006163 

HH6302 

006 16<* 

M46305 

006165 

7m 200 

006166 

606151 

006167 

•♦H6307 

006170 

606151 

006171 

766320 

006172 

107031 

006173 

*•*6303 

006 17H 

626 1 H 1 

006175 

20630** 

006176 

H0101** 

006177 

0H6305 

006200 

626 1 1 


006201 

1 12461 

006202 

042534 

006203 

213414 

00620** 

042535 

006205 

1 12461 

006206 

20 1 » 35 

O06207 

741200 

006210 

606746 

00621 1 

104041 

006212 

106054 

006213 

740200 

0062 1«* 

606257 

006215 

106141 

006216 

206303 

006217 

740200 

006220 

606257 

006221 

106111 

006222 

206302 

006223 

346304 

006220 

356337 

006225 

046302 

006226 

206306 

006227 

346304 

006230 

356337 

006231 

046306 

006232 

213414 

006233 

313415 

00623** 

74I20C 

006235 

606746 

006236 

213415 

006237 

066302 

0062H0 

213414 

0052m 

066306 



SKP 




JMP 

. *•*» 



LAC* 

OIRTI 



SAO 

OTREI 

/ COMPARE HIGH 


JMP 

SE \R3 

. / MATCH 


LAC* 

OIRTEM 



ADD* 

DIRTI 



ISZ 

OIRTEM 



ISZ 

DIRTI 



SNA 




JMP 

SEAR 1 



ISZ 

OIRCNT 

/NO. LAST ID 


JMP 

SEAR 1 

/NO 


LAH 

MESS33 

/YES 


JMS 

MESCOM 

/PRINT MESSAGE 

SCARS 

ISZ 

DIRFLG 



JMP* 

SEARCH 


SCAR3 

LAC 

0IRCT2 

/COMPUTE 1ST BLOCK NUMBER 


XCT 

JMS8LK 



DAC 

BLKNO 



~.1P* 

SEARCH 


/RENAME 

HUB 

POP-9 

AN EXPERIMENT BOTH IN THE DIRECTORY 

/ROUTINE 

TO CHANGE 

THE ID OF 

/IN THE 

OATA. 



/ACCESSEO BY COMMaNO RENAME. 


RENAME 

JMS 

DEC IN 

/READ OLO 10 


OAC 

DTRE2 

/ LOW 


LAC 

BC* 1 



D^C 

DTRE1 

/ HIGH 


JMS 

DEC IN 

/RE AO NEW ID 


LAC 

UNIT 



SNA 




JMP 

QMARK 

/ CAN'T RENAME ON MAG 


JMS 

ADCCHK 



JMS 

ROD 2 R 

/RE AO DIRECTORY INTO CORE 


SZA 


/TAPE ERROR 


JMP 

RETC 



JMS 

SEARCH 

/FIND 10 IN DIRECTORY 


LAC 

DIRFLG 



SZA 


/FINO 10 


JMP 

RETC 

/NO 


JMS 

SETCNT 

/YES. SET COUNTERS 


LAC 

OIRTEM 

/DETERMINE AODRES OF ID 


TAD 

DIRCT2 



TAD 

< - 1) 



DAC 

OIRTEM 



LAC 

OIRTI 



TAD 

0IRCT2 



TAD 

(-» ) 



DAC 

OIRTI 



LAC 

BC* l 



ADD 

8C+2 



SNA 




JMP 

QMARK 



LAC 

BC+2 

/ LOW 


OAC* 

OIRTEM 

/ CHANGE DIRECTORY 


LAC 

0C*1 

/ HIGH 


OAC 0 

OIRTI 



XOIR3100 

XDIR31 10 

XOIR3) 20 

X0IR3I30 

XD1R3140 

XDIR3I50 

X01R3160 

XDIR3170 

XOIR3I80 

X01R3I90 

XDIR3200 

XDIR3210 

XOIR3220 

XDIR3230 

XDIR3240 

XDIR3250 

XO IR3260 

X01R3270 

XOIR3280 

XDIR3290 

XDIR3300 

XOIR3310 

X0IR3320 

XOIR3330 

XO I R3340 

XD1R3350 

XOIR3360 

X01R3370 

XOIR3380 

XOIR3390 

XDIR340Q 

XDIR3410 

X0IR3420 

X0IR3430 

XOIR34HO 

XOIR3450 

X0IR3460 

XDIR3470 

XDIR3480 

X01R3490 

XOIR3500 

XDIR35I0 

XOIR3520 

X01R3530 

X0IR35H0 

XDIR3550 

XDIR3560 

X0IR3570 

XOIR3580 

X0IR359U 

XDIR3600 

XOIR3610 

XOIR3620 

XDIR3630 

XDIR3640 

X0IR365C 

XO ! R3660 

XDIR3670 
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006242 

106072 


JMS 

WTO 1 R 

/WRITE NEW DIRECTORY 

X01R3680 

006243 

206305 


LAC 

BLKNO 


X02R3690 

006244 

042606 


OAC 

R08LK 


XDIR3700 

006245 

205717 


LAC 

Of RONE 


XC1R3710 

006246 

102600 


JMS 

RT APE 

/REAO OATA WITH ID INTO CORE 

X0!k3780 

006247 

213415 


LAC 

0C*c 


XDIR3730 

006250 

065717 


OAC* 

0 l RONE 


XOIR3740 

006251 

213414 


LAC 

BC ♦ I 


X01R3750 

006252 

065722 


DAC* 

JiRHlE 


a'0 ! R3760 

006253 

206305 


LAC 

BLKNO 


X0IR377Q 

006254 

046522 


OAC 

OECBLK 


XOIR370O 

006255 

205717 


LAC 

01 RONE 


XOIR3790 

006256 

106514 


JMS 

WTOEC 

/WRITE DATA WITH ID ONTO TAPE 

X01R3800 



/GIVE CRLF THEN GO 

TO RET 


X01R3820 

006257 

104061 

RE TC 

JMS 

AOCGON 


X0IR3830 

006260 

106737 


JMS 

CRLF 


XOJR3840 

006261 

612304 


JMP 

CMRET 


XOIR3B50 



/BLKCAL 

WWB 

POP-9 


X01R3860 



/RQUTINE 

TO CALCULATE the STARTING BLOCK NUMBER OF A PIECE OF 

X01R387 0 



/DATA GIVEN THE SLOT NUMBER 

OF THE OATA IN THE DIRECTORY. ENTER 

XD1R3880 



/WITH THE 

SL n T NUMBER IN THE 

AC. RETURNS WITH THE BLOCK NUMBER 

XDIR3890 



/IN THE AC. 



XDIR3900 

006262 

000000 

BLKCAL 

0 



X0IR391 0 

006263 

356337 


TAD 

(-n 

/ENTRY SLOT MINUS ONE 

X01R3920 

006264 

744000 


CLL 



X01R3930. 

006265 

653122 


MOL 


/multiply BY 

X01R3940 

006266 

000045 


45 


/NUMBER OF BLOCKS PER ENTRY 

XOIR3950 

006267 

641002 


LACQ 


/GET ANSWER 

X0IR3960 

006270 

3564 13 


TAO 

(5) 

/ALLOW FOR DIRECTORY 

XOIR3970 

006271 

741100 


SPA 



X01R3980 

006272 

216315 


LAC 

i I ) 


X01R3990 

006273 

626262 


JMP* 

BLKCAL 


XO f R4000 



/ BLKCAL 

FOR OISK 



XD1R401G 

006274 

000000 

0K8LK 

0 



X0IR4080 

006275 

106262 


JMS 

BLKCAL 


X0IR4G30 

006276 

35645! 


TAO 

<550 1 

/ INDEX IS IN 551 . 

X0IR4040 

006277 

62S274 


JMP* 

DKBLK 


XCIR4050 

006300 

000000 

01 LOOP 

0 



X0IR4060 

00630! 

000000 

CKSLO Y 

0 



X01R4G70 

006302 

000000 

OIRTEM 

0 



XOIR4080 

0063Q3 

000000 

OIRFLG 

0 



X01R4G90 

006304 

000000 

01RCT2 

0 



X0IR4100 

006305 

000000 

BLKNO 

0 



XD1R4I 10 

006306 

000000 

OlRTl 

0 



X01R4I30 

006307 

000000 

OIRCNT 

0 



X01R4 140 



/MESSAGES 

FOR THE DEC TAPE DIRECTORY ROUTINES. 

X01R4I50 

006310 

240120 

i;ESS14 

240120 


/TAP 

X01R4160 

0063! I 

054006 


054006 


/£ F 

X01R4I 70 

006312 

251414 


251414 


/ULL 

XOIR4180 

0063*3 

000000 


0 


/END 

X0IR4190 

00G5 1 4 

053020 

MESS24 

053020 


/EXP 

XDIR4800 

006315 

05221 t 


05221 1 


/ERl 

XDIR4810 

006316 

150516 


150516 


/MEN 

XDIR4820 

006317 

2472C0 


247200 


/ T 

XD1R4230 

006320 

161784 

MESS33 

161784 


/NOT 

XDIR4240 

00632! 

400617 


400617 


/ FO 

X01R4850 

006322 

251604 


251604 


/UNO 

XDf R426G 

006323 

000000 


0 



X0IR487G 
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006324 

161740 

HCSS34 

161740 


/NO 

XOIP42SO 

006325 

041 122 


041 122 


/DIR 

XOIR4290 

006326 

050324 


050324 


/ECT 

X01R4300 

006327 

172231 


172231 


/ORY 

XDIR43I0 

006330 

000000 


0 


/END 

X0IR4320 

006331 

042501 

MESS43 

G42501 


/ DUA 

XDIR4330 

006332 

14401 l 


14401 1 


/L I 

XDIR4340 

006333 

044100 


044100 


/Dl 

XD1R435Q 

006334 

172524 

MESS45 

172524 


/OUT 

X0IR4360 

006335 

202524 


202524 


/PUT 

XD1R4370 

006336 

400417 


400417 


/ DO 

XOIR4380 

006337 

160500 


160500 


/ NE 

X0IR4390 

00S340 

111414 

MESS46 

111414 


/ILL 

XD1R4400 

006341 

050701 


050701 


/EGA 

X0IR44 1 0 

006342 

14401 I 


144011 


/L I 

XDIR4420 

006343 

045600 


045600 


/D. 

XD1R4430 



/SUBROUTINE TO PREFORM AUTOMATIC 

XOIR4440 



/SEARCH 

AMD TRANSFER OF OATA 

ON 

X01R4450 



/DECTAPE 

THIS ROUTINE IS CALLED BY EITHER 

XQIR4460 



/DECTRO 

FOR READING 

OR OECTWT 

FOR WRITING 

XDIR4470 

006344 

000000 

DECTRW 

C 



X0IR4480 

006345 

206344 


LAC 

DECTRW 


X0IR449Q 

006346 

356335 


TAD 

(3) 


X0IR45OO 

0 OS 34 7 

046510 


OAC 

DECARO 

/ ARGUMENT POINTER 

XDIR451U 

006350 

3564 S3 


TAO 

(21 


X0IR4520 

006351 

046513 


DAC 

OECRET 

/ RETURN AOORESS 

XOIR4530 

006352 

206435 


LAC 

ADECBK 


XDSR4540 

006353 

040031 


o&c 

31 

/LOCATE CURRENT BLOCK 

XOIR4550 

006354 

140030 


o*!h 

30 

/ 1 NSURE NO WC OVERFLOW 

XDIR4560 

006355 

226344 


LAC* 

DECTRW 


XOIR4570 

006356 

741200 


SNA 


/ SLIP IF ARC CONTAINS UNIT. 

XDIR4590 

006357 

20 II 35 


LAC 

UNIT 

/ SEARCH UNIT IN REVERSE DIRECTION 

X0IR4590 

006360 

660717 


ALSS 

17 


XDIR4600 

006361 

356452 


TAO 

(0414001 


X0IR46) 0 

006362 

707545 


DTLA 


/SET STAY IS TO SEARCH. MN . STOP 

X01R4620 

006363 

216453 


LAC 

(020000) 

/GIVE GO COMMAND 

XDIR4630 

006364 

74 1000 


SKP 


/SKIP CONTINUE COMMAN^ 

XDIR4640 

006365 

750000 

DECT I 

CLA 



X0IR4630 

906366 

106436 


JMS 

OECCMD 


XDIR4660 

006367 

2265 1 0 


LAC* 

OECARG 

/SUBTRACT OESIRED BLOCK 

XOIR4670 

006370 

740001 


CMA 


/NUMBER FROM CURRENT BLOCK 

XDIR46S0 

006371 

3564 1 3 


TAD 

(2) 


XD1R4690 

006372 

34651 1 


TAO 

OECCBK 


X01R4700 

006373 

740100 


SMA 



XOIR4710 

006374 

606365 


JMP 

DECTI 

/CONTINUE TAPE IN REVERSE 

XDIR4720 

006375 

216343 


LAC 

(040000) 

/SEARCH IN FORWARD DIRECTION 

XDIR4730 

006376 

l 06436 


JMS 

OECCMD 


XDIR4740 

006377 

226510 

0ECT2 

LAC* 

OECARG 

/CALCULATE PObITION 

XDIR4750 

006400 

740001 


CMA 



XDIR4760 

006401 

356315 


TAD 

( 1 ) 


XDIF4770 

006402 

34651 1 


TAO 

DECCBK 


X01R4780 

006403 

741200 


SNA 



XD1R4790 

006404 

606413 


JMP 

OECT3 

/READY TO REAO OR WRITE 

XD ! R4000 

006405 

740100 


SMA 



XDIR4D10 

006406 

606452 


JHP 

DECRI 

/GO TO ERROR ROUTINE 

XOIR4820 

006407 

040030 


OAC 

30 

/SET WORD COUNT FOR 

XDIR4830 

006410 

216454 


LAC 

(010000) 

/CONTINUOUS MODE SEARCH 

XDl R4840 

00641 1 

106436 


JMS 

DECCMD 


X01R4850 
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006m 2 

606377 


JMP 

DECT2 


X0IR4860 

006413 

446344 

DCCT3 

ISZ 

OECTRN 


XD1R4870 

006414 

226344 


LAC* 

dectrn 


XDIR408O 

006415 

040030 


OAC 

30 

/ uc 

XD1R409O 

006416 

446344 


ISZ 

DECTRW 


XDIR4900 

006417 

750001 


CLC 



XO I R49 1 0 

006420 

366344 


TAD* 

OECT.4N 


XDIR4920 

006421 

040031 


DAC 

31 

/ CA-I 

XD1R4930 

006422 

446510 


ISZ 

OECARG 


XO I R4940 

006423 

226510 


LAC* 

DECARG 


XOIR4950 

006424 

66071 1 


ALSS 

1 1 

/ RE AO OR WRITE 

X0IR4960 

006425 

106436 


JMS 

DECCHO 


X0IR4970 

0C6426 

200030 


LAC 

30 

/IS WC ZERO 

XD1R4980 

006427 

750200 


SZA1CLA 



X0IR4990 

006*30 

606425 


JMP 

. -3 

/NO - GIVE COMMANO AGAIN 

XDIR5000 

006431 

216453 


LAC 

(0200001 

/YES - STOP UNIT 

XOIR5010 

006432 

707544 


DTXA 



XDIR5020 

006433 

700052 


i ON* 1 0 



XOIR5030 

006434 

626513 


JMP* 

OECRET 

/ RETURN 

XDIR5040 

006435 

00651 1 

ADEC0K 

OECCBK 


/ *OORESS OE BLOCK NUMBER 

XOIR5050 

006436 

OOOOOG 

OECCMD 

0 



XDIR5060 

006437 

707544 


DT^a 



XDIR507G 

006440 

607436 


JMP 

RET 


XDIR5080 

006441 

707561 

DECSEV 

OTEF 


/ ERROR FLAG UP? 

XDIR5090 

006442 

626436 


JMP* 

OECCMD 

/NO 

X01R510C 

006443 

707572 


DTRB 


/YES 

X01R51 10 

006444 

556455 


SAO 

(500000< 

/IS ERROR OUE TO ENO OF TAPE 

X0IR5I20 

006445 

606473 


JMP 

0ECR2 

/YES 

XDIR5I30 

006446 

556456 


SAO 

( 420000 1 

/NO- IS ERROR PARITY 

X0IR5140 

006447 

44S512 


ISZ 

DECPTY 

/ YES-AOO ONE TO COUNTER 

X01R5150 

006450 

556456 


SAO 

(420000) 


XO I R5 i SO 

00645! 

626436 


JMP* 

OECCMD 

/AND RETURN 

XDIR5170 

006452 

107077 

DECR1 

JMS 

PR I OF 


X01R5I6C 

006453 

304252 


304252 

/ *D 


X0IR5190 

0C6454 

303305 


303305 

/EC 


XO I R5200 

006455 

324240 


324240 

n 


XDSR5210 

006456 

305240 


3(i5240 

/E 


XDIR5220 

006457 

322322 


322322 

/RR 


XDIR5230 

006460 

322317 


322317 

/OR 


XDIR5240 

00646 S 

640252 


640252 

/ • 


XDIR5250 

006462 

707572 


DTRB 



X0IR5260 

006463 

106526 


JMS 

OCTOUT 


XOIR5270 

006464 

107077 


JMS 

PR 1 OF 


XOIR5280 

006465 

640240 


640240 



X01R5290 

006466 

216333 


LAC 

(400) 


XDIR5300 

006467 

707544 


OTXA 



X01R5310 

006470 

777777 


LAN 

- I 

/-I IN AC INDICATES ERROR 

XDIR5320 

006471 

700042 


ION 



X0IR5330 

006472 

S265 1 3 


JMP* 

OECRET 


X0IR5340 

006473 

707552 

0ECR2 

DTRA 


/FRONT END OF TAPE 

X01R5350 

006474 

516343 


AND 

(040000) 


X0IR5360 

006475 

751200 


SNA 1 CL A 



XDIR5370 

006476 

606452 


JMP 

OECR1 

/NO-STOP TAPE OPERATION 

XD1R5380 

006477 

216453 


LAC 

(020000) 


XDIR5390 

J06500 

446507 


ISZ 

ENDZCT 

/COUNT TO BACK INTO ENO ZONE TWICE 

X01R5400 

006501 

106436 


JMS 

OECCMO 


XDIR5410 

006502 

777776 


LAN 

-2 


XOIR5420 

006503 

046507 


DAC 

ENDZCT 


XOIR5430 
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006504 

216342 


LAC 

(060000) 

/SEARCH IN FORUARO DIRECTION 

XDIR5440 

006505 

106436 


JMS 

DECCMO 



XDIR5450 

006506 

606377 


JMP 

0ECT2 



XOIR54GO 

006507 

777776 

ENOZCT 

-2 




XDIR5470 

006510 

000000 

OECARG 

0 


/POINTER FOR ARGUMENT AND RETURN ADORESS 

XUIR5480 

00651 1 

000000 

OECCBK 

0 


/HOLDS CURRENT 

8L0CK NUMBER 

XDIR5490 

00651 a 

000000 

OECPTY 

0 


/PARI fY ERROR 

FLAG 

XDIR5500 

00651 3 

000000 

OECRET . 

0 


/HOLDS RETURN 

AOORESS 

XDIR55I0 



/CUR P0P9 1969 




XOIR5520 



/SUBROUTINE TOR WRITING A 256 

WORO BLOCK ON 

OECTAPE 

X01R5530 



/CALVING 

SEQUENCE 




XOIR5540 



/ 

JMS 

WTOEC 



XDIR5550 



/ 

X 


/CORE LOCATION 


X0IR5560 



/ 



/RETURN 


XDIR5570 



/TAPE BLOCK NUMBER 

MUST BE IN 

OECBLK 


XDIR5580 



/OECBLK 

IS INCREMENTED 8Y ONE 



XC1R5590 

0065 m 

000000 

WTOEC 

0 




XDIR5600 

006515 

04652! 


DAC 

.+4 



XDIR56I0 

008516 

401013 


XCT 

JMS 10 



X0IR5620 

006517 

000000 


0 




X01R5630 

006580 

77740Q 


-400 


/WC 


X0IR5640 

006521 

000000 


0 


/CA 


XDIR5650 

006522 

000000 

0EC8LK 

0 


/BLK * 


X01R5660 

006523 

000005 


5 


/ WRITE 


XO I R5670 

006524 

446522 


1SZ 

OECBLK 



XOIR5680 

006525 

626514 


JMP* 

WTOEC 



XOIR5690 



/CUR 

PDP9 

SEP 1968 



XI010000 



/SUBROUTINE TO PRINT 6 DIGIT 

OCTAL NUMBER 


X 101 00 10 



/ENTER WITH NUMBER 

IN ACCUMULATOR 


X 1 0 I 0020 

006526 

000000 

OCTOUT 

0 




X ! 0 1 0030 

006527 

652000 


LMQ 




X 1 0 1 0040 

006530 

777772 


LAN 

-6 



X I 0 1 0050 

006531 

046543 


OAC 

OCTN 

/SET COUNTER 


X 1010060 

006532 

641603 

OCT 1 

641603 


/CLAILLS 3 


XI010070 

006533 

356457 


TAD 

(260) 



X1010080 

006534 

700406 


TLS 




X 1 0 1 0090 

006535 

700401 


Tsr 




xioioioo 

006536 

606535 


JMP 

- ! 



XIOIOI 10 

006537 

700402 


TCF 




X 1 0 1 Cl 20 

006540 

446543 


ISZ 

OCTN 

/DONE 


X 101 01 30 

0C6541 

606532 


JMP 

OCT 1 

/NO 


XI010I40 

006542 

626526 


JMP* 

OCTOUT 

/YES 


X I 0 1 0 1 50 

006543 

000000 

OCTN 

0 




XIOl 0160 



/ A routine TO PRINT 

MULTIPLE 

SPACES. 


X l 0 1 0 1 70 

006544 

000000 

HULTSP 

0 




X 1 0 1 0 * 80 

006545 

046553 


OAC 

MSPC 



XIOl 0190 

006546 

760240 


LAM 

240 



XIOI0200 

006547 

106752 


JMS 

PRINT 



XIOl 0210 

006550 

446553 


ISZ 

MSPC 



XIOl 0220 

00*551 

606546 


JMP 

.-3 



XIOl 0230 

G 06552 

626544 


JMP* 

MULTSP 



X l C 1 0240 

006553 

000000 

MSPC 

0 




X 1010250 




/CMR*PDP9 

♦JAN* 1 963 



XIOl 0260 



/SUBROUTINE TO PRINT A OOUBt-E 

PRESS ION 


X 1010270 



/oecikal 

NUMBER. ENTER WITH 

LOW ORDER 


X 1010280 



/BITS IN 

AC AND HIGH ORDER Bl 

TS IN HIGHPR 


XIOl 0290 



/LINK- I 

NEC. NUMBER 




XIOl 0300 



/LINK-0 

POS. NUMBER 




X 1 0 I 03 1 0 
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/HIQHPft HILL BE SET TO ZERO AT END. 

DECPRY 0 

OAC • *7 /SAVE AC 

SNL /NEGATIVE? 

JMP .*4 /NO 

LAH 253 /YES. PRINT - 

JMS PRINT 

LAC .*2 

JMS OECCON 

0 

SNAICLL /FINISHED? 

JMP» OECPRT /YES 

JMS PRINT /NO PRINT ON TELETYPE 

JMP* .-4 

/CHR PDP9 JAN 1966 
/SUBROUTINE TO CONVERT A DOUBLE 
/PRESSION BINARY NUMBER TO DECIMAL 
/ONTER WITH LOU OROER BITS IN AC 
/AND HIGH OROER BITS IN HIGHPR 


/HIGHPR 

HILL BE SET 

TO ZERO 

AT ENO. 

/CALLINO 

SEQUENCE . 



/LOH ORDER BITS IN 

AC 


/TAG. 

JMS 

OECCON 

/HIGH OROER BITS AN HIGHPR 

/ 

0 

AOORESS 

OF RETURN LOCATION FOR NEXT DIGIT 

/ 

• 

RETURNS 

HERE WITH ASCI 1 

/ 

. 

DECIMAL 

DIGIT IN AC 

/ 

♦ 

TO OET NEXT DIGIT 00 A JMP I TAG1I. 

/ 


THE AC 

IS ZERO ON RETURN AFTER LAST DIGIT 

DtIC CON 

0 




OAC 

LOWPR 

/SAVE LOH OROER BITS 


cla 




SAD 

HIGHPR 

/ARE THERE ANY HIGH OROER BITS 


JMP 

OECI 

/NO 


LAC 

AP0HL 

/YES 


OAC 

TENL 

/SET POINTERS FOR 


LAC 

APOWH 

/POHERS OF TEN 


OAC 

TENH 



LAN 

-13 

/COUNT 13 OIGITS 


OAC 

DIOCTN 



JMP 

0EC2 


OECI 

LAC 

APOWLS 



OAC 

TENL 

/FOR PRINTING LOH BITS ONLY 


LAC 

APOUHS 



OAC 

TENH 



LAN 

-e 



OAC 

OIGCTN 


0CC2 

LAC 

OIGCTN 



SAO 

1 777777 t 



OZM 

OPZRO 



OZM 

010 1 T 


0EC3 

OZM 

PROVER 



CLL 




LAC 

LOWPR 

/AOD LOHER 8 ITS 


TAD* 

TENL 



SZL CLL 


/HAS THERE AN OVER FLOK 


IS Z 

PROVER 

/YES 


OAC 

PRTEM 

/STORE TEMfORARLY 


LAC 

HIGHPR 

/ADO HIGH ' : «DER BITS 


X 10 1 0320 
XIOI0330 
X 10 1 0340 
xi 01 0350 
XIOI0360 
X 1 0 1 0370 
X 1 0 10380 
X 1 0 10390 
XIOI0400 
X 10! 04 I 0 
X I 0 1 0420 
X 1 0 1 0430 
X 1 0 1 0440 
X I 0 1 0450 
X 101 0460 
X 1 0 1 0470 
X 1 0 1 0480 
X 10 I 0490 
XIQI0500 
XI0I051C 
X 1 01 0520 
XIOI0530 
X 1 0 1 0540 
X 10 1 0550 
X 101 0560 
X 10 1 0370 
X 10 1 0580 
X 10 1 0390 
XIOI0600 
X 10 1 0610 
XI 01 0620 
X ! 0 1 0630 
X 10 1 0640 
X 101 0650 
X 101 0660 
X 101 0670 
X SOI 0680 
XI 01 0690 
X 1 0 1 0700 
XI 01 0710 
X 1 01 0720 
X 1 0 1 0730 
X 1 0 1 0740 
X 101 0750 
X 1 0 1 0760 
X 1 0 1 0770 
X 101 0780 
X 10 1 0790 
X 101 0800 
X 1 01 08 1 0 
XI 01 0820 
X 1010830 
XIOI0840 
X 101 0850 
X 101 0860 
X 101 0870 
X 101 0880 
X 1010890 
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006627 366720 

0—630 3*67 1* 

00—31 7*1*00 

000632 00 — 32 

00—33 2—710 

00—3* 7*0200 

00—39 1*0717 

00—10 2*0717 

00—37 J— *97 

00— *0 120971 

00— * I **0721 

00— *2 **0720 

00— *3 **0713 

00—** 00—13 

00— *9 777700 

00— *0 0*0717 

00— *7 1*0712 

00—90 790000 

00—91 120971 

00—92 0*0712 OCC* 

00—93 2—719 

00—9* 0*6711 

00—99 **0716 

00—96 60—17 

00—97 00—70 APOULS 

006—0 0—703 APOMfS 

006—1 006—3 APOHL 

006662 00—76 APOMH 

006—3 016900 POM. 

006—* 233000 

006—9 *17*00 

0066— flS*600 

006—7 1 36700 

0—670 *7*9*0 POMLS 

00—7) 79*360 

00—72 776030 

00—73 77763* 

00—7* 7777— 

00—79 777777 

00—76 —9379 POMH 

00—77 770*31 

0—700 777202 

0—701 777731 

0—702 77777 * 

0—763 777777 POUMS 

©— 70* 777777 

006709 777777 

0—7— "*77777 

0—707 777777 

V— 710 777777 

0—711 000000 LOM*ft 

0—712 000000 WtOHPft 

9—713 000000 010CTN 

0—71* 000000 PRO VCR 

0—719 COOOOO PATCH 

0—716 000000 010 IT 

0—717 777760 OPZPO 

0—720 000000 TCNH 



o o o o o o 



-20 

o 


XIOI0900 
*1010910 
X 101 0920 
X 10 1 0930 
X 10)09*0 
X 101 0990 
XIOIO— 0 
X 10 1 0970 
XI 01 0990 
X 101 0990 
XI0I 1000 
XI0I 1010 
X10I 1020 
X 101 1030 
XI01 10*0 
XI01 1090 
XIC1 1060 
XIOi 1070 
XIOI 1080 
X101 1090 
XIOI 1 too 
xtonno 

X101H20 
XtCM (130 
XIOI 1 1*0 
XIOI 1 190 
XIOI 1 160 
XIOI 1 170 

xtot t tao 

XIOI 1 190 
X10II200 
XIOI 1210 
XIOI 1220 
XIOI 1230 
XIOi 12*0 
XIOI 1290 
XIOI 1260 
XJOl 1 jJ70 
XIOI !f>90 
XIOI 1290 
XJOI 1300 
XIOI 1310 
XIOI 1320 
XIOI 1330 
XIOI 1 3*0 
XI0II390 
XIOI 1 360 
XIOI 1370 
XIOI 1390 
XIOI 1390 
XIOI 1*00 
XJO!!*IO 
XIOI 1*20 
XIOI 1*30 
XIOI 1**0 
XIOI 1*90 
XIOI 1*60 
XIOi 1*70 
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006721 

000000 

tenl 

0 


XI 01 *<*80 

006722 

000000 

TS6 

0 


XiOtiNSO 

006723 

000000 

TS7 

0 


XiOl 1500 

00672% 

000000 

CTN6 

0 


XIOII5IO 

006725 

000000 

VSI 

0 


XIOI 1520 

006726 

000000 

NULLS 

0 


xioi 1550 

006727 

77777 1 


LAM 

-7 

*101 1560 

006730 

0N6736 


OAC 

.*6 

*1011570 

006731 

750000 


CLA 

/ PRINT NULLS FOR CHARS 

XI 01 1560 

006732 

I 06752 


JMS 

PRINT / WHICH NECO A DELAY, 

*101 1590 

006733 

HR6736 


1 52 

*3 

*10! 1600 

00673% 

606731 


JHP 

.-J 

*101 16)0 

006736 

626726 


JMP* 

NULLS 

*10)1620 

006736 

000000 


0 


XJ0H630 

006737 

000000 

CRLF 

0 


*101 |6%0 

0067N0 

760215 


LAM 

215 

XfOl 1650 

0067HI 

106752 


JMS 

PRINT 

*10) 1660 

0067N2 

106726 


JMS 

NULLS 

*10! 1670 

0067N3 

760212 


LAM 

212 

*101 1600 

0067%% 

1 0675c 


JMS 

PRINT 

*101 1690 

0067N5 

626737 


<*HP* 

CRLF 

XIOI l7t<0 

0067%6 

760277 

QUARK 

LAM 

277 

*101(710 

0067N7 

106752 


JMS 

PRINT / PRINT *1* 

*101 1720 

006750 

I0%061 


JMS 

AO CO On 

*101 1730 

006751 

605055 


JMP 

panret 

*101f?%0 



/ROUTINE 

TO PRINT 

ONE CHARACTER, 

*1011750 



/JUMP IQ 

THIS ROUTINE HUM THE 

*1011760 



/ASCII €HA&AC?m 

IN THE AC. 

*1011770 



/MOOiriEO ST CMR SEP 1967 

*10 11790 

006752 

000000 

PRINT 

0 


*1011790 

006753 

700N06 


?LS 


*101 f too 

00675% 

6% 1002 


LACQ 

/SAVE MO 

*10) 18)0 

006755 

0N0005 


OAC 

MO 

XIOU820 

006756 

607%36 


JMP 

RET 

XIOI 1830 

006757 

7O0N02 

PRINTR 

TCP 


xioneio 

006760 

200005 


LAC 

HO /REPLACE MO 

*101 )850 

00676! 

652000 


LMO 


AIOH860 

006762 

216315 


LAC 

III /IS THERE AM OUTPUT FLAG 

*101 1870 

006763 

SN0006 


SAQ 

STPQUT 

*(Ot I860 

00676% 

6O7%0% 


JMP 

INCON /FES 

*101 1890 

006765 

7000N2 


ION 

/NO 

*1611900 

006766 

626752 


JHP* 

PRINT 

*101 I9I0 

006767 

207126 

pOnqff 

LAC 

POTTY! * I / ICtCWC ON-OFF Flip Flop 

*10) 1912 

006770 

5N6753 


SAD 

PRINT* I 

*101 (91% 

006771 

206766 


LAC 

PR|NTR«7 

*101 1916 

006772 

0N6753 


OAC 

PRINT*! 

*101 19)7 

006773 

605055 


JHP 

panret 

XIOI 1919 



/ROUTINE 

TO PRINT 

messages FOR POP 9 

XIOI 1920 



/enter mith address of message to be printed in ac. 

*1011930 



/TO PACK* 

STRIP OFF FIRST OCTAL 0161 f OF ASCII COOF . 

XIOI 19%0 



*76 Gives 

CRLF 00 

MEANS END OF MESSAGE 

*1011950 

00677% 

000000 

nesAoe 

0 


*101 1960 

006775 

5»6%6C 


AND 

( I 77771 

*101 1970 

006776 

107000 


JMS 

MESAG 

*1011990 

006777 

62677% 


JMP* 

MCSAGE 

*101 1990 

007000 

COOOOO 

HE SAG 

0 


*1012000 

00700 I 

5I6N20 


AND 

t 37777 l 

*1012010 

007002 

OH7027 


OAC 

finger 

*1012020 



03/02/73RALPH ftIC C. DAVIES POP-9 


• » • P0P9/I5 ASSEMBLY LISTING *»* 


PAO€ MO 


70 


007003 

777775 

vest 

UAH 

-I 


X 1012030 

007004 

047030 


DAC 

MESCTN 


XI 01 2040 

007005 

227027 


LAC* 

FINGER 


XIOI2050 

00700ft 

652000 


652000 


/NO, LOAD MO, LMO 

X 1012060 

007007 

641506 

MCS2 

641606 


/CLA ILLS 6 

X 10 12070 

007010 

741200 


SNA 


/ZERO TERMINATES 

X 1012080 

0070 II 

627000 


JMP* 

ME SAG 


xf 012090 

0Q7012 

556355 


SAO 

176* 


X 1012100 

00701 3 

6U7025 


JMP 

MES4 


X1012I I 0 

0Q7014 

355461 


TAO 

(-401 

'NO, MAKE ASCII 

XI012120 

007015 

741 100 


SPA 


/ADO 200 

XJ012I30 

007016 

356316 


TAO 

( too* 

/NO. 300 

X 10 12 140 

007017 

356462 


TAO 

(240 * 

/YES 

XI 01 2 150 

007020 

106752 


JMS 

PRINT 


XI012160 

007021 

44*»030 


tsz 

MESCTN 


XJ012I70 

007022 

607007 


JMP 

MES2 

'NO 

X1012I80 

007023 

44*7027 

MES3 

ISZ 

FINOER 

/ YES 

X 1 0 1 2 1 90 

007024 

607003 


JMP 

MES1 


X 10)2200 

007025 

1 06737 

MES4 

JMS 

CRLF 


X 1 0 1 22 1 0 

007026 

60702 t 


JMP 

MES3-2 


XI Ot 2220 

007027 

000000 

FINGER 

0 



XI 012230 

007030 

oOoooo 

MESCTN 

0 



X 1012240 



/MESCOM 

HWB 

POP-9 


XI 012250 



/ROUTINE 

TO PRINT 

A MESSAGE 

WITH A CRLF BEFORE AND AFTER THE 

X i 0 1 2260 



/MESSAGE . 

ENTER 

WITH THE MESSAGE NUMBER IN THE AC. 

X 10 12270 

O07O3I 

rtooooo 

MESCOM 

0 



XIO 12280 

007032 

040243 


OAC 

MESTEM 


X 101 2290 

007033 

106737 


JMS 

CRLF 


X10I2300 

007034 

200243 


UAC 

MESTEM 


X 101 231 0 

007035 

106774 


JMS 

MESAGE 


XIO 12320 

007036 

106737 


JMS 

CRLF 


XI012330 

007037 

627031 


JMP* 

MESCOM 


X10I2340 

007040 

000000 

MESSW 

0 



X 101 2350 

007041 

000000 

MESSW1 

0 



X 101 2360 

007042 

440061 


ISZ 

PFG 


XI012370 

007043 

107045 


JMS 

E*PtOP 


X 101 2380 

007044 

605055 


JMP 

panret 


X 1012390 

007045 

000000 

EXPIOP 

0 



X 1012400 

007046 

112001 


JMS 

SETVAR 


X 10124 10 

007047 

400052 


XCT 

XCTSKG 


X 1012420 

007050 

356363 


TAO 

1 EXP I OH l 


X 1012430 

007051 

047040 


OAC 

HESSH 

/ EXPIOH 

X 1 0 1 2440 

007052 

356354 


TAO 

(401 


XI 0I24S0 

007053 

047041 


OAC 

MESSW 1 

/ EXP I OF 

X 1012460 

007054 

227040 


LAC* 

MESSW 

/ GET HIGH ORDER EXPIO 

XI0I247Q 

007055 

046712 


OAC 

HIOHPR 


XI 01 2480 

007056 

140062 


r»ZM 

A INF 


X 1012490 

007057 

112144 


JMS 

OA 


X 1012500 

007060 

246314 


XOR 

MESS24 


X 101 251 0 

007061 

030000 


ExPIO 



X I 0 1 2520 

007062 

200062 


LAC 

A INF 


X 1012530 

007063 

741200 


SNA 


/ ANY INPUT? 

X 1012540 

007064 

607070 


JMP 

.♦4 

/ NO 

X 1 0 1 2550 

007065 

213414 


LAC 

BC« 1 


X 1012560 

007066 

067040 


OAC* 

MESSW 


X 101 2570 

007067 

067041 


OAC* 

MESSW) 


X 1 0 1 2580 

007070 

140061 


OZM 

PFG 


X 1012590 

007071 

627045 


JMP* 

EXPIOP 


XIOI2600 


E-72 
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007072 000000 
007073 047076 
007074 227076 
007075 627072 
007076 000000 


007077 000000 

007100 700002 

007101 700402 

007102 216463 

007103 1071 15 

007104 227077 

007IC5 107115 

007106 447077 

007107 740400 

007110 607104 

007111 216463 

007112 1071 15 

007113 700402 

007114 627077 

007115 000000 

007116 107125 

007117 744000 

007120 64Q5II 

007121 107125 

007122 640510 

007123 740020 

007124 627115 

007125 000000 

007126 700406 

007127 700401 

007130 607127 

007131 627125 


007132 207660 
007133 116064 
007134 356315 
007135 0*6722 
007136 350407 
007137 116064 
007140 36B337 
007141 046723 
007142 210344 
007143 740001 
007144 046724 
007145 216464 
007146 047403 
007147 1 07 1 64 
007150 206722 
007151 107171 
007152 607155 


ir * 
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*•• POPS/ 15 


007153 

206722 


LAC 

00715* 

607151 


JWP 

007155 

**6722 

PAG02 

tsz 

007156 

226723 


LAC* 

007157 

**6723 


tsz 

007160 

**672* 


rsz 

007161 

607151 


JMP 

007162 

107 16* 


JHS 

907163 

606257 


JMP 

00716* 

009080 

PAGES 

0 

007165 

**7|7l 


ISZ 

007166 

1*7*02 


0ZH 

007167 

106737 


JHS 

007170 

62716* 

/CUR 

JHP* 

POP-9 

007171 

OOQM# 

LINE 

G 

007172 

7**000 


CLL 

007173 

113*76 


JMS 

00717* 

11227* 


JMS 

007175 

10655* 


•INS 

007176 

777777 


LAN 

007177 

1065** 


JHS 

007200 

**7*02 


IS* 

Q07201 

207*02 


LAC 

007202 

5*7*03 


SAD 

007203 

10716* 


jhs 

00720* 

627171 

/PUNCH 

/ROUTINE 

«mp* 

rcgi 

TO PUNCH 

007205 

200051 

PUNOUT 

LAC 

00720S 

7*0200 


SEA 

007207 

607215 


JMP 

007210 

2 1 6*17 


LAC 

00721 1 

072027 


GAC* 

007212 

607215 


JNP 

007213 

216*17 


LAC 

00721* 

076*65 


0AC* 

007215 

I 07306 


J NS 

007216 

2073*0 


LAC 

007217 

I 07276 


JMS 

007220 

207657 


LAC 

007221 

0*7*01 


0AC 

007222 

207660 


LAC 

007223 

1 1606* 


J«S 

00722* 

356315 


TAD 

007225 

0*7377 


OAC 

007226 

350*07 


tad 

007227 

1 1606* 


JHS 

0G7230 

356337 


TAB 

C 07231 

0*7*00 


DAC 

007232 

777770 

PUN! 

LAH 

007233 

0*7376 


OAC 

00723* 

1*6717 


GZM 

007235 

777775 


LAH 

007236 

0*737* 


OAC 

007237 

207377 


LAC 

0072*0 

106571 


JMS 

0072*1 

000000 

PUNSM3 

0 
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T56 /LINE IS PUL PRINT CHANNEL 

PACO I /NUMBER At TtP&t Of LINE 

TSS 

TSt 

tst 

CTrtS 

Pago i 

PAGES /FINISH SPACING PAGE 

ftETC 

LINE 

LlNPOfS /ZERO LINE POSITION 

CRLF 

PAGES 

AUGUST I 967 


STRPCH / SKIP IF NOT IN STRIP. 

SCIA 

OECPRT /PRINT INPUT NUHtCR 

-1 

NULtSP 
L INPOS 

LINPOS /IS LINE POSIT ION EQUAL TO 

NPtlNE /NUHtER PER LINE 

PAGES ms - GET A CRUF 

LINE /no 

POPS SEP 1967 

SPECTRUM FOR SINGLE 

skgflo 

.*6 

<3 lOGOO » 

SETy.5 / PTFG 

,*•3 

<3100001 

lPTF0**O0t 

PUNLEA /PUNCH LEADER 

PUNStA /PUNCH SIART OF TAPE CHARACTERS 

PUNSS 

HNOCO 

PGHCT f /COUNT HUNGER OF CHANNELS 

01SAOO 

INCHAN / 50501 

II* / TES 

PUNTS /CHANNEL POINTER 

OtSQNE 

INCHAN / 5050 T 

{.j g / yES 

PUNT52 /CHANNEL CONTENT POINTER 

-16 

PUNCI2 /COUNT NUMBER ON LINE 

0P2RQ /CLEAR LEADING ZERO SUPPRESSION 

-3 

PUNCT3 

PUNTS /PUNCH CHANNEL HUNGER 

OECCON 

/CONTAINS return address to deccon 


*1013190 
*1013200 
*1013210 
*1013220 
*1013230 
**0132*0 
*1013250 
*1013260 
*1013230 
*1013260 
**013290 
*1013300 
*10133*0 
*1013320 
**.013330 
*10l33>*6 
*1013350 
*1013360 
*1013330 
*1013390 
.*10*3399 
**013*00 
*1013*1# 
*10*3*1# 
*1013*30 
*1013**0 
*1013*5# 
**013*90 
*10*3*70 
*1013*90 
*1013*90 
*1013500 
*1013510 
*1013520 
*1013530 
*10135*0 
*1013550 
A 1 013560 
*101357* 
*1013590 
*T0.t359O 
*1013*00 
*10*361# 
*1013620 
*1013630 
*10116*0 
*1013650 
*1013660 
*1013670 
x 1 013690 
*1013690 
*1013700 
X 101 37 JO 
XI 013720 
X 1013730 
*10137*0 
XI 013750 
*1013^60 


E-74 
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007242 447374 

007243 6272m 

007244 7m 200 

007245 607252 

007246 107316 

007247 750001 

007250 047374 

007251 627241 

007252 760040 

007253 i 07347 

007254 227400 

007255 1 C7364 

007256 44740 1 

007257 741000 

007260 607272 

007261 447377 

007262 447400 

007263 447376 

007864 607252 

007265 760015 

007266 1 07347 

007267 760212 

007270 1 07347 

00727 1 607232 

007L72 207344 

007273 1 07276 

007274 107306 

007275 606257 

007276 000000 

007277 047377 

007300 227377 

007301 741100 

007302 627276 

007303 107347 

007304 447377 

007305 607300 

007306 000000 

007307 777700 

007310 047401 

007311 760200 

007312 107347 

007313 447401 

007314 607311 

007315 627306 

007316 000000 

007317 356466 

007320 347325 

007321 047375 

007322 227375 

007323 107347 

0C7324 627318 

007325 007326 

007326 000260 

007327 000061 

007330 000062 

007331 000263 

007332 000064 

007333 000265 


••• POPS/ I 

1 52 

JHP* 

SNA 

JHP 

JUS 

CLC 

OAC 

JHP* 

PUN2 LAM 

JHS 
LAC* 
JUS 
1 52 
SKP 
JHP 
152 
ISZ 
152 
JHP 
LAM 
JHS 
LAM 
JHS 
JHP 

PUN3 LAC 

JHS 
JHS 
JHP 

PUNSS 0 

OAC 

LAC* 

SPA 

JHP* 

JHS 

TSZ 

JHP 

PUNLEA 0 

LAM 

OAC 

LAM 

JHS 

IS2 

JHP 

JHP* 

PUNSH2 0 

TAD 

TAO 

OAC 

LAC* 

JHS 

JHP* 

PUNTAB . ♦ 1 

260 
61 
62 
263 
64 
265 
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PUNCT3 /SKIP FIRST THREE DIO ITS 
PUMSM3 /RETORN FOR NEST DIGIT 

PUN2 /ALL DONE 

PUNSH2 

pun;t3 

PUNSH3 /RETURN FOR NEST DIGIT 

40 /PUNCH SPACE 

PUNSH 

PUNTS2 

PUNOEC 

PUNCT I /LAST CHANNEL 

/NO 

PUN3 /YES 

PUNTS 

PUNTS2 

PUHCT2 

PUN2 

15 /PUNCH CR 

PUNSH 

212 /PUNCH LF 

PUNSH 

PUNI 

PUNSTO /PUNCH STOP OF TAPE CHARACTERS 

PUNSS 

PUNLEA /PUNCH LEADER 

RETC 

/SUBROUTINE TO 

PUNTS /PUNCH START CHARACTERS 

PUNTS 

PUNSS 
PUNSH 
PUNTS 
PUNSS *2 

/SUBROUT 1 HE* TO 
-100 /PUNCH LEADER 

PUNCTl 
200 
PUNSH 
PUNCTl 
.-3 

PUNLEA 

/SUBROUTINE TO 

1-2601 

PUNTAB /LOCATE TABLE CODE 

PUNTS3 /FOR CHARACTER 

PUNTS3 

PUNSH 

PUNSH2 

/OAT A CHARACTERS 
/0 
/I 
/2 
/ 3 

/4 

/5 


XI 01 3770 

X1OI37B0 

X 10 13790 

*1 01 3600 

XIOI3810 

XI 01 3620 

Xi 013830 

XJ0J3840 

X 101 3850 

*1013860 

*1013870 

*1013880 

*1013890 

XI 01 3900 

*1013910 

X 1013920 

XI 013930 

*1013940 

*1013950 

*1013960 

*1013970 

X 10 13980 

*1013990 

*1014000 

XiOlROlO 

XI 01 4020 

X 10! 4030 

*1014040 

*1014050 

*1014050 

*1014070 

*1014080 

*1014090 

*1014 100 

*10)4110 

*1014120 

*1014130 

X10I4S40 

*1014150 

*1014150 

XI 01 4 170 

*1014180 

*1014190 

* JO! 4200 

*1014210 

*1014220 

x 10 14230 

X 101 4240 

X 1014250 

XT 014260 

XI014270 

X 10 l 4280 

*1014290 

*1014300 

X 10 1 431 0 

X 10 14320 

XI 01 4330 

X 1 0 1 4340 
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007334 

000266 


266 


/6 

X 101*359 

00733S 

000067 


67 


n 

XI 01*360 

007336 

000070 


70 


/ 8 

XI 01*370 

007337 

000271 


271 


/ 9 

X 101 *360 

007340 

007341 

PUNSTA 

.♦! 



X 1101*390 

007341 

000015 


15 


/CR 

X!OT**00 

007342 

000212 


212 


/ LF 

XI OT** TO 

007343 

777777 


777777 


/END OF LIST 

XU 04 **20 

007344 

007345 

PUNSTO 

. *1 


/STOP CODE 

X 101**30 

007345 

000004 


4 



XIOT***0 

007346 

777777 


777777 



X 101 **50 

007347 

000000 

PUNSH 

0 


/SUBROUTINE TO PUNCH 

X 10 » **60 

007350 

700204 


PSA 



X10!l**70 

007351 

641002 


LACQ 


/SAVE HO FOR OECPRT 

X JOT* *80 

007352 

040005 


OAC 

MO 


XIOI **»0 

007353 

607436 


JMP 

RET 

/MATT FOR PUNCH 

XIOI *500 

007354 

700202 

PUNSHR 

PCF 


/INTERRUPT RETURNS HERE 

X TO 1*540 

007355 

200005 


LAC 

MO 

/RESTORE HQ 

XIOI *520 

007356 

652000 


LMQ 



XIOI *530 

007357 

216315 


LAC 

(I) 

/IS THERE AN OUTPUT STOP FLAG 

X 104*5*0 

007360 

540006 


SAQ 

STPOUT 


XIOI *550 

007361 

607404 


JMP 

INCON 

/ YES 

X 101*560 

007362 

700042 


I ON 


/NO 

XIOI *570 

007363 

627347 


JMP* 

PUNSH 


X 404*580 

007364 

000000 

PUNDEC 

0 



XIOI *590 

007365 

146717 


PZM 

OP2RO 

/CLEAR LEADING ZERO SUPPRESSION 

XI01*600 

007366 

1 0657 1 


JMS 

OECCON 

/CONVERT TO OECIHAL 

X10I*SIO 

007367 

000000 


0 


/RETURN FOR NEXT 01GIT 

XI 03*620 

007370 

741200 


SNA 


/LAST DIGIT 

X 101*630 

007371 

627364 


JMP* 

PUNDEC 

/YES - RETURN 

X 4 04*6*0 

007372 

107316 


JtiS 

PUNSH2 

/NO - PUNCH OIGJT 

X 104*650 

007373 

627367 


JMP* 

.-4 


X 10 1*660 

007374 

000000 

PUNCTi 

0 



XIOI *670 

007375 

000000 

PUNTS3 

0 



X 101*680 

007376 

000000 

PUNCT2 

0 



X4Ol*690 

007377 

000000 

PUNTS 

0 



X 1 01 *700 

007400 

000000 

PUNTS2 

0 



XIOI *710 

007401 

000000 

PUNCT 1 

0 



XI 01 *720 

007402 

000000 

LiNPOS 

0 



XIOI *730 

007403 

000000 

NPs. 1 NE 

0 



X10T*T*0 



/ROUTINE 

TO RESTORE 

I/O SWITCHES TO INITIAL CONDI? IONS UPON 

X4 04*750 



/PREMATURE TERMINATION OF OUTPUT. 

XIOI *760 



/called by routines 

SUCH AS 

PRINT AND PUNCH WHIN FLAG IS UP 

XI 04 *770 

007404 

140006 

INCON 

DIM 

STPOUT 


XI 01 *780 

007405 

777760 


LAW 

-20 


X 101*790 

007406 

046717 


OAC 

DPZRO 


X 1 04*800 

007407 

146712 


OZM 

H1GHPR 


XI 04*840 

007410 

106737 


JMS 

CRLF 


XIOI *820 

00741 1 

1*07436 


JMP 

RET 


X 104*830 



/ restore 

RCO P0P9 

APR 1972 


X 101*8*0 



/routine 

TO DECREMENT LISTS 

HOLDING CONDITION 

XIOI *859 



/OF MACHINE ON INTERRUPTS. 


XI 01 *©50 

007412 

000000 

RESTOR 

0 



XIOI *870 

007413 

777774 


LAW 

-4 


XIOI *880 

007414 

340017 


TAD 

17 

/ BACK UP 17 

XIOI *890 

007415 

040017 


DAC 

17 


XIOI *900 

007416 

220017 


LAC* 

17 


XI 01 *910 

007417 

040004 


OAC 

ACC 

/ SAVE AC 

XI 01*920 
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007Hao 220017 
007*21 7*0001 
007*22 356*67 
007*23 0*7*2* 
007*2* 7*00*0 
007*25 2200 1 7 
007*26 652000 
007*27 220017 
007*30 0*0000 
007*31 77777* 
007*32 3*0017 
007*33 0*0017 
007*3* 20000* 
007*35 627*12 


007*36 700002 

007*37 107*12 

007**0 707702 

007**| 7000*2 

007**2 7033** 

007**3 620000 

007*** 007*55 

007**5 0002*0 

007**6 000000 

007**7 000000 

007*50 000000 

007*51 0002*0 

007*52 000000 

007*53 000000 

007*5* 000000 

007*55 0002*0 

007*56 

097506 1050*7 

007507 767651 

007510 10677* 

0075 II i i 2366 

007512 556*70 

007513 6176*6 

00751* 112366 

007515 106737 

007516 607*36 

007517 200051 

007520 7*0200 

007521 6075*0 

007522 2363” 1 

007523 0*7556 

0075.*N 207523 

007525 ! 12250 

007526 236*25 

007527 7*0001 

007530 3*7556 

007531 7*||00 

00?532 6067*6 

007533 207556 



XI 01 *930 
X10I*9*C 
XI 01 *950 
X 101*960 
X 10! *970 
XI 01*980 
XI 01 *990 
X10I5000 
X 10 1 50 1 0 
XIOIS020 
XI0I5030 
X 10150*0 
X 10 1 5050 
X10I5060 
XI015070 
X 1 0 1 5080 
X 1 0 1 5090 
XI 015 100 
XI015I 10 
X 101 5120 
X 10151 30 
X!01S1*0 
XIOISISO 
X 1015160 
XI 01 51 70 

XI 01 SI 80 
X 101 51 90 
X 101 5200 
X 1 0 1 52 1 0 
X 1 0 1 5220 
X 101 5230 
X 1 0 1 52*0 
X 1 0 1 5250 
X 1 0 1 5260 
XIO 15270 
X 1 0 1 5280 
X 1 0 1 5290 
X 1015300 
X 101 531 0 
XI 015320 
X 10 1 5330 
X 10153*0 
X 1015350 
XI 01 5360 
X 1015370 
X 101 5380 
X 1015390 
X 101 5*00 
X 1 01 5* 1 0 
X 1015*20 
XIO! 5*30 
X 1 0 1 5**0 
X 101 5*50 
X 1015*60 
X 1015*70 
X 1015*80 
X 1 0 1 5*90 
X 1 0 1 5500 
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007534 

072070 


OAC* 


SET* 1 1 / LIVEPS 

X I 0 1 55 1 0 

007535 

076350 


OAC* 


ILIVEPT) 

X 1015520 

007536 

076351 


OAC* 


(LIVEPHI 

XI0I5530 

007537 

506257 


JMP 


RETC 

X 10! 5540 

0075H0 

236471 


LAC* 


1 L 1 VEPH+400 1 

XI 01 5550 

00754! 

047556 


OAC 


LlVcR 

X 10 1 5560 

007542 

207541 


LAC 


.-1 /GET AOR OF LIVER 

X 1015570 

007543 

1 12250 


JMS 


NIO 

X I 0 ! 5580 

007544 

236472 


LAC* 


(L!V£TM*400> 

X I 0 1 5590 

007545 

740001 


CMA 



XIO 15600 

007546 

347556 


TAO 


LIVER 

X 1015610 

007547 

741100 


SPA 



X I 0 1 5620 

007550 

606746 


JMP 


QMARK 

XI 015630 

007551 

207556 


LAC 


LIVER 

X I 0 1 5640 

007552 

076473 


OAC* 


(LIVEPS*400I 

X 1015650 

007553 

076474 


OAC* 


(L I VEPT *400 1 

X 1 0 1 5660 

007554 

07647 l 


OAC* 


( L I VEPH*400 J 

XIO 15670 

007555 

606257 


JMP 


RETC 

X 10 15680 

007556 

000000 

LIVER 

0 



X 1015690 



/SUBROUTINE TO 

PR IN 

T: REAL. LIVE. AND PERCENT 

X 1015700 



/TIME 

AND LIVE 

TIME 

LIFT 

XI0157IC 

007557 

000000 

TIME 

0 



X 1015720 

007560 

200051 


LAC 


bkgflg 

X 1 0 1 5730 

007561 

741200 


SNA 



X 1015740 

007562 

607573 


JMP 


T1MEI 

X 10 1 5750 

007563 

236475 


LAC* 


|REALLG*40<M 

X 1015760 

007564 

054373 


OAC 


RT 

X 1015770 

007565 

236476 


LAC * 


l RE ALH I *400 ) 

X ( 0 1 5780 

007566 

054374 


OAC 


RT * 1 

X ! 0 1 5790 

007567 

236477 


LAC • 


( L 1 VELO* 400 5 

XI 01 5800 

007570 

054376 


OAC 


LT 

X 1 0 1 58 1 0 

007571 

236500 


LAC* 


c L 1 VEH l *400 i 

X 1 0 1 5820 

007572 

607602 


JMP 


.♦10 

X 10 1 5030 

007573 

236435 

T I ME 1 

LAC* 


(REALLO) 

XI0I584Q 

007574 

054373 


OAC 


RT 

X 1015850 

007575 

236433 


LAC* 


(REALHI ) 

X! 015860 

007576 

054374 


OAC 


RT ♦ 1 

X t 0 1 5870 

007577 

236440 


LAC* 


(L! VELO) 

X 1 0 1 5880 

0076Q0 

054376 


OAC 


LT 

X 1015690 

007601 

236436 


LAC* 


( L I VEH l ) 

X 1015900 

007602 

054377 


OAC 


LT*l 

X 101 5910 

007603 

216501 


LAC 


(21 ) 

X 1015920 

007604 

054400 


DAC 


L T*2 

X I 0 I 5930 

007605 

054375 


OAC 


RT*2 

XIOI 5940 

007606 

1 I 3051 


JMS 


F INI 

X 101 5950 

007607 

214373 


FLAC 


RT 

X 1 0 1 5960 

007610 

1 13426 


JMS 


NOR 

XIOI 5970 

00761 I 

U! 4373 


FOAC 


RT 

XI 015900 

007612 

214376 


FLAC 


LT 

XIOI 5990 

0076 1 3 

l I 3426 


JMS 


NOR 

XI016000 

007614 

014376 


FOAC 


LT 

X 10160 1 0 

007615 

714373 


FOIV 


RT 

X 1016020 

007616 

556502 


FMUL 1 S 

( I 44 I 

XIOI 6030 

007617 

014404 


FOAC 


LTRT 

X 10 16040 

007620 

214376 


FLAC 


LT 

X 10 1 6050 

007621 

1 1 3652 


JMS 


FCIA 

XIOI 6060 

007622 

107642 


JMS 


TIME2 

XIOI 6070 

007623 

376471 


FAOOIS* 

(L 1 VEPH*400 ) 

XIOI 6060 
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007624 

607626 


JMP 

. *2 



007625 

37635! 


FAODl S* 

ILt VEPHI 



007626 

0 l *4*40 1 


FDAC 

LTL 



007627 

M3I32 


OHS 

FEXT 



007630 

1 l 1625 


JMS 

MIO 



007631 

011736 


MESS 16 




007632 

31*4373 


FLT 

RT 



007633 

on 7*4 1 


MESS 17 




0G7634 

314376 


FLT 

LT 



007635 

01 17*4*4 


MESS 18 




007636 

31*4*40! 


FLT 

lyl 



007637 

0! 1 747 


MESS 1 9 




007640 

31*4*40*4 


FLT 

LTRT 



007641 

627557 


JMP* 

TIME 



0076*42 

000000 

T l ME2 

0 




007643 

200051 


LAC 

bkgflg 



0076*4*4 

740200 


S2A 


/ 8KG7 


0076H5 

627642 


JMP* 

TIME2 



0076*46 

453051 


ISZ 

TINT 



007647 

453051 


I sz 

FINT 



007650 

627642 


JMP* 

TIME2 



007651 

03 1 7 16 

MESS23 

031716 


/ CON 


007652 

06 1 I 22 


06) .22 


/ FIR 


007653 

154005 


154005 


/ ME 


0 7765*4 

30 I 124 


301)24 


/ X 1 T 


007655 

403 1 55 


403155 


/ Y- 


007656 

164000 


164000 


/ N 


007657 

777400 

MNOCO 

-400 


/ NEO. OF NOCD 


007660 

000000 

D1SAD0 

0 


/AMMOUNT AOOEO TO 01 SPLAYS 

1ST CHANNEL 

007661 

000000 

SCALE 

0 


/ 0 FOR LOG - 1 FOR LINEAR 




/SU8R0UT INE XC CONVERT BINARY 

TO OECIMAL 




/FOR NUMBER GENERATOR 



007662 

cooooo 

NGBTO 

0 




007663 

777^60 


LAW 

-30 

/ REFRESH ONLY EVERY 


00766*4 

047762 


GAC 

NGRF 

/ t?OTH TIME 


007665 

210601 


LAC 

NGL 1 ST 



007666 

04001 1 


DAC 

1 ! 



007667 

107756 

1NSEL 

JMS 

NGNON 



007670 

741200 


SNA 




00767! 

607702 


JMP 

NG1 



007672 

050557 


OAC 

NGHIGH 



007673 

20666 1 


LAC 

APOML 

/PREPARE TO CONVERT ROUBLE 

PRES I C I ON 

00767*4 

047763 


OAC 

ngtenl 



007675 

206662 


LAC 

APOWH 



007676 

047764 


OAC 

NOTENH 



007677 

777765 


LAW 

-13 

/COUNT 13 01 GITS 


007700 

04V76S 


DAC 

NGOCTN 



007701 

607710 


JMP 

NGS 



007702 

206657 

NG1 

LAC 

APOWLS 

/PREPARE TO CONVERT SINGLE 

PRES 1C ION 

007703 

047763 


DAC 

NGTENL 



00^70*4 

206660 


LAC 

APOWHS 



007705 

047764 


OAC 

NGTENH 



007706 

777772 


LAW 

-6 

/COUNT 6 


007707 

047766 


DAC 

NGOCTN 



007710 

207766 

NG2 

LAC 

NGOCTN 



0077! | 

556337 


SAD 

< - 1 l 



007712 

147767 


OZM 

NGOZRO 



0077 13 

150560 


OZM 

NGOIG 




X 1016090 
XICI6I00 
x 1 0 1 6 1 i0 
XIOI6120 
x 1 0 1 6 1 30 
xioismo 

X I C I 6 1 50 
X ! 0 1 6 I 60 
X 1 01 6 l 70 
X 10 1 6 1 80 
X 1 0 1 6 ) 90 
X 101 6200 
X l 0 1 62 I 0 

y 1016220 

X 1 0 1 6230 

X I 0 1 6240 
X 1 01 6250 
X 1016260 
X 1 0 1 6270 
X 1016280 
X (016290 
X 1 016300 
X 101 63 I 0 
XI 016320 
X i 0 16330 
X I 0 1 6340 
X 1 0 1 6350 
XDISOOOO 
X01S0010 
XDIS0020 
XDIS0030 
XOIS0040 
XOIS0050 
XO ! S0060 
X0IS0070 

xoisooeo 

XOIS0090 
XOISOIOG 
XOISOI 10 
XO I SO 120 
XOISOI 3W 

xoisomo 

XOISOI 50 
XOISOI 60 
X0IS0170 
XD I SO 1 80 
XOISOI 90 
XOIS0200 
XOIS02I0 
X0IS0220 
XDIS0230 
X01S02H0 
XDIS0250 
XDIS0260 
XQIS0270 
X01S0280 
XDIS0290 
X0IS0300 
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Q077I4 

147765 

NO 3 

OZH 

NCOVEft 


XDIS0310 

007715 

744000 


cut 



XOIS0320 

007716 

210556 


LAC 

N6L0W 

/GET LOW BITS 

XDIS0330 

007717 

367763 


TAO* 

NGTCNL 

/ AOO LOH POWER OF TEN 

XOIS0340 

007720 

745400 


SZLICLL 


/HAS THERE AN OVER FLOW 

XO 1 50350 

00772! 

447765 


ISZ 

NGOVIR 

/YES 

X01S0360 

007722 

05056! 


OAC 

NOTCH 

/STORE 7EMP0RARLY 

XO I 50370 

007723 

210557 


LAC 

NGH! OH 

/AOO HIGH ORDER 

XOIS0380 

007724 

367764 


TAO* 

NGTENH 


XOIS0390 

007725 

347765 


TAO 

NGOVER 

/AOO OVER FLOW FROM LOH BITS 

XDIS0400 

007726 

741400 


5ZL 


/IS RESULT NEGITIVE 

XD i S04 1 0 

0077c7 

607751 


JHP 

NG4 

/NO 

X0IS0420 

007730 

210560 


LAC 

NOOIG 

/YES-OIGIT IS REAOY 

XDIS0430 

007731 

740200 


SZA 



XOIS0440 

007732 

1 47767 


OZH 

NGOZRO 

/SUPPRESS LEADING ZEROS 

XOIS0450 

007733 

347767 


TAO 

NGOZRO 


XDIS0460 

00773** 

741100 


SPA 



X01S0470 

007735 

607742 


JHP 

.♦5 


XO I 50480 

007736 

350566 


TAO 

NGCOOA 

/AOO CODE ADORE SS 

XOIS0490 

007737 

05056! 


OAC 

NGTEH 


XDIS0500 

007740 

23056! 


LAC* 

NOTCH 


XCIS0510 

007741 

0600! 1 


DAu* 

1 l 


XO 1 S0520 

007742 

447763 


ISZ 

ngtenl 

/SET POINTERS TO NEXT 

XOIS0530 

00^743 

447764 


ISZ 

NGTENH 

/POWER OF TEN 

X0IS054C 

007744 

447766 


ESZ 

NGOCTN 

/MORE 0 1C ITS 

XOIS0550 

007745 

667710 


JHP 

NG2 

/YES 

XOIS0560 

007746 

777777 


LAW 

-1 

/NO-RESTORE. ANO RETURN 

XOIS0570 

007747 

047767 


OAC 

NGOZRO 


XQIS0580 

007750 

607757 


JHP 

NGNON ♦! 


XOIS0590 

007751 

050557 

NGH 

OAC 

NGH 1 GH 


XOISOSOO 

007752 

21 0561 


LAC 

NGTEH 


XOIS0610 

007753 

050556 


OAC 

NGLOW 


XOIS0620 

007754 

45C560 


ISZ 

NG01G 

/AOO ONE TO DIGIT 

XC 1 50630 

007755 

607714 


JHP 

NG3 


XDISG540 

007756 

000000 

NGNON 

0 


/ EFFECT BY PASS OF NUHBER GENATOR 

XO 150650 

007757 

750000 


CLA 



XD1S066Q 

007760 

0600 1 1 


OAC* 

1 ! 


XOIS0670 

007761 

627662 


JHP* 

NGBTD 


XO 1 50680 

007762 

777760 

NGRF 

-20 


/REFRESH COUNTER 

XOIS0690 

007763 

000000 

NOTENL 

0 


/LOW OROER POWER OF TEN 

XOIS0700 

007764 

000000 

NGTENH 

0 


/HIGH OROER POWER OF TEN 

XO I 507 1 0 

007765 

000000 

NGOVER 

0 


/HOLOS OVER FLOW 

X0150720 

007766 

000000 

NGOCTN 

0 


/DIGIT COUNTER 

XDIS0730 

007767 

777777 

NGOZRO 

- 1 


/ZERO SUPPRESSION 

XO 1 50740 

007770 

000000 

NGOIS 

0 



XOIS0750 

007771 

210601 


Lac 

NOLI ST 


X01S0760 

007772 

040011 


OAC 

1 I 


X01S0770 

007773 

76000! 


LAW 

1 


XDIS0780 

007774 

700706 


700706 


/SET INTENSITY 

XO 1 $0790 

00^775 

210546 


LAC 

OX 

/X ORIGIN FOR NUM8ER 

XOIS0800 

007776 

050547 

NGS 

OAC 

NX 


XO 1 508 1 0 

007777 

050550 


OAC 

TX 


XOIS0820 

010000 

2200 1 1 


LAC* 

1 1 

/PICK UP COOE FOR NUMBER 

XOIS0830 

010001 

741200 


SNA 



XOIS0840 

010002 

627770 


JHP* 

NGOIS 


XO 150850 

010003 

050565 


OAC 

DCOOE 


X01S0860 

010004 

777775 


LAW 

-3 

/SET COUNTER 

XOIS0870 

010005 

050562 


OAC 

NGC 


XOIS0880 
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010006 

210551 


LAC 

NY 

/y ORIGIN POR NUMBER 

010007 

050552 

NG7 

OAC 

TY 

010010 

210565 


LAC 

OCOOE 


0100! I 

7*4*1010 


CLLIRAL 



010012 

050565 


OAC 

OCOOE 

/IP BIT IS A ONE 

010013 

7*4 1*400 


SZL 


/Ol SPLAY HORIZONTAL LINE 

01 001 t 

1 I 0520 


JHS 

NGOHL 

010015 

210552 


LAC 

TY 


010016 

350553 


TAO 

NDY 

/RAISE LINE TO NEXT LEVEL 

010017 

*450562 


ISZ 

NGC 

010020 

610007 


JMP 

NG7 


010021 

777776 


LAM 

-2 

/GO ON TO VERTICAL LINES 

010022 

050562 


OAC 

NGC 

/COUNT BOTH GROUPS 

Q10023 

210551 


LAC 

NY 

01002*4 

050552 

NG8 

OAC 

TY 


010025 

777775 


LAU 

-3 

/three in each grout 

010026 

050563 


OAC 

NGC 1 

010027 

21 05*#7 


LAC 

NX 


010030 

050550 

NG9 

OAC 

TX 


010031 

210565 


LAC 

OCOOE 


010032 

7*4*4010 


CLLIRAL 



0 i 0033 

050565 


OAC 

OCODE 

/IP BIT IS A ONE 

01003*4 

7*4 1*400 


SZL 


/Ol SPLAY VERTICAL LINE 

010035 

110533 


JMS 

NGOVL 

01 0036 

2 1 0550 


LAC 

TX 

/MOVE LINE TO RIGHT 

010037 

350655 


TAO 

NDX 

010040 

H50563 


ISZ 

NGC l 

/P INI SHED WITH GROUP 

91004 ; 

610030 


JMP 

NG9 

/NO 

0100*42 

210552 


LAC 

TY 

/YES-RAISE POR NEXT GROUP 

0100*43 

350553 


TAC 

NOY 

0100*4*4 

*450562 


ISZ 

NGC 

/HAVE HE DONE BOTH GROUPS 

0100*45 

SI 002H 


JMP 

NG8 

/NO 

0 100*46 

2 1 05*47 


LAC 

NX 

/INCREMENT X COOR. POR 

0100*47 

3*0554 


TAO 

NLS 

/ NEXT LETTER 

010050 

607776 


JMP 

NG5 

0S005I 

21 03*4*4 

01 SPEC 

LAC 

NOCO 


010052 

050127 


OAC 

0X1 


010053 

050061 


OAC 

OX 


01005*4 

7*4000 1 


CMA 



010055 

356315 


TAO 

( 1 1 


010056 

0*47657 


OAC 

MNOCO 


010057 

216315 


LAC 

< 1 * 

/ CALCULATE DELTA X. 

010060 

670313 


670313 



010061 

000000 

OX 

0 



010062 

6*4 1002 


LACO 



010063 

5163*40 


AND 

<17771 

/ MASK OPP UPPER BITS 

01006*4 

7*41200 


SNA 


010065 

216315 


lAC 

< 1 * 

/IPO MAKE - 1 . 

010066 

050061 


OAC 

ox 

0 ! 0067 

740001 


CMA 



010070 

356315 


TAO 

< i ) 


010C7I 

050301 


OAC 

MDX 


010072 

750004 


LAS 



010073 

550257 


SAO 

LAST 

/HAS THERE BEEN A CHANGE 

0 1 007*4 

610107 


JMP 

OLISTV 

/NO 

010075 

050257 


OAC 

LAST 


010076 

516420 


ANO 

<0377771 


010077 

741300 


SPA 1 SNA 




XO!S0890 

XOISOSOO 

XOIS09I0 

XOIS0920 

XOIS0930 

XOIS0940 

XDIS0950 

XOIS0960 

XOIS097D 

XOISO90O 

XOIS0990 

XOISIOOO 

<0 1 S 1 0 I 0 

XOISI 020 

XOISI030 

XOI SI 0*0 

XOI SI 050 

XDISI060 

XOISI070 

XOISIOBO 

XDISI090 

XOI SI I GO 

XOISI I 10 

XOISI 120 

XOISI 130 

xoisi mo 

XOISI 150 
XG1SI 160 
XOISI 170 
XOISI 180 
XOISI 190 
XOI S 1200 
X0ISI2I0 
XOI SI 220 
XDISI230 
X0ISI2H0 
XOISI250 
XOI SI 260 
XOISI 270 
XOISI 280 
XOISI 290 
XOISI 300 
XOISI 310 
XOISI 320 
XOISI 330 
XOISI 340 
XOISI 350 
XOISI 360 
XOISI 370 
XOISI 380 
XOISI 390 
XOISIHOO 
XOI S 1410 
XOISI 420 
XOISI 430 
XOIS1440 
XOISI 450 
XOI SI 460 
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PAOC NO. 80 


OIQIO0 

610107 


JT9 

OUSTV 


XOISIV70 

010101 

650H22 


630V22 


/ NORN 22 

xotsiveo 

010102 

777700 


LAH 

-100 


XOISIV90 

010103 

6**000i 


OSC 


/ OET SHIFT COUNT 

XOISISOO 

0I0I0V 

7VV00I 


CMAICLL 



Y0ISI5I0 

010105 

350262 


TAO 

ROTLOC 


X0ISI520 

010108 

050261 


OAC 

LOCATR 


X0ISI530 

010107 

15031 1 

0L1STV 

0271 

SPREV 


X0IS13V0 

OIOIIO 

'760001 


LAH 

1 


XOISI550 

010111 

70070** 


70070V 



XO IS 1560 

0101 12 

211073 


LAC 

MV 


XOISI570 

010113 

350256 


TAO 

HVHOV 


X0ISI3B0 

OIOIIV 

S16V03 


A NO 

( 377 1 


XOISIS90 

010115 

051073 


OAC 

NV 


X01SI600 

0101 16 

7V1 200 


SNA 


/ IF ZERO 00 NOT IOSPLAY 

XO IS 1610 

0101 17 

6I01V7 


JNP 

DLISTH 


XO IS 1620 

010120 

207660 


LAC 

OISAOO 


X0ISI630 

010121 

7H000I 


CHA 



X0ISI6V0 

010122 

356315 


TAO 

i 1 1 


XO IS 1 850 

010123 

331073 


TAO 

NV 

'DISPLAY VERTICAL MARKER 

XOISI660 

01 012V 

7V5100 


SPAICLL 



XO IS 1670 

010125 

6I0IVS 


J HP 

0LIST7 

/ NO 

XOISI660 

010125 

650313 


650313 



XOISI890 

010127 

000000 

DXI 

0 


/ CALCULATE POSITION 

XO IS 1 700 

010130 

8VI002 


IACQ 



X01SI7IO 

010131 

5I63V0 


AND 

(17771 


X0ISI720 

010132 

350310 


TAO 

sx 


XOIS1730 

010133 

700506 


OXL 



XOISI7VO 

01013** 

516503 


A NO 

(7760001 


XOISI750 

0I0J35 

7V0200 


SZA 


/IS IT HI THIN RANOE 

XOISI760 

010136 

61 0 1 **5 


JMP 

0L1ST7 

/ NO 

XOISI770 

010137 

2 I 63 VO 


LAC 

(17771 


X0ISI780 

OIOIVO 

35650** 


TAO 

(-301 


XO IS 1790 

oioivi 

7006V6 


OYS 



XOISISOO 

010IV2 

7vO 1 00 


SNA 



XO 1 S 1 8 ! 0 

OIOIV3 

61 0 1 VO 


|MO 

wTTr 

--3 


XOIS1920 

0101**** 

610IV7 


JNP 

.♦3 


XO IS 1830 

010IV5 

207660 

DL1ST7 

LAC 

OISAOD 


X0ISI8V0 

0 1 0 1 **6 

051073 


OAC 

NV 


XDISI850 

OlOIV? 

211077 

OLISTM 

LAC 

HM 


XO 1 S | 960 

010150 

350255 


TAO 

NHNOV 


XOIS1870 

010151 

051077 


OAC 

NH 


XOIS1880 

010152 

7VI200 


SNA 


/DO NOT 01 SPLAY ZERO 

XO IS 1890 

010153 

610162 


JNP 

0LIST3 


XOISI900 

01013V 

1 1037V 


JHS 

OISPLY 

/THIS HILL SET THE Y POSITION 

XOISI9IO 

010155 

2I63V0 


LAC 

(17771 

/DISPLAY A HORIZONTAL LINE 

XOISI920 

010156 

35650V 


TAO 

1777750) 


XOISI930 

010157 

7005V6 


OXS 



X0ISI9V0 

010160 

7V0I00 


SNA 



XO IS 1950 

010161 

610156 


JNP 

.-3 


XO IS 1960 

01 0162 

760002 

01.1ST3 

LAH 

2 


XOIS1970 

019163 

700706 


700706 


/RESET INTENSITY 

XOISI980 

01016** 

21025V 


LAC 

HOVAOO 


X01SI990 

010165 

5VV367 


SAO 

SPEC ♦ 1 


XOIS2000 

010166 

7VI000 


SKP 



XOIS20I0 

010167 

17025V 


02H* 

HOVAOO 


X0IS2020 

010170 

2I0V07 


LAC 

01 SONS 

/AOORESS OF OAT A 

XOIS2030 

010171 

3V7660 


TAO 

OISAOO 

/FIRST CHANNEL TO BE OISPLAYEO 

XOIS20V0 
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OUITI 
010173 
01017* 
010(79 
010170 
010177 
010200 
010201 
010202 
010203 
0 I 020* 
010209 
016206 
010207 
010210 
01021 1 
010212 
010213 
01021* 
010219 
010210 
010217 
010220 
010221 
010222 
010223 
01 022 * 
010229 
010220 
010227 
010230 
010231 
010232 
010233 
01023* 
010239 
010236 
010237 
0102*0 
0102*1 
0102*2 
0102*3 
0102** 
0102*5 
0102*6 
0102*7 
010290 
010291 
010292 
010253 
01029* 
010299 
010296 
010297 
010260 
010261 
010262 
010263 


POP-9 

• 6 • 

P0P9/15 

110311 


JW 

210102 


LAC 

05031 1 


OAC 

210*10 


LAC 

7*1200 


SNA 

610202 


JNP 

3*7060 


TAO 

1 10331 


.PIS 

207061 

0UST2 

LAC 

7*0200 


SZA 

610216 


JHP 

760003 


LAM 

70070* 


70070* 

19031 1 


OZM 

150303 


OZM 

1 1031 3 


JUS 

2163*0 


LAC 

050303 


OAC 

1 10313 


JUS 

610220 


JHP 

230261 

OUST* 

LAC* 

090376 


OAC 

210306 

DLIST6 

LAC 

7*1200 


SNA 

609*32 


JHP 

390310 


TAO 

090310 


OAC 

7*1 100 


SPA 

610233 


JHP 

350301 


TAO 

751 100 


SPA I CL A 

605*32 


JHP 

610236 


J IP 

350061 

ROT 1 

TAO 

750100 


SHA1CLA 

609*32 


JHP 

050310 

R0T2 

OAC 

207660 


LAC 

390309 


TAO 

7*1100 


SPA 

610252 


JHP 

3503** 


TAO 

350307 


TAD 

7*0100 


SNA 

610292 


JHP 

207660 


LAC 

350305 


TAD 

0*7690 


OAC 

1 7025* 

ROT 3 

OZH* 

605*32 


JHP 

005*31 

HOVAOO 

RTHP 

oooooo 

NHHOV 

0 

000000 

HVHOV 

0 

oooooo 

LAST 

0 

777777 

ROT INC 

777777 

010263 

LOCATR 

ROTLST 

010262 

ROTLOC 

* 

6*0605 

ROTLST 

LLS*5 
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PAGE NO. 61 


OOATA 

SPREAD 

SPRCV 

/DISPLAY DATA 


OISTMO 

/OVER LAP 


OLISTe 

/NO 


OISAOO 

OOATA 

/YES 


SCALE 

/CHECK SCALE 


OUST* 

3 

SPRCV 

/NO LOO 

/SET INTENSITY 


X 

/OISPLY MAOKERS 


DHARK 
i 17771 

/LEFT SIOE 


X 

OMARK 

0LIST6 

LOCATR 

LOOLIN 

/RIOHT SIOE 


SPCON 

/IS CONTROL ZERO 


O'. 1ST 

/NO ROTATION 


SX 

SX 

/ROTATION IS UNOCR 
/LEFT OR RIOHT 

HAY 

ROT | 

/LEFT 


HOX 

/RIOHT 



/ NEEO ANOTHER OATA 

POINT 

OUST 

/ NO 


R0T2 

OX 

/YES 



/NEEO ANOTHER OATA 

POINT 

OUST 

SX 

/ NO 


OISAOO 

SPCONA 

/AT FRONT OF SPECTRUM 

ROT 3 
NOCU 

HRAHP 

/YES STOP ROTATION 
/AT ENO OF SPEC TRIM 


ROT 3 
OISAOO 

/YES STOP ROTATION 


SPCONA 

OISAOO 

HOVAOO 

OUST 

/GET NEM OATA POINT 



/32 COUNTS 


X0IS2093 

XO I 02060 

X0IS2070 

XOIE2O0O 

XOIS2090 

XOIS2IOO 

X0IS2I 10 

XOIS2120 

XOIS2I30 

XOIS2t*0 

XOIS2150 

X0IS2I60 

XL 1 521 70 

X01S2I60 

XOIS2190 

XO 1 52200 

X0IS2210 

X0IS2220 

X01S2230 

XOIS22*0 

XO I 02250 

X0IS2260 

X01S2270 

X0IS2200 

XOIS2290 

X0IS2300 

X0IS2310 

XOIS2320 

XOIS2330 

XOIS23*0 

XO 1 02350 

XO I 02360 

XO 1 02370 

XO 102300 

XOIS2390 

XO 1 52*00 

XOIS2*IO 

XOIS2*20 

X0IS2*30 

XDIS2**0 

XO I S2*50 

X01S2*60 

XOIS2*70 

XI) 1 02*90 

XO I 02*80 

XO 1 52500 

XOIS25IO 

XOIS2520 

XO I 02530 

X0IS29*0 

XO 1 02550 

X01S2560 

X0IS2570 

X0IS2560 

XO 1 52580 

XO! 52600 

XOIS2610 

XO I 5262C 
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01 0264 

640604 


LLS*4 


/64 COUNTS 

010265 

640603 


LLS*3 


/ 128 COUNTS 

010266 

648602 


LLS*2 


/2S6 COUNTS 

010267 

640601 


LLSM 


/512 COUNTS 

010270 

740000 


NOP 


/ io24 c&mn 

010271 

64050! 


LRS* 1 


/2948 COlMfS 

010272 

640502 


LRS*2 


/4096 COUNTS 

010273 

640503 


LRS*3 


/8S32 COUNTS 

01027*1 

640504 


LRS*4 


/ 16384 COUNTS 

010275 

640505 


LRS*5 


/ 3276® COUNTS 

010276 

640506 


LRS*6 


/655S6 COUNTS 

010277 

640507 


LRS*7 


/ 1*1 §72 COUNTS 

010300 

640510 


LRS*!0 


/ 282. 144 COUNTS 

010301 

000000 

MOX 

0 



010302 

000000 

SPREAO 

0 



010303 

000000 

X 

0 



010304 

000000 

SOOT 

0 



010305 

000000 

SPOON A 

0 



010306 

000000 

SPOON 

0 



010307 

777400 

NRAMP 

-400 



010310 

000000 

sx 

0 



01031 1 

000000 

SPREV 

0 



010312 

000000 

80CTN 

0 





/Ol SPLAY 

POINTS AT 

POWERS or 

19 

010313 

000000 

OMARK 

0 



010314 

750000 


CLA 



010315 

110374 


jn s 

01SPLY 


010316 

216505 


LAC 

« 12 * 

/10 

010317 

1 10374 


JHS 

D1SPLY 


010320 

216502 


LAC 

1144) 

/100 

010321 

110374 


JMS 

OISPLY 


010322 

215506 


LAC 

( 1750 J 

/ 1000 

010323 

1 10374 


JMS 

OISPLY 


010324 

216507 


LAO 

(234201 

/1 0000 

010325 

1 10374 


JMS 

OISPLY 


010326 

216510 


LAC 

( 303240 > 

/ 100.000 

010327 

1 10374 


JMS 

OISPLY 


010330 

630313 


JHP* 

OMARK 




/DISPLAY 

DATA 



010331 

000000 

OOATA 

6 



010332 

050373 


DAO 

OPT 

/STORE AOORESS UP OATA 

010333 

207657 


LAC 

MNOCO 


010334 

050372 


DAO 

CCNT 

/POR COUNTING NUMBER OP CHANNELS 

010335 

744002 


STL 



010336 

740020 


RAR 



010337 

050304 


OAC 

BOOT 


010340 

050371 


OAC 

BOOTC 

/COUNT POR BRIGHT DOT POSITION 

010341 

210310 


LAC 

SX 

/LOAD X WITH STARTING INCREMENT 

010.142 

050127 


OAC 

0X1 


01 6343 

670313 


670313 


/ 01 V JOE BY 13 BITS 

010344 

000400 

NOCO 

400 


/ TO GET A DISPLACEMENT. 

010345 

641002 


LACO 



010346 

516340 


AND 

( 1 777 i 


010347 

050303 


OAC 

X 


010350 

230373 

002 

LAC* 

OPT 

/GET Y VALUE 

010351 

740000 


NOP 


/MAY BE SZA POR ZERO DEPRESSION 

010352 

116374 


JMS 

OISPLY 

/Ol SPLAY 

010353 

.'50371 


1SZ 

BOOTC 

/IS THIS ONE THE BRIGHT OOT 


XD1S263G 
X01S2640 
XO I 52BS0 
XD 1 52660 
X01S2670 
XOIS2690 
XO I 52690 
XO I 52700 
XOIS27IO 
XO 1 52720 
X0IS2730 
XO 1 52740 
XO 1 52750 
XO I 52760 
X0IS2770 
XOIS27BO 
XO 1 52790 
XO 152600 
XO 1 528 1 0 
XO 152820 
X0IS283C 
XO i 528 HO 
XO I 52850 
XO I 52860 
XOIS2870 
XO I 52880 
XOIS2890 
XO 1 52900 
XO 1 529 1 0 
X0IS292Q 
XO 152930 
XOIS2940 
XOIS2950 
XOIS2960 
XO I 52970 
XO 1 52980 
X0IS2990 
XDIS3000 
XO 1 530 10 
XO I 53020 
XDIS3030 
XDIS3040 
XO 1 53050 
XOIS3060 
XOIS3070 
XO I 53080 
XO 1 53090 
XOIS3IOO 
XOIS31IO 
X0IS3120 
XO I S3 1 30 
XOIS3IHO 
XOIS3I50 
XD I S3 160 
X0IS3I70 
XO I S3 180 
XO I S3 I 90 
X0SS3200 
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01035*4 610363 

010355 777750 

010356 050312 

010357 210303 

010360 7005*46 

010361 *450312 

010362 610357 

010363 *450373 

0I036*« 210127 

010365 356315 

010366 *<50372 

010367 6103*42 

010370 630331 

010371 000000 

010372 000000 

010373 000000 

0 1 037*4 000000 

010375 7«>*<000 

010376 110627 

010377 110711 

010*400 356511 

010*401 3503 1 I 

010*402 700606 

010H03 210303 

010*40*4 7*40100 

010*405 7005H6 

010*406 63037*4 

010*407 037000 

010*430 000000 

010*411 000000 

010*412 200051 

010*413 7*40200 

010*41*4 610*42*: 

0 1 0*415 2 36*425 

010*416 7*40001 

010*417 156315 

0I0*<20 376351 

010*421 050556 

010*c22 750000 

0 1 0*423 6 30*4 1 I 

010**2*4 236*472 

010*425 7*40001 

0 1 0*426 356315 

010*427 376*471 

010*430 610*421 

010*431 000000 

01 0*432 21030*4 

010*433 7*40001 

010*43*4 3*47660 

0 1 0*435 050556 

0 10*436 20005*4 

010*437 750200 

010***<0 **50556 

010*4*41 630*431 


4T -i 


... PQP9/I5 ASSEMBLY LISTING 


• • • 


PAGE NO. 83 


8D0TC 

CCNT 

OPT 

/OISPLY 

OISPLY 


JMP 

001 

/NO 

LAM 

-30 


OAC 

SOCTN 

/DRAW A SHORT VERTICAL 

LAC 

OXS 

X 

/LINE ABOVE BRIGHT OOT 

ISZ 

80CTN 


JMP 

.-3 


ISZ 

OPT 


LAC 

OXI 

/ ADO OELTA X 

TAO 

1 1 l 


ISZ 

CCNT 

/AT END 

JMP 

N0C0-2 

/ NO 

JMP* 

OOATA 



/DATA POINTER 


OISPLY 


ROUTINE FOR 3»*H SCOPE 
0 

CLL 

JMS LOGAR 

JMS STRP06 / SKIP IF 

TAO (10001 

TAU SPREV 

OYL 

LAC X 

SHA 

OKS 

UMP» OISPLY 

3'»000 
0 

'INE TO CALCULATE LIVE TIME LEFT 
0 

LAC BKOFLG 

SZA 

JMP . *10 

LAC* (LIVETMI 

CMA 

TAO (II 

T AD* (LIVEPHI 

OAC NGLOU 

CLA 

JMP* CL TL 

LAC* (LlV£TM*HOO> 

CMA 

TAO ( 1 l 

TAO* <L I VEPK***00) 

JMP . -7 


IF NOT IN STRIP. 


.♦10 

(LIVETMI 

(II 

(LIVEPHI 

NGLOU 

CL TL 

(LIV£TM*M00I 


TAO ( 1 l 

TAO* (LIVEPH«400> 

JMP . -7 

INE TO PICK UP BRIGHT OOT POSITION 

0 

LAC BOOT 

CMA 

TAO OISAOO 

OAC NGLOU 


LAC FG5050 

SZA l CLA / 5050? 

ISZ NGLOU / YES 

JMP* CBOP 

/SUBROUTINE TO PICK UP BRIGHT OOT CONTENTS 


XOIS32IO 

XDIS3220 

X0IS3E30 

XO I S32**0 

XOI S3250 

X0IS3260 

X0IS3270 

X0IS3280 

X0IS3290 

XOIS3300 

XOIS33IO 

XOIS3320 

X0IS3330 

X0IS33*<0 

X0IS3350 

XOIS3360 

XOIS3370 

XOIS33BO 

XOIS3390 

XOIS3**00 

X0IS3VI0 

XOIS3H20 

XO I S3**30 

XOIS3«4*40 

XOIS3SSO 

XD 1 53*460 

X0IS3**70 

XO IS 3*480 

XO IS 3H90 

XOIS3590 

X0IS35I0 

XOIS3520 

XOIS3530 

X0IS35**0 

XOIS355C 

X0IS3560 

XOIS3570 

X0IS3580 

XOIS3590 

X0IS3600 

XOIS3SI 0 

X0IS3S20 

XOIS3630 

XOI S36H0 

XOIS3650 

XOIS3660 

XOIS3670 

X0IS36B0 

X0IS3690 

XOIS3700 

X0IS37J 0 

XOIS3720 

X0IS3730 

X0IS37H0 

X0IS3750 

XOIS3760 

XOIS3770 

XOIS3780 
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010442 000000 
010443 110431 
010444 210936 
010443 330407 
010446 05043 t 
01044? 230431 
010490 090936 
0 lOtS I 790000 
0I0HS2 630tt2 


010HS3 000000 
oiotst 230t6t 
OlOtSS 0S0SS6 
0 1 0tS6 210463 
010457 751200 
010460 630453 
010461 230463 
010462 630453 
010463 000000 
010464 000000 
010465 110453 

010466 000000 
010467 744000 
010470 150356 
010471 200051 
010472 740200 
010473 610512 
010474 236431 
010475 741200 
010476 610510 
010477 050502 
010500 236425 
01050! 650323 
010502 000000 
010503 641002 
010504 744000 
0 1 0505 653 1 22 
010506 000144 
010507 030556 
0IQ550 750000 
01051 I 630466 
010512 236512 
010513 741200 
010514 610510 
010515 050502 
010516 236472 
010517 S'.OSOl 

0.0520 000000 
010521 210552 
0 1 0322 700606 
010523 777740 
0 1 0524 050564 
010525 210550 
010526 700546 
010527 356315 
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010530 450564 

010531 610526 

010532 630520 

010533 000000 

010534 210550 

010535 700506 

010536 777744 

010537 050564 

010540 210552 

010541 700646 

01 0542 356315 

01 0543 450564 

0 1 0544 6 1 054 1 

010545 630533 

010546 000500 

010547 000000 

010550 000000 

010551 007700 

010552 0C0000 

010553 000034 

010554 000100 

0 1 0555 000020 

010556 000000 

010557 000000 

0 i 0560 000000 

010561 000000 

010562 000000 

010563 000000 

010564 000000 

010565 000000 

0 1 0S66 0 1 0567 

010567 555009 

030570 022000 

010571 741000 

0 1 0572 7 1 1 000 

010573 226000 

010574 714900 

010575 754000 

010576 111000 

010577 755000 

910600 315000 

010601 0IC60I 

010602 000000 

_ 010603 000000 

.f~ 010604 000000 

010605 CO 0000 

010606 GOOOOO 

j 10607 000000 

010610 000000 

010611 000000 

010612 000000 

010613 000000 

010614 000000 

010615 000000 

010616 000000 
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NGOVL 


IS2 

NGC2 

JHP 

.-3 

JMP* 

NGOHL 

riCAt 

LINE 

0 


LAC 

TX 

OXL 


LAW 

-34 

OAC 

NGC2 

LAC 

TY 

OYS 


TAO 

( I ) 

IS2 

NGC 2 

J HP 

.-3 

JMP* 

NGOVL 


/NUMBER GENERATOR VARIABLES 


OX 

NX 

TX 

NY 

TY 

NOY 

NLS 

NOX 

NGLOW 

NGHIGH 

NGOIG 

NGTEM 

NGC 

NGC1 

NGC2 

ocoor 

NGCOOA 


500 

0 

0 

7700 

0 

34 

100 

20 

0 

0 

0 

0 

0 

0 

0 

0 


555000 
022000 
74100C 
711000 
226000 
714000 
754000 
I 1 1000 
755000 
315000 

/NUMBER GENERATOR LIST 

NGLIST 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

NGCTS 0 


/SET X 


/MOVE Y TO ORAM 
/VERTICAL LINE 


/ X0RIG1N 
/SEMI TEMP X 
/ TEHPX 
/ Y ORIGIN 
/TEMP Y 

/O! STANCE BETWEEN HORIZONTAL LINES 
/Of STANCE BETWEEN LETTERS 

/oistance between vertical lines 

/LOW 

/HIGH 

/OIGIT 

/TEMP 

/COUNTER 

/COUNTER 

/COUNTER 

/GENERATION CODE 

/O 
/I 
/2 
/3 
/ 4 
/5 
/3 
n 
/8 
/9 


X0IS4370 

XOIS43BO 

XOIS4390 

XOIS4400 

(OIS44I0 

XDIS4420 

X0IS4430 

XDIS4440 

X0IS4450 

XO I 54460 

X0IS4470 

XOIS4480 

XO I Sh490 

XOIS4500 

X0IS45I0 

X0IS452C 

X0IS4530 

XOIS4S40 

XOIS4550 

X01S4560 

XOIS4570 

X0IS45C0 

XOIS4590 

X0IS4600 

XO I S46 ! 0 

XDIS4620 

X0IS4630 

X0IS4640 

X01S4650 

XOIS4660 

X0IS4670 

X0IS4680 

XOIS4690 

X0IS4700 

XOIS47IO 

X0IS4720 

XDIS4730 

XDIS4740 

XDIS4750 

XOIS4760 

XOIS4770 

XOIS470O 

XDIS4790 

X01S4800 

X0IS48I0 

X0IS4020 

X0IS4830 

X0IS4840 

X0IS4850 

XOIS4860 

XO I S487( 

X0IS4880 

X0IS4890 

XOIS4900 

XDI349I0 

XOIS4920 

XOIS4930 

XOIS4940 
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010617 

000000 

LOOSUB 0 

/STORAGE FOR -LOG L 



XDIS4950 

jr 



/THE FOLLOHING ARE Y VALUES FOR SCOPE 



XO 154960 

j' 

010620 

0(0621 

ACECM . ♦ I 




XOIS4970 


010621 

000000 

0 

/LOG XI < 



XO 1 54960 


010622 

77750H 

-274 

/LOG X10< 



XD ! 54990 

? - 

010623 

777207 

-571 

/LOG XIOO< 



XDIS5000 

i 

0 1 0624 

776720 

-1060 

/LOG XI ,0Q0< 



XDIS50I0 

r- 

010625 

776415 

-1363 

/LOG XIO.CQO< 



XD1S5020 


010626 

776120 

-1660 

/LOG XIOO.OOO< 



XDIS5030 


/ XD I S50*0 
/SUBROUTINE TO CONVERT NUMBER TO A XDIS5050 
/LOGARITHM FOR SEMI -LOG Of SPLAY XQIS5060 


/ENTER WITH NUMBER IN AC. LOG HILL XOIS5070 

/BE RETURNED IN THE AC. XOIS5080 


/ 


XOIS5090 


0 1 0627 

000000 

LOGAR 

0 




XO 1 55 1 00 

010630 

745200 


SNAICLL 




X0IS51 10 

010631 

630627 


JMP* 

LOGAR 



XOIS5S20 

010632 

740100 


SHA 


/VALUES OVER 131072 NEED 

SPECIAL 

HANDLING XO 1 55 fi 30 

010633 

610645 


JMP 

LOGI 

/LESS THAN 131072 


XO 1 55 1 40 

0 1 063V 

11071 K 


JMS 

STRP06 

/ SKIP IF NOT IN STRIP. 


XO I 55 1 30 

010635 

610642 


JMP 

.♦5 



XC1S5160 

010636 

744020 


RCR 


/ GREATER THAN 131072. 


XOIS5I70 

010637 

051022 


DAC 

MANT IS 



X01S5I9 0 

0106*0 

777756 


LAM 

-22 



XDIS5I90 

0 1 06* 1 

610651 


JMP 

L0G2 



XDIS5200 

0106*2 

740001 


CMA 




XDIS52I0 

0106*3 

356315 


TAO 

( 1 > 



X0IS5220 

0106** 

455567 


ISZ 

MFLG 

/ SET NEG. FLAG 


X0IS523D 

0 1 06*5 

650421 

LOGI 

650421 


/ CLQ NORM-23 


X0IS524D 

0106*6 

051022 


DAC 

MANT 1 S 

/SAVE MANT ISA 


XOIS5250 

0106*7 

777700 


LAM 

-100 



XOIS5260 

010650 

640001 


OSC 


/ OR SHIFT COUNT 


X0IS5270 

010651 

744001 

LOG2 

CMAICLL 




XD1S5280 

010652 

653105 


653105 


/ MUL 5 


XOIS5290 

010653 

707070 


707070 




XOIS5300 

01065* 

051023 


OAC 

LOG 

/STORE OECAOE 


X0IS5310 

010655 

2 1 1 022 


LAC 

MANTIS 

/USE TABLE LOOK UP TO 


X0IS5320 

0 1 0656 

742010 


RTL 


/ DETERMINE MANT ISA 


XOIS5330 

010657 

853606 


653606 


/ LMO CLA LLS*6 


XD I 55340 

010660 

350721 


TAO 

ACOETA 



XDIS5350 

010661 

051022 


OAC 

MANTIS 



XDIS5360 

0 1 0662 

21 1023 


LAC 

LOG 



XOIS5370 

010663 

371 022 


TAO* 

MANTIS 



XOIS5380 

0 1 066* 

660507 


LRSS 

7 



XDIS5390 

0 1 0665 

350617 


TAO 

LOGSUB 

/LOG ' L ' (SEE OECAOE 1 


XD I $5400 

010666 

745100 


SPA1CLL 


/ SET POINTS BELCH RANGE 

TO 0. 

XDIS54I0 

010667 

/50000 


CLA 




X01S5420 

0 1 0670 

110711 


JMS 

STRP06 



XDIS5430 

010671 

610701 


JMP 

.♦10 



XDIS541 0 

010672 

742010 


RTL 


/ MULT BY 5 


XO 155450 

0 1 0673 

350720 


TAO 

ACOETA- 1 



X0IS5460 

0 1 067* 

650313 


650315 


/ FRO I V 15 


XDIS5470 

010675 

050000 

FACT 

50000 




X01S5480 

010676 

641002 


LACQ 




XOIS5490 

01 0677 

516460 


ANO 

C 17777) 



XDIS5500 

010730 

741000 


SKP 




XDIS55I0 

010701 

740020 


RAR 




XOIS5520 
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010702 

051022 

010703 

356503 

010704 

751 100 

010705 

21 1022 

010706 

1 10711 

010707 

615555 

010710 

630627 

01 071 1 

000000 

019712 

050720 

010713 

200053 

010714 

7452C0 

010715 

45071 1 

010716 

210720 

010717 

63071 1 

010720 

000000 

01072! 

010722 

010722 

000000 

010723 

000242 

010724 

000503 

010725 

000741 

010726 

001 174 

010727 

001426 

010730 

00! 655 

010731 

002102 

0 1 0732 

002325 

010733 

002546 

010734 

002765 

010735 

003202 

010736 

003415 

010737 

003626 

010740 

004036 

010741 

004244 

010742 

004450 

010743 

004652 

010744 

005053 

010745 

005252 

010746 

005450 

010747 

005645 

010750 

006037 

010751 

00623) 

010752 

006421 

010753 

0066)0 

010754 

006775 

010755 

007161 

0 1 0756 

007344 

01C757 

007526 

010760 

007706 

010761 

010065 

010762 

010243 

010763 

0 1 0420 

010764 

010574 

010765 

010746 

010766 

011)20 

010767 

01 1270 

010770 

01 1440 

010771 

0! 1606 

010772 

01 1754 

010773 

01 21 20 


STRP06 


ACOETA 
COE TAB 
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OAC MANTIS 

SPA l CUA " M °°‘ AMVE ,HE RAN0E T0 0 ■ -«»•»> *o's,”o 

LAC MANTIS X0IS5550 

XDIS5560 


UMS STRP06 / SKIP IF NOT 


JMP 

JMP* 

0 

S3 

LOJAR 



OAC 

LAC 

.♦6 

STRPFG 

/ 

SAVE AC 

SNAICLL 


/ 

STRIP? 

1SZ 

STRP06 

/ 

NO 

LAC 

.♦2 

/ 

RESTORE > 

JMP* 

0 

STRP06 



COE TAB 


/table for 


0 

242 
503 
741 
1 174 
'426 
1655 
2102 
2325 
2546 
2765 
3202 
3415 
3626 
4036 
4244 
4450 
4652 
5053 
5252 
5450 
5645 
6037 
6231 
6421 
66*0 
6775 
7161 
7344 
7526 
7706 
1 0065 
10243 
10420 
10574 
10746 
11120 
I 1270 
I 1440 
I 1806 
11754 
121 20 


N STRIP. XO 1 55570 

XOIS550O 

XOIS5590 

XDIS5600 

X0IS56I0 

XOIS5620 

XOIS5630 

X0IS5640 

X0IS565C 

XOIS5660 

XD1S5670 

9 COEF1C1ENTS X0IS5660 

XDIS5690 

X0IS5700 

XOIS57JO 

XOIS5720 

XO I £5730 

XOIS5740 

XOIS5750 

XO i 55760 

XOIS5770 

X01S5780 

X0IS5790 

X0IS5800 

X01S58I0 

X01S5820 

XOIS5830 

X0IS5840 

XDIS5850 

XOIS5860 

X0IS587Q 

X0IS588Q 

X0IS5890 

/0IS5900 

XOIS59IO 

X0IS5920 

X0IS5930 

X0IS5940 

X0IS5950 

X01S5960 

XDIS5970 

XDIS5980 

XDIS5990 

XOIS6000 

XDIS60I0 

XOIS6020 

XO S $603n 

XDIS604C 

XDIS6050 

XDIS6060 

XDIS6070 

XOIS6080 

X01S6090 

XDIS6I00 
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01077** 

01226H 


12264 


010775 

012427 


12427 


010776 

012570 


12570 


010777 

01 273 1 


1273! 


011000 

013071 


13071 


01 1001 

013230 


13230 


011002 

013366 


13366 


01 1003 

013524 


13524 


0! I00H 

013660 


13660 


011005 

omoiM 


3 40 1 4 


0 1 1 006 

014147 


14147 


OS 1007 

Q143QI 


14301 


01 1010 

C14433 


14433 


01 101 I 

01 4563 


14563 


01 1012 

014713 


14713 


011013 

015042 


15042 


01 I01<* 

015171 


1517! 


011015 

015317 


15317 


01 1016 

015444 


15444 


011017 

015570 


15570 


0 1 1 020 

015714 


*5714 


011021 

016037 


16037 


011022 

000000 

MANTIS 

0 


011023 

OOOCOO 

LOG 

0 


01 102«* 

150617 

LOGS 

DZM 

LOGSUB 

0 1 1 025 

604775 


JMP 

PNOLD+5 

0 1 1026 

1 10627 

JLOGAR 

JMS 

LOGAR 

011027 

216315 

LINEAR 

LAC 

( 1 ) 

01 1030 

047661 


OAC 

SCALE 

01 1031 

203323 


la: 

CNOP 

011032 

050376 


DAC 

LOGLIN 

O' 1033 

606257 


JMP 

RETC 

0I103H 

l I24bl 

N I NOOU 

JMS 

OECIN 

011035 

340060 


TAO 

HSTART 

011036 

74 1 J 00 


SPA 


011037 

606746 


JMP 

QMARK 

01 1 0M0 

1 16064 


JMS 

INCHAN 

01 1 OH 1 

356337 


TAD 

(-1) 

01 1042 

047660 


OAC 

CISAOO 

01 1043 

1 12461 


JMS 

OECIN 

01 1044 

340060 


TAO 

WSTART 

011045 

C534I5 


OAC 

BC*2 

011046 

207660 


LAC 

OISAOO 

01 1047 

740001 


CMA 


01 1050 

1 16064 


JMS 

INCHAN 

011051 

741000 


SKP 


011052 

356315 


TAO 

( 1 ) 

011053 

353415 


TAO 

8C*2 

01 1054 

741300 


SPA! SNA 


o; 1055 

606746 


JMP 

OMARK 

01 1056 

356402 


TAO 

( -377 ) 

011057 

740300 


SMA ( SZ A 


011060 

606740 


JMP 

OMARK 

011061 

356333 


TAO 

(4Q0) 

011062 

050344 


OAC 

NOCO 

01 1053 

101772 


JMS 

CIA 

0 1 1 064 

047657 


OAC 

MNOCO 

011065 

606257 


JMP 

RETC 


XO I 56 1 JO 
XOIS6120 
XO 1 56 I 30 
XO I S6 I 4Q 
XDIS6150 
X0IS6I60 
X0IS6170 
XOIS6I80 
XDIS6190 
XOIS6200 
XDIS62I0 
XDIS6220 
X0IS623G 
X01S6240 
XO \ S625G 
X0IS62G0 
XOIS6270 
XOIS6280 
XOIS6290 
XOIS6300 
XO l S63 \ 0 
X0IS6320 
X0IS6330 
XD1S6340 

/ INITIALIZE LOG L TO 0. XO I S635C 

X0IS6360 

XOIS6370 

/COMMAND TO SET SCALE TO LINEAR XDIS6380 

XOJS6390 
XOIS6400 
XDJS6410 
XO I S6420 
XOIS6430 
X0IS6440 
X0IS645Q 
XDIS6460 


/ 5050 ? XO I S6470 

/ YES XDIS640G 

/STORE ADDING FACTOR X01S649G 

/LAST XOIS6500 

X0IS6510 

X0IS6520 

XOIS6530 

/CALCULATE * OF POINTS TO OISPLAY. XOIS6540 

/ 5050? XD1S6550 

/ res xoiS6560 


XDIS6570 

XDIS658Q 

XOIS6590 

XOIS66CO 

XDIS6610 

X0IS662D 

XDIS6630 

XOIS6640 

/STORE THE NUMBER XOIS6650 

X0IS6654 

X0IS6656 

/RETURN X0IS6660 
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/INPUT X POSITION FOP VERTICAL HANKER 
01 1006 112*61 VHARK JHS DEC IN 

011067 11606* JHS INCHAN / 50507 

01 1070 396337 TAO i-ll / YES 

01 1071 OSS 073 OAC MV 

011072 806297 JHP RETC 

Oil 073 000000 HV 0 /VERTICAL MARKER 

/INPUT COUNTS FOR HORIZONTAL MARKER 
Oil 07* 112*61 HHARK JHS DEC IN 

0*1079 091077 OAC HH 

011076 606257 JHP RETC 

011077 OOOOQO HH 0 / HARK HORIZONTAL 

/HTBUF CUR POPS 1968 

/ROUTINE TO HANDLE DOUBLE BUFFERED OUTPUT ON MAGNETIC TAPE 
/ TERBUF IS USED TO CONTROL BUFFER TERMINATIONS. IF TERBUF «0 
/THE AC IS STOPEO IN A BUFFER. WHEN THE SUFFER IS FULL IT IS 
/OUHPEO AND STORAOE BEGINS IN A SEC9N0 BUFFER. IF TERBUF « I . 
/THE BUFFER CURRENTLY BEING USED FOR STORAOE IS ZERO FILLEO ANO 
/OUHPEO. ALL POINTERS ARE THEN INITIALIZED ANO 
/TERBUF IS SET EQUAL TO ZERO. 


01 1 100 

000000 

HTBUF 

9 



Oil 101 

051366 


OAC 

MT8TS 

/STORE DATA IN TEMPORARY LOCATION 

91 1 102 

211370 


LAC 

TERBUF 

/TERMINATE BUFFER 

Ol 1 103 

7V 1200 


SNA 



01 1 10* 

811136 


JHP 

HTBUF 3 

/NO 

011109 

I SI 370 


OZH 

TERBUF 

/CLEAR TERMINATOR 

011106 

21 1271 


LAC 

HTBPI 

/YES. DUMP PARTIALLY FILLEO BUFFER 

01 1 107 

551267 


SAD 

HTBENI 

/BUFFER I OR 8UFFER 2 

OIIIIO 

61 112V 


JHP 

HTBUF I 


Ollltl 

991265 


SAO 

HTBOI 


01 1 1 12 

631100 


JHP* 

HTBUF 


011113 

V5127I 


ISZ 

HTBPI 

/ZERO FILL BUFFER 1 

0 1 1 1 1 * 

1 71271 


OZH* 

HTBPI 


011115 

21 1271 


LAC 

HTBPI 


011116 

551267 


SAO 

HTBENI 


01 1 1 17 

7*1000 


SKP 



01 1120 

61 1 1 13 


JHP 

.-5 


Oil !2I 

211265 


LAC 

HTBOI 

/OUMP BUFFER 1 

.1122 

111165 


JHS 

HTUT 


011123 

631100 


JHi>* 

HTBUF 


9IU2* 

211272 

HTBUF 1 

LAC 

MT8P2 


011129 

551266 


SAO 

HTB02 


011126 

631100 


JHP* 

HTBUF 


011127 

*51272 


ISZ 

HTBP2 

/ZERO FILL BUFFER 2 

011130 

171272 


OZH* 

HTBP2 


Oil 1 31 

21 1272 


LAC 

HTBP2 


01 1132 

551270 


SAO 

HT6EN2 


011133 

7VIQ00 


SKP 



Oi i 13V 

61 1 127 


JHP 

.-5 


Oil 139 

611 197 


JHP 

MTBUF3 


011136 

21 1271 

HTBUF 3 

LAC 

HTBPI 


011137 

551267 


SAO 

HTBENI 


OIIIOQ 

611150 


JHP 

HTBUF* 

/YES-GO TO BUFFER TWO 

0111*1 

*51271 


ISZ 

HTBPI 

/NO-STORE 

0111*2 

211366 


LAC 

HTBTS 


0111*3 

071271 


OAC* 

HTBPI 


01 1 1** 

2! 1271 


LAC 

HTBPI 

/IS BUFFER FULL NOU 

oi i ms 

551267 


SAO 

HTBENI 



XOJS6670 

XOIS6680 

XOIS6690 

X0IS6700 

XDIS67I0 

X01S6720 

XOIS6730 

XD I S67*0 

XOlS6750 

XOIS6760 

XOIS6770 

XOIS6780 

XMAOOOOO 

XMAOOOIO 

XMA00020 

XMAG0030 

XMAGOOVO 

XMA00050 

XMAG0060 

XMA0007C 

XHA00080 

XHA0009G 

XMAGOIOO 

XMAGOI 10 

XMAG0I20 

XMAOO l 30 

XMAGOI VO 

XMAOO 1 50 

XMAGOI 60 

XMAOO 170 

XMAOO 1 80 

XMAOO I 90 

XMAG020C 

XHA602 I 0 

XMAG0220 

XMA00230 

XMA002VO 

XMA00250 

XMA00260 

XMAG0270 

XMAG0280 

XMAG0290 

XMAG0300 

XMAG03 ' 0 

XMA00320 

XMAG0330 

XMAG03V0 

XMAG0350 

XMAG0360 

XMA00370 

XMAG0380 

XMAG03B0 

XMAQOVOO 

XMAOO* 10 

XMAO0V20 

XMAG0V30 

XHAO0**0 

XMAO0V50 
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011146 

6i i iat 


JMP 

MT8UF1-3 

/ YES 

0 1 1 147 

631 100 


JMP* 

MT8UF 

/NO RETURN 

Oil ISO 

*♦51872 

MT8UF4 

ISZ 

MT8P2 

/STORE IN BUFFER 

Oil 151 

211366 


LAC 

MT8TS 


0IIIS2 

071272 


OAC • 

M?B n 2 


Oil IS3 

21 1272 


LAC 

MTBP2 

/IS BUFFER TWO 

01 1 154 

551270 


SAO 

MTBEN2 

/FULL NOW 

01 1155 

7m 000 


SKP 


/YES 

01 1 158 

631 100 


JMP* 

MT8UP 

/NO-RETURN 

01 1157 

21 1266 

MT8UF5 

LAC 

MT802 

/INITIATE WRITING BUFFER 

01 1 160 

051272 


OAC 

MTBP2 


01 1 161 

111165 


JMS 

MTWT 

/TWO ON TAPE 

01 1 162 

21 1265 


LAC 

MTB01 

/RESET BUFFER ONE 

01 1 163 

051271 


OAC 

MT8P1 

/POINTER 

01 1 164 

631100 


JMP* 

MT8UF 




/CMR POP- 

9 JANUARY 

1968 




/R0UT1NE 

TO WRITE 

ONE RECORO 

ON 



/MAGNETIC 

TAPE IN 

PRESENT POSITION 



/OF TAPE. 






/ENTER Ml TH ORIGIN 

OF RECORO 

MINUS 



/ONE IN THE AC. 





/ USES MCRT TO ASSURE UNIT READY. 

01 1 165 

000000 

MTWT 

0 



Oil 166 

707321 


MTCR 


/IS CONTROL REAOY 

01 1 167 

111351 


JMS 

MCRT 


01 1 170 

0*40033 


DAC 

33 

/SET CURRENT AOORESS 

01 1 171 

777M00 


LAM 

-MOO 


01 1 172 

0M0032 


OAC 

32 


011173 

216513 


LAC 

( 0MM500 ) 

/COWHAND TO WRITE NORMAL MODE 

011174 

1 1 1 27M 


JMS 

MTCOM 


011175 

MSI 373 


IS2 

MTRCCT 

/AOO ONE TO RECORO COUNTER 

011176 

621165 


JMP* 

MTWT 




/ROUTINE 

TO SERVICE INTERRUPT FROM 



/MAGTAPE 

UNIT 



01 1177 

707352 

MTSEV 

MTRS 



011200 

051273 


OAC 

MTSTAT 


01 1201 

7M0100 


SMA 

/ERROR? 


01 1202 

61 12M2 


JMP 

MTSEV! 

/NO 

011203 

5165IM 


AND 

(3776001 

/MAKE OUT ALL BUT ERROR BITS 

01 1204 

556MM7 


SAO 

( 100000) 

/80T IS OK AFTER REWIND 

011205 

61 12*42 


JMP 

MTSEV 1 


01 1206 

556*45*4 


SAO 

(0100001 

/EOF IS OK WHEN WlRTTING 

011207 

61 12M2 


JMP 

MTSEV 1 


01 1210 

556375 


SAO 

( IMOOQO) 


01 121 1 

61 !2*42 


JMP 

MTSEV) 

/ ALREADY AT SOT 

01 1212 

5565 1 5 


SAO 

( 120000) 


011213 

6 ! 1 2M2 


JMP 

MTSEV 1 


01 1214 

5565 1 6 


SAD 

(011000) 

/ EOF AND 0AO PE'.. LENGTH 

01 '215 

61 12*42 


JMP 

MTSEV I 


Jl 1216 

556517 


SAO 

(010200) 


011217 

7*4 1 000 


SKP 



01 1220 

61 122*4 


JMP 

. ♦M 


01 1221 

707312 


707312 


/ MTRC 

01 1222 

556520 


SAO 

(MM6500) 

/ BAD TAPE ALRIGHT IF SPACING 

01 1223 

61 12M2 


JMP 

MTSEV! 


011224 

107077 


JMS 

PR ! OF 


01 1225 

315252 


315252 

/ *M 


011226 

3073C1 


307301 

/AG 



XMAG0460 

XMAG0470 

XMAG0480 

XMAG0490 

XMAG0500 

XMAG05I 0 

XMAG052Q 

XMAG0530 

XMA00540 

XMAG0550 

XMAG0560 

XMAG0570 

XMAG0590 

XMAG0590 

XMAG0600 

XMAG061 0 

XMAG0620 

XMAG0G30 

XMAG0640 

XMAG0650 

XMAG0660 

XMAG0670 

XMAG0680 

XMAG069G 

XMAG0700 

XMAG07 I 0 

XMAG0720 

XMAG0730 

XMAG0740 

XMAG0750 

XMAG0760 

XMAG0770 

XMAG0780 

XMAG0790 

XMAG0800 

XMAG08I0 

XMAG0620 

XMAG0830 

XMAGO04O 

XMAG0850 

XMAG0860 

XMAG0870 

XMAG0880 

XMAGG890 

XMAG0900 

XMAG09 I 0 

XMAG0920 

XMAG0930 

XMAG0940 

XMAG0950 

XMA00960 

XMAG0970 

XMAG0980 

XMAG0990 

XMAGI 000 

XMAG 1010 

XMAGI 020 

XMAG I 030 
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011227 

3052*0 


3052*0 

/£ 


XMAG 1040 

011230 

322322 


322322 

/RR 


XMAG1050 

011231 

322317 


322317 

/OR 


XMAG 1060 

01 1232 

6*0252 


6*0252 

/* 


v .MAG1070 

01 1233 

21 1273 


LAC 

MTS T AT 


XMAG 1 080 

011234 

051376 


OAC 

RUt G 


XMAGI090 

011235 

106526 


JMS 

OCTOUT 


XMAG 1 100 

011236 

107077 


JHS 

PR 1 OF 


XMAG 1 1 10 

011237 

6*02*0 


6*02*0 


/CRLF 

XMAG! 1 20 

01 1 240 

707322 


MTAF 



XMAGI 1 30 

01 1241 

507*36 


JMP 

RET 


XMAGI 140 

01 1242 

707322 

MTSEVl 

MTAF 



XMAGI 150 

01 1243 

15126* 


DZM 

MF 


XMAGI 160 

01 1244 

21 1261 


LAC 

MMAIT 


XMAGI 170 

01 1245 

15126 1 


OZM 

MMA 1 T 


XMAGI 1 80 

011246 

7*1200 


SNA 


/IF WE HERE NOT WAITING THEN 

XMAGI 190 

01 1247 

607*36 


JMP 

RET 

/RETURN 

XMAG 1 200 

011250 

15131 1 


OZM 

MTC2 


XMAG 12 10 

01 1251 

707321 


MTCR 


/WAIT FOR CONTROL REAOY 

XMAG 1220 

01 1252 

61 1256 


JMP 

.♦* 


XMAG 1230 

01 1253 

151263 


0?M 

MTC3 


XMA0I240 

011254 

21 1262 


LAC 

CC 


XMAG 1250 

011255 

631351 


JMP* 

MCRT 


XMAG 1260 

01 1256 

*51263 


ISZ 

MTC3 


XMAG 1270 

01 1257 

61 1251 


JMP 

.-6 


XMAG 1 280 

011260 

61133! 


JMP 

MTERR1 


XMAG 1290 

01 1261 

000000 

MWA1T 

0 



XMAG 1300 

01 1262 

000000 

CC 

0 



XMAGI 310 

01 1263 

000000 

HTC3 

0 



XMAG 1320 

01 1264 

000G00 

HF 

0 



XMAGI 330 

011265 

033377 

MTBOI 

33*00-1 


/ ORIGIN OF MAG BUFFER *1 -1 

XMAGI 340 

011266 

033777 

MTB02 

3*000-1 


/ ORIGIN OF MAG BUFFER #2 -1 

XMAG 1350 

011267 

033777 

MTBENI 

33777 


/ ENO OF MAG BUFFER a| 

XMAGI 360 

011270 

03*377 

HT9EN2 

3*377 


/ ENO OF MAG BUFFER *2 

XMAG 1370 

01 1271 

033377 

HTBPI 

33*00- 1 


/POINTER OF MAG BUFFER •! 

XMAG 1380 

011272 

033777 

MTBP2 

3*000-1 


/POINTER OF MAG BUFFER *2 

XMAGI 390 

011273 

000000 

HTSTAT. 

0 . 



XMAG 1400 



/CMP 

PQP9 . 

JANUARY 

1 968 

XMAG 1410 



/SET OF 

COMMANDS TO 

OPERATE 

MAGNETIC 

XMAG 1420 



/ TAPE DECK 



XMAG 1 430 



/ 




XMAGI 440 



/SUBROUTINE TO GIVE 

TAPE COMMANOS 

XMAGI 450 

01 1274 

000000 

MTCOM 

0 



XMAGI 460 

011275 

707321 


HTCR 


/IS CONTROL REAOY 

XMAG 1470 

011276 

1 11351 


JHS 

MCRT 


XMAG 1480 

01 1277 

707326 


MTLC 



XMAG 1500 

011300 

70730* 


HTTR 


/IS UNIT READY 

XMAG 15 10 

01 1301 

7*1000 


SKP 


/NO 

XMAG 1520 

01(302 

611306 


JMP 

MTCI 

/YES 

XMAG 1530 

0 i 1 303 

U 51 3 1 ! 


ISZ 

MTC2 

/TRY 262144 TIMES 

XMAG 1 54( 

0 J i 3P4 

611300 


JMP 

.-* 


XMAG 1550 

011305 

611331 


JMP 

MTERR1 

/ GIVE UP ANO SHUT OOWN.TAPE 

XMAG 1560 

011306 

70730* 

MTCI 

MTGO 



XMAG 1570 

011307 

*5126* 


ISZ 

MF 


XMAG 1580 

011310 

63127* 


JMP* 

MTCOM 


XMAG 1590 

01 131 1 

000000 

HTC2 

0 



XMAG 1600 



/COMMANO 

NOP TO HAKE 

: SURE magtape is reaoy 

XMAG 1610 

011312 

10*0*1 

MTNOP 

JMS 

AOCCHK 


XMAG 1620 
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011313 

21652! 

01 1314 

1 1 1 274 

011315 

606257 

01 1316 

104041 

011317 

451370 

Oi l 3 20 

111100 

01132! 

1 1 1323 

011322 

606257 

011323 

000000 

011324 

216411 

011325 

1 1 1274 

011326 

151373 

01 1327 

451376 

011330 

631323 

011331 

700002 

011332 

203323 

01 1333 

043235 

01 1334 

2 l 6424 

011335 

072064 

011336 

051376 

011337 

760073 

011340 

505046 

0 1 1 3m 

045046 

011342 

705702 

011343 

107077 

01 1344 

301315 

01 1345 

240307 

0 1 1 346 

306317 

01 1347 

6^0306 

011350 

605055 

01 I 351 

. 000000 

0 1 1 352 

700002 

0 1 1 353 

707321 

0 1 1 354 

741000 

011355 

631351 

0 1 1356 

051262 

011357 

151261 

Of 1360 

21 1264 

011361 

741200 

011362 

611331 

011363 

451261 

0 1 1 364 

444106 

011365 

605055 

011366 

COOOOO 

01 1367 

000000 

011370 

000000 

011371 

000000 

01 1372 

COOOOO 

0 1 » 373 

000000 

011374 

034554 
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LAC 

(040500) 

/THIS COMMAND 


JMS 

MTCOM 



JMP 

RETC 


MTEOF 

JMS 

ADCCHK 



ISZ 

TERBUF 

/terminate BurrER 


JMS 

MT1UF 



JMS . 

EOF 



JMP 

RETC 


EOF 

0 




LAC 

(045500) 



JMS 

MTCOM 



OZM 

MTRCCT 



ISZ 

RWFG 



JMP* 

EOF 


/MAGTAPE 

SHUT DOWN 

DUE TO BEING NOT REAOY 

MTERRl 

IOF 




LAC 

CNOP 



OAC 

JMSBUF 



LAC 

( 160000) 



OAC* 

SET*5 

/ CMC 


OAC 

RWFG 



LAM. 

73 



ANO 

i NO 1 C 



OAC 

I NO 1 C 



PNIO 




JMS 

PR 1 OF 



301315 

/MA 



240307 

/G 



306317 

/OF 



640306 

/F 



JMP 

PANRET 


/MAG’i APE 

CONTROL READY TEST 


MCRT 

0 - 




IOF 




MTCR 




SKP 




JMP* 

MCRT 

/OK RETURN 


OAC 

CC 

' / . • 


OZM 

MWAI T 



LAC 

MF 



SNA 




JMP 

MTERR1 



ISZ 

MWAI T 



ISZ 

PANFLG 



JMP 

PANRET 


MTBTS 

0 



magtpt 

0 



TERBUF 

0 



MAGRET 

0 


/ RETURN A00RE5S 

MAGARG 

0 



mtrcct 

0 


/ RECORO COUNTER 

MTRCLM 

34554 


/ TOTAL • OF RECORDS 

/ mtrdwt 

RCO OCT 

. 197 1 


/ 

JMS 

MTRDWT 


/ 

0 


/NULL 

/ 

MC 



/ 

CA 



/ 

* FILES 

TO SKIP 



XMAG I 630 
XMAGTS^O 
XMAGI650 
XMAG 1 660 
XMAGI6Y0 
XMAGI680 
XMAGI690 
XMAGI700 
XMAG 1710 
XMAGI720 
XMAG I 730 
XMAGI7W0 
XMAG 1 750 
XMAG I 760 
XMAG I 770 
XMAG I 780 
XMAG I 790 
XMAG I 800 
XMAG I 810 
XMAG 1 820 
XMAG 1 830 
XMAG 1 8*0 
XMAG 1 850 
XMAG 1 860 
XMAG 1 870 
XMAG 1 880 
XMAG 1890 
XMAG I 900 
XMAG 1910 
XMAG I 920 
XMAG 1930 
XMAG19M0 
XMAG 1950 
XMAG 1960 
XMAG I 970 
XMAG 1980 
XMAG 1990 
XMAG2000 
XMAG20 I 0 
XMAG2020 
XMAG2030 
XMAG20*40 
XMAG2050 
XMAG2060 
XMAG2070 
XMAG2080 
XMAG2090 
XMAG2100 
XMAG2 1 I 0 
XMAG2 I 1 2 
XMAG2 1 20 
XMAG2 1 30 
XMAG2l‘*0 
XMAG2I50 
XMAG2160 
XMAG2170 
XMAG2I80 
XMAG2190 
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/ 

FUNCTION: 3 FOR READ; 5 FOR WRITE. -1 

AOOEO 

TO FUNC . 

01 1375 
011376 

000000 

000000 

HAGUE L 
RWFQ 

0 

0 


t 0-9K DUMP; 1-256 

/ rewind flag 

X 256 

CO INC DUMP 

011377 

000000 

MTROWT 

0 





01 1400 

Si 1 377 


LAC 

MTROMT 




01 1401 

356335 


TAO 

I 31 




0 1 t 402 

05I37S 


OAC 

MAGARG 




01 1403 

356413 


TAO 

(21 




01 1404 

051371 


OAC 

MAGRET 




011405 

*451377 


IS2 

MTROMT 




011406 

SI 1376 


LAC 

RMPG 




011407 

741200 


SNA 


/ REWINO? 



01 1410 

6! 1415 


JMP 

.♦5 




011411 

111453 


JUS 

REMIND 

/ YES 



01 1412 

S3137S 


LAC • 

MAGARG 




01 1413 

740S00 


SZA 





01 1*14 

1 1 1436 


JMS 

MSPACE 

/ SPACE TO CORRECT 

F 1LE . 


011415 

45 I 372 


1SZ 

MAGARG 




01 1416 

70732 i 


MTCR 


/ CONTROL READY? 



011417 

111351 


JMS 

MCRT 

/ NO 



011420 

231377 


LAC* 

MTROMT 




0 1 1 42 1 

040032 


OAC 

32 

/ WC 



0 1 1 422 

451377 


ISZ 

MTROMT 




011423 

750001 


CLC 





011424 

371377 


TAO* 

MTROMT 




011425 

040033 


OAC 

ZZ 

/ CA- 1 



01 1426 

750001 


CLC 





011427 

371372 


TAO* 

MAGARG 

/ FUNCTION-1 



011430 

6607 M 


ALSS 

1 I 




01 1431 

3565SI 


TAO 

(040500 1 

/ FORM RE AO OR WRITE 


01 1432 

1 I ! 274 


JMS 

HTCOM 




011433 

I 11351 


JMS 

MCRT 

/ MAIT * T l L DONE 



0 1 1 434 

750000 


CLA 


/ NO ERROR 



01 1435 

631371 


.MP* 

MAGRET 




01 1436 

000000 

MSPACE 

0 





011437 

101766 


JMS 

COMPLM 




011440 

046304 


OAC 

OIRCT2 




011441 

70732 1 


MTCR 


/ MAG RCAOT? 



0 1 1 442 

111351 


JMS 

MCRT 

/ NO 



011443 

777000 


LAM 

-1000 

/ SET TO SPACE TO AN EOF 


01 1444 

040032 


OAC 

32 




011445 

216522 


LAC 

(0465001 

/ SPACE FORWARO. 



01 1446 

1 l 1274 


JMS 

MTCOM 




01 1447 

111351 


JMS 

MCRT 

/WAIT UNTILL DONE 



011450 

446304 


ISZ 

0IRCT2 

/DONE? 



01 1451 

61 1443 


JMP 

. -6 

/ NO 



011452 

631436 


JMP* 

MSPACE 




011453 

OOOOQO 

REKINO 

0 





0 1 1 454 

216523 


LAC 

(41500) 




01 1455 

1 1 1274 


JMS 

MTCOM 




01 145b 

631453 


JMP* 

REM 1 NO 






/SEQUENCE 

COMMANOS 







/EOR STORING A SEQUENCE 






/OF PROGRAM INSTRUCTIONS 

/ 






/PUNCH sequence on 

PAPER TAPE 




011457 

216524 

PSEQ* 

LAC 

(31000) 




Oil 460 

051564 


OAC 

SEQPT 

/SET POINTER 




XMA022QQ 

XMAG22 1 0 

XMAG2220 

XMAG2230 

XMAG22H0 

XMAG2250 

XMAG2260 

XMAG2262 

XMAG2264 

XMAG2270 

XMAG2280 

XMAG2290 

XMAG2300 

XMAG23 I 0 

XMAG2320 

XMAO2330 

XMAG23H0 

XMAG2350 

XHAG2360 

XMAG2370 

XMAG2380 

XMAG2390 

XMAG2400 

XMAG2410 

XMAG2H20 

XMAG2'«3Q 

XMAG2HH0 

XMAG2»*50 

XMAG2N60 

XMAG2N70 

XMA02H80 

XMAG2500 

XMAG25IQ 

XMAG2520 

XMAG2S30 

XMAG25H0 

XMAG2550 

XMAG2560 

XMA02570 

XMAG2580 

XMAG2590 

XMAG2600 

XMAG26I0 

XMAG2620 

XMA02630 

XMAG26N0 

XMAG2650 

XI1AG2660 

XMAG2670 

XMAG2680 

XMAG2690 

X 1020000 

X 1020010 

XI 020020 

X 1020030 

X 1020040 

X 1020050 

XI 020060 
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01 IH6I 

23! 36** 


LAC* 


SEQPT 




X I 020070 

0 1 i 462 

7**| 200 


SNA 



/ZERO TERMINATES 



XI 020060 

0 1 1 463 

61 1467 


JMP 


PSEQ 1 




X 1020090 

011464 

1 S 1600 


JUS 


PUNS IN 




X 1020 100 

011465 

**5156** 


1SZ 


SEQPT 




X 10201 10 

01 1466 

61146! 


JMP 


. -S 




X I 020 I 20 

011467 

1 l 1600 

PSEQ! 

JMS 


PUNBIN 




X 1 020 1 30 

011470 

777740 


LAW 


-«t0 

/PUNCH LEADER 



X 1 020 1 40 

01 1471 

051564 


OAC 


SEQPT 




X 1020 1 50 

011472 

7500C0 


CLA 






X I 020 1 60 

01 1473 

107347 


JUS 


PUNSH 




XI 020 170 

01 1474 

451564 


ISZ 


SEQPT 




XI 020 180 

011475 

61 1472 


JMP 


.-3 




XI 020 190 

011476 

606257 


JMP 


RETC 




XI 020200 



/READ 

SEQ FROM 

PAPER TAPE 




X 10202 in 

01 1477 

751001 

GSEQ 

SKPICLC 





XI 020220 

01 1500 

750000 

RSEQ 

CLA 






XI 020230 

011501 

042577 


OAC 


sw 




X 1020240 

011502 

216524 


LAC 


(31000) 

/ SET POINTER 



XI 020250 

01 1503 

051564 


OAC 


SEQPT 




XI 020260 

01 1504 

1 1 1565 


.'MS 


. RPAPER 

/RE AO BINARY 



X 10202 .’0 

01 1505 

071564 


OAC* 


SEQPT 




X 1020280 

011506 

451564 


ISZ 


SEQPT 




XI 020290 

011507 

7*. 1200 


SNA 



/ZERO TERMINATES 



XI 020300 

01 1510 

61 1515 


JMP 


CHECK 




X I 0203! 0 

011511 

21 1564 


LAC 


SEQPT 

/PROTECT FROM BAD 



X 1020320 

01 1512 

556525 


SAO 


(31 076) 

/ PAPER TAPE. 



XI 020330 

01 1513 

606746 


JMP 


QMARK 




X 1020340 

01 1514 

61 1504 


JMP 


.-10 




X I 020350 

01 1515 

442577 

CHECK 

ISZ 


SH 




X 1020360 

01 1516 

61 1535 


JMP 


ESEQ 




X 1020370 



/LIST 

OATA FOR 

SEQUENCE INSTRUCTIONS 



XI 020380 

01 1517 

106737 

LSEQ 

JMS 


CRLF 




XI 020390 

01 1520 

216524 


LAC 


(31000) 




XI 020400 

01 1521 

107000 


JMS 


HESAG 




X 10204 I 0 

0 1 1 522 

606257 


JMP 


RETC 




XI 020420 



/ACCEPT OATA TOR 

SEQUENCE 




XI 020430 

01 1523 

21 1534 

SEQ 

LAC 


SEQR 

/SETUP TO INPUT DTAT 


X 1020440 

011524 

052144 


OAC 


QA 




XI 020450 

0 1 1 525 

216524 


LAC 


(31000) 

/ starting aor. OF 

SEQ 

INFO. 

X l 020460 

011526 

052244 


OAC 


ALBS 




X 1020470 

011527 

052245 


OAC 


ALBS f 




XI 020480 

01 1530 

152456 


OZM 


REAPT 




X 1020490 

011531 

152712 


OZM 


TELPT 




XI 020500 

01 1532 

777701 


LAN 


-77 




XI 020540 

011533 

612175 


JMP 


OAAI 




XI 020520 

01 1534 

606257 

SEQR 

JMP 


RETC 




XI 020530 



/EXECUTE SEQUENCE 

INSTRUCTIONS 



XI 020540 

011535 

451563 

ESEQ 

ISZ 


SEQPS 

/SET THE SEQUENCE 

PRINT 

SWITCH 

XI 020550 

01 1536 

216526 


LAC 


(34377) 




XI 02056) 

01 1537 

040014 


OAC 


14 

/MOVE INSTRUCTIONS 

TO TTY BUFFER 

XI02057C 

01 1540 

216527 


LAC 


(30777) 




XI 020580 

011541 

040015 


OAC 


15 




XI 020590 

011542 

777700 


LAW 


-100 




XI 020600 

01 1543 

051564 


OAC 


SEQPT 




X I 020610 

01 154h 

220015 


LAC* 


15 




X 1020620 

011545 

060014 


OAC* 


14 




XI 020630 

01 1546 

741200 


SNA 






X 1020640 
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0II5V7 611552 

011550 SSI56H 

01 1551 6115**** 

011552 I52«*56 

011553 2000 1 *♦ 

01155** 516530 

01 1555 0H00IH 

011556 7HtOio 

011557 3**00l*t 

011560 356315 

01 1561 052712 

011562 606257 

011563 000000 

01156** 000000 

011565 000000 

011566 7003m 

011567 516511 

011570 556511 

011571 6067V6 

011572 700002 

01 1573 700l*t«* 

0 1 157** 607** 36 

011575 700)12 

011576 7000**2 

011577 631565 

011600 000000 

011601 652000 

011602 77777? 

011603 051615 

01 1 60** 21 161'* 

011605 0«*73«*7 

011606 6 **0606 

011607 7002'*** 

011610 607351 

011611 **51615 

01 1612 611606 

011613 631600 

01161** 0)1611 

011615 009000 

01 1616 200226 

01 1617 7 **0200 

011620 105237 

01 1621 107557 

011622 101776 

011623 1 C33**** 

01162** 605055 
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/ 

MESS2 




/ 

FLT 

FNUM 



/ 

JMP 

ECT 



FLT-300000 




OBI -200000 




SNG- 100000 


01 1625 

000000 

MIO 

0 


011626 

106737 


JMS 

CRLF 

011627 

£31625 


LAC* 

MIO 

011630 

503323 


AND 

CNOP 

01 1631 

740200 


SZA 


01 1632 

63 \ 625 


JMP* 

MIO 

01 1633 

777775 


LAW 

-3 

0! 1634 

106544 


JMS 

MULTSP 

011635 

231625 


LAC* 

MIO 

011636 

107000 


JMS 

MESAG 

01 1637 

777775 


LAW 

-3 

01 1640 

10654*4 


JMS 

MULTSP 

011641 

451625 


ISZ 

MIO 

01 1642 

231625 


LAC* 

MIO 

01 1643 

516420 


AN n 

( 37777 ) 

01 1644 

051677 


OAC 

MIOS 

011645 

231625 


LAC* 

MIO 

011646 

5 1 6421 


ANO 

(700000) 

011647 

556531 


SAO 

(300000) 

0.1 1650 

61 1666 


JMP 

Mior 

011651 

556447 


SAC 

i 100000) 

0 1 1 652 

6 1 1 66 1 


JKP 

.♦7 

01 1 653 

750000 

iMOl 

CLA 


011654 

351677 


TAO 

M l OS 

0 1 1 655 

051677 


OAC 

MIOS 

01 1656 

231677 


1. AC* 

MIOS 

01 1657 

046712 


OAC 

HIGHPR 

01 1660 

451677 


ISZ 

MIOS 

01 1661 

231677 


LAC* 

MIOS 

Q 1 1 662 

744000 


CLL 


011663 

l 06554 


JMS 

OECPRT 

01 1664 

451625 


ISZ 

MIO 

011665 

61 1626 


JMP 

Ml 0*1 

011666 

21 1677 

mi or 

LAC 

MIOS 

011667 

356374 


TAO 

(200000 

0 1 1 670 

051672 


OAC 

.♦2 

01 1671 

1 13051 


JMS 

F 1 NT 

911672 

740040 


XX 


01 1673 

1 14324 


JMS 

FPRIN 

01 1674 

11 3112 


JMS 

FEXT 

01 1675 

451625 


!SZ 

MIO 

011676 

61 1 627 


JMP 

M 1 0*2 

01 1677 

000000 

Ml OS 

0 


0 11700 

014040 

MESS3 

014040 

/A 

0 1 1 70 1 

404040 


404040 


01 1702 

000000 


0 


01 1703 

024040 

MESS4 

024040 

/B 

0 1 1 704 

404040 


404040 


01 1705 

000000 


0 


011706 

034040 

MESS5 

034040 

/C 

011707 

404040 


404040 


011710 

000000 


0 



X 1 021 260 
X 1 02 1 270 

/ANY INSTRUCTION TERMINATES EXCEPT CA^ XI02I280 

X 1021290 
XI 02 1300 
X 1 02 1 31 0 
XI 02 I 320 

- X 1 02 1 330 

X 102 1 3W0 
XI 02 1 350 
XI 02 1 360 
XI 02 I 370 
XI 02 I 380 
XI 02 1 390 
XI021HOO 
X 1021 mo 
XI 02 1 420 
XI021H30 
XI02I‘440 
XI021H50 
XI 02 1*60 
X I 02 I H 70 
XI 02 1 480 
XI 02 I 490 


/FLOATING X 102 1500 
/YES XI0215I0 
/SINGLE X 1021 520 
/YES X 102 1 530 
/LAW -400 OR CLA X 1 021540 


X 102 1 550 
XI 02 1560 
X 102 1 570 
X 1 02 1 580 
XI 02 1 590 
X 1 02 1 600 

/POS. NUMBER X 1021 6 1 0 

XI 02 1 620 
XI 02 1630 
XI 02 1640 
XI 02 l 650 
XI 02 1 660 
XI 02 1 670 
XI 02 I 680 
XI 02 1 690 
XI02I7CO 
X 1021 710 
X 1 02 1 720 
X 1 02 1 730 
XI 02 1740 
XI 02 I 750 
XI 02 1760 
XI 02 I 7.70 
XI 02 l 780 
XI 02 1790 
X 102 1 800 
X 1 02 1 8 1 0 
XI 02 1820 
X I 02 1 830 
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011711 

099090 

CM 1712 

909090 

0II7I3 

000000 

oi i7m 

069023 

01 1715 

1 1 1607 

01 1716 

000000 

01 1717 

159023 

011720 

1 1 1607 

01 !?2S 

000000 

01 1722 

235690 

01 1723 

220512 

0 ! 1 729 

000000 

011729 

031711 

01 1726 

169090 

01 1727 

000000 

01 1730 

035690 

011731 

220512 

011732 

000000 

01 1733 

055690 

01 1739 

220512 

01 1735 

000000 

011736 

220501 

01 1737 

1 99029 

011790 

000000 

01 1791 

191 126 

011792 

059029 

01 1793 

000000 

01 1799 

909019 

011799 

050629 

01 1796 

000000 

011797 

959019 

011790 

1 12605 

011791 

000000 

01 1752 

169001 

011753 

220501 

011759 

000000 

01.1755 

079001 

011756 

220501 

011757 

000000 

011760 

030SI6 

011761 

295690 

011762 

000000 

011763 

909023 

011769 

560956 

011765 

000000 

011766 

079090 

011767 

065715 

011770 

600000 

011771 

169090 

011772 

065715 

011773 

000000 

011779 

031716 

011775 

0305 16 

011776 

29220! 

011777 

291 1 17 

012000 

169000 


012001 000000 


HESS7 

ncsse 

HESS9 


MESS 10 


MESS 11 


MESS I 9 


HESS I 6 


MESS 1 7 


MESS ib 


MESS 1 9 


MESS22 


MESS29 


MESS26 


MESS27 


MCSS28 


HESS29 


M6SS98 


/ If PFC 
SET VAR 
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099090 

909090 

/0 

XI 02 1690 

0 


X 1 02 1 850 

069023 

/F SI NO 

XI 02 1860 

1 1 1607 


XI 02 1870 

0 


X 1 02 1 880 

159023 

/H SING 

X 1 02 1 890 

1 1 1607 


XI 02 1900 

0 


XI 02 191 0 

235690 

/S. REJ 

XI 02 1920 

220512 


X 1 02 1 930 

0 


XI 02 1990 

031711 

/COIN 

XI 02 1950 

169090 


X 1 02 1 960 

0 


X 102 1 970 

035690 

•'C. REJ 

X 102 1 980 

220512 


X 1 02 1 990 

0 


XI 022000 

055690 

VE. REJ 

XI 0220 10 

220512 


XI 022020 

0 


XI 022030 

22050 1 

/RCA 

X 1022090 

199029 

/ T 

XI 022050 

0 


XI 022060 

191126 

/LIV 

XI 022070 

059029 

/ ET 

XI 022080 

0. 


XI 022090 

'•09019 

/ L 

X 1 0221 00 

.750629 

/EFT 

XI 0221 10 

0 


XI 022 120 

9590 I 9 

/* L 

X 10221 30 

y 1 2605 

/IVE 

XI 0221 90 

0 


XI 022 160 

169001 

/N AREA 

X 1022160 

220501 


X 10221 70 

0 


XI 022 180 

079001 

/G AREA 

X 1 022 1 90 

220501 


XI 022200 

0 


X 1 0222 1 0 

030516 

/CENT 

XI 022220 

295690 


XI 022230 

0 


XI 022290 

909023 

/S.D. 

XI 022250 

560956 


X 1 022260 

0 


XI 022270 

079090 

/G F/N 

XI 022280 

065715 


XI 022290 

0 


XI 022300 

169090 

/N F/M 

X I 0223 1 0 

065715 


XI 022320 

0 


X 1022330 

031716 

/ CON 

XI 022390 

030516 

/ CEN 

XI 022350 

292261 

/ TRA 

XI 022360 

291117 

/ TIO 

XI 022370 

169000 

/ N 

XI 022380 

NOT SET. SET QAM*5 TO SELECT AP PR. VALUES 

XI 022390 
XI 022900 


X1022910 


03/02/73RALPH RIC C. DAVIES POP-9 


012002 

200052 


012003 

05223? 


01200* 

632001 


012005 

**0061 

UPSET 

0 12006 

7*1000 


012007 

1*0061 

SETUP 

012010 

112001 


01201 l 

106737 


012012 

1121** 


012013 

777777 


01201* 

2530*6 


012015 

0300** 


012016 

*13016 


012017 

0300*7 


012020 

*13022 


012021 

030051 


012022 

106737 

SCTU 

012023 

1 12001 


01202* 

1 121** 


012025 

777777 


012026 

* 1 2772 


012027 

0300*5 


012030 

*127*0 


012031 

030055 


012032 

777760 


012033 

2527*5 


01203* 

0300*1 


012035 

252752 


012036 

0300*2 


012037 

*13026 


0120*0 

03016* 


0120*1 

* 1 3033 


0120*2 

030205 


0120*3 

2530*3 


0120** 

0300*3 


0120*5 

*12777 


0120*6 

030060 


0120*7 

*13002 


012050 

030101 


012051 

*13006 


012052 

030122 


012053 

25 1 77* 


01205* 

030226 


012055 

*13012 


012056 

0301*3 


012057 

106737 

SET 

012060 

112001 


012061 

1 121** 


012062 

777777 


012063 

*12733 


0 1 206* 

030053 


012065 

252756 


012066 

030067 


012067 

25276* 


012070 

03003* 


012071 

200061 


012072 

7*0200 


012073 

6121 15 
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LAC 

OAC 

JMP« 

iSZ 

SKP 

OZM 

JMS 

JUS 

JMS 

LAM 

XOR 

XCTBKO 
QAM+5 
SC T VAR 
PFG 

Pf G 

SETVAR 

CRLF 

QA 

MCSS80 

/ 

GAIN 

GAIN 

XCT 

MESS81 

/ 

INNER MANTEL 

IM 

XCT 

MESS82 

/ 

OUTER MANTEL 

OM 

JMS 

JMS 

JMS 

LAM 

XCT 

CRLF 

SETVAR 

QA 

-I 

MESS83 

/ 

PAPER PUNCH FLAG 

PTFO 

XCT 

HESSS* 

/ 

OATA TO MAG FLAG 

MTFG 

LAM 

XOR 

-20 

MESS85 

/ 

START TIME 

STATIM 

XOR 

MESS8E 

/ 

STOP TIME 

STOT I h 
x.:t 

MESS87 

/ 

TOP SPACING 

TOPS 

XCT 

MES588 

/ 

BOTTOM SPACING 

BOTS 

XOR 

MESS89 

/ 

HEIGHT 

HEIGHT 

XCT 

MESS90 

/ 

LUNAR 

SALA 

XCT 

MESS91 

/ 

METEORITE 

SAMA 

XCT 

MESS92 

/ 

ISOTOPE 

SAI A 
XOR 

MESS98 

/ 

CONCENTRATION 

CONCCN 

XCT 

HESS93 

/ 

OENERAL 

SAGA 

JMS 

JMS 

JMS 

LAM 

XCT 

CRLF 
SETVAR 
QA 
- 1 

MESSS* 

/ 

COIN MAG 

CMG 

XOR 

MESS95 

/ 

OUMP INTERVAL 

OOPI 

XOR 

MESS96 

/ 

LIVE TIME 

L1VEPS 

LAC 

SZA 

JMP 

PFG 

SEND 
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X 1 022*20 

X 1 022*30 
XI 022**0 
XI 022*50 
XI 022*60 

X 1 022*70 
XI 022*80 
XI 022*90 
X 1022500 
XI 0225 10 
XI 022520 
XI 022530 

XI 0225*0 
XI 022550 
XI 022560 
XI 022670 
XI 022580 
XI 022590 
XI 022600 
XI 0226 10 
X 1 022020 
XI 022630 
XI 0226*0 
X 1 022650 
XI 022660 
XI 022670 
XI 022680 
XI 022690 
XI 022700 
XI 0227 10 
XI 022720 
XI 0227 30 
XI 0227*0 
XI 022750 
xi 022760 
X 1022770 
XI 022780 
XI 022790 
XI 022800 
XI 0228 10 
XI 022820 
XI 022830 
XI 0228*0 
XI 022850 
XI 022860 
XI 022870 
XI 022880 
XI 022890 
XI 022900 
X 1 0229 1 0 
XI 022920 
XI 022930 
XI 0229*0 
XI 022950 
XI 022960 
XI 022970 
XI 022980 
XI 022990 
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0l*07H I5IJ73 

0 |2075 SHOOS I 

012076 612103 

012077 236H73 

012100 076H7H 

01 210 1 076H7I 

012102 612115 

012103 232070 

0I210H 076350 

012105 076351 

012106 232066 

012107 7H000I 

0121 10 356315 

0121 I I 0H0056 

0121 12 0H005S 

012113 2I6HI3 

012! 1H 0H026I 

012115 106737 

012116 I070H5 

012117 760006 

012120 105037 

012121 200051 

012122 7H0200 

012123 60S05S 

0I212H 203323 

012125 0H3235 

012126 23206H 

012127 556HI7 

012130 7HI000 

012131 612136 

012132 76000H 

012133 105026 

0121 3H 203370 

012135 0H3235 

012136 232066 

012137 7HI200 

0121 HO. 6121H3 

0121 HI 760002 

0I2IH2 105026 

0I21H3 605055 


0I2IHH 

0I2IH5 

012IH6 

0I21H7 

012150 

012151 

012152 

012153 

0I2I5H 

012155 


000000 
£321 HH 
516532 
5563 IH 
612165 
556533 
612162 
556532 
7HI000 
6321 HH 
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ozm 

SAO 

JMP 

LAC* 

OAC* 

OAC* 

JMP 

LAC* 

OAC* 

OAC* 

LAC* 

CMA 

TAD 

OAC 

OAC 

LAC 

OAC 

SEND JMS 

JHS 

SET 1 LAM 

JMS 
L \C 
SZA 
JMP 
LAC 
OAC 
LAC* 

SAO 

SKP 

JMP 

LAM 

JMS 

LAC 

OAC 

LAC* 

SNA 

JMP 

LAM 

JMS 

JMP 

CMR OCT 

HANOLE QUESTIONS 
ALPHA OATA 
ARGUMENT LIST IS 
LAM X SETS ALPHA 
XOR MESSX PRINTS 
XCT MESSX PRINTS 
XCT AND XOR MUST 

* 0 

LAC* 

ANO 

SAD 

JMP 

SAO 

JMP 

SAO 

SKP 

JMP* 


MTRCCT 

fiXOfLO / 6 kg? 

•♦5 / NO 

(L I VEPS+HOO > 
(LIVEPT+HOO) 

IL • VEPH+HOO I 
SENO 

SET* I | / LIVEPS 

•LIVEPT) 

(LIVEPH) 

SET *7 / OOP | 

(II 

OOPS 

ODFC 

(21 

A 9 CT / SLOCK C 

CRLF 

EXPIOP 

6 /TURN 1 NO 

PINOOF 

8 K 0 FLG 


/ BLOCK COUNT 


/TURN INDICATORS OFF. 


PANRET 

CNOP 

JMSBUF 

SET*5 


/BKG OR FG? 
/ BKG 


/ CMG 


(310000 1 / IS COIN EVENT OUMP A Y 


.♦5 

H 

PI NOON 
JMTB 
JMSBUF 
SET *7' 


/ NO 
/ YES 


/ set JMS to buffering routine 


SET*7 / OOP I 

• /,s PUMP INTERVAL non-zero 

2 ; . ' ■ . 

PANRET ' YES TUR * 0N INDICATOR. 

1970 

ANO ANSMERS OF NUMERIC ANQ 

^! N , A I E ?T B r/ NY 0TH£R ™ AN LAW * XCT 

INPUT LIMIT TO X CHARACTERS 

2£ff A ? £ x AND ,n0 »cates NUMERIC OATA 
MESSAGE X ANO INDICATES ALPHA OATA 
BE FOLLOMEO BY ADDRESS OF DATA 

QA 

(760000) / ALPHA? 

( H00000 I / YES 

QAA 

( 240000 ) / NUMERIC? 


OAN 

<7600001 


/ YES 



XI 023000 
X 10230 10 
XI 023020 
X 1 023030 
X10230H0 
X 1023050 
X I 02 3 OF 0 
XI02307C 
XI 023080 
XI 023090 
X 1 023 1 00 
X 1 023 1 10 
XI 023 1 20 
XI 023 I 30 
X 1 023 I HO 
X 1 023 I 50 
X 1 023 I 60 
X I 023 I 70 
X 1 023 1 80 
X 1 023 1 90 
X 1023200 
XI 0232 10 
X 1 023220 
XI 023230 
XI0232HC 
XI 023250 
X 1023260 
XI 023270 
XI 023280 
XI 023290 
X 1023300 
X 1 0233 1 0 
X 1 023320 
X 1 023330 
XIO233H0 
XI 023350 
XI 023360 
XI 023370 
XI 023380 
XI 023390 
X 1 023400 
XI023HI0 
XI023H20 
a ! Q23H30 
XI023HH0 
XI023H50 
XI023H60 
XI023H70 
XI023H8Q 
XI023H90 
XI 02 3501. 

X 1023510 
XI 02 3520 
XI 023530 
XIO235H0 
X 1023550 
XI 023560 
XI 023570 



E-101 


03/ 02/73RALPH RIC C DAVIES POP-9 ••• PDP9/I5 ASSEMBLY LISTING ••• PAGE NO. 100 


012156 

232144 

LAC • 

GA 



012157 

052247 

OAC 

ALS1Z 

/ 

SET NUMBER OF WORDS TO BE ALLOWED 

012160 

452144 

ISZ 

GA 

/ 

SHOULD BE ONE LESS THAN NUMBER IN 

01216! 

612145 

JMP 

QA* 1 

/ 

STORAGE AREA 



/ INPUT NUMERIC 




012162 

J 12232 

QAN JMS 

QAf' 

/ 

PRINT MESSAGE ASSOCIATED WITH VARIABLE 

012163 

.1 12250 

JMS 

NiO 

/ 

NUMBER I/O 

012164 

612145 

JMP 

GA* l 





/ INPUT ALPHA 




012165 

112232 

QAA JMS 

GAM 



012166 

052244 

OAC 

ALBS 



012167 

052245 

OAC 

ALBS 1 



012170 

107000 

JMS 

ME SAG 



0 1 2 1 7 1 

20006! 

LAC 

PEG 

/ 

PRINT ONLY 

0 12 i 72 

740200 

SZA 




012)173 

612145 

JMP 

GA* 1 

/ 

YES 

012174 

212247 

LAC 

ALSIZ 

/ 

SIZE OF AREA -1 

012175 

052246 

QAA l OAC 

ALSIZC 



012176 

106737 

JMS 

CRLE 



012177 

750000 

CLA 




012200 

1 12222 

JMS 

OAR 

/ 

GET FIRST CHARACTER 

012201 

452245 

I^Z 

ALBS 1 



01 2202 

172244 

OZM • 

ALBS 

/ 

INITIALIZE TO ZERO 

012203 

172245 

OZM* 

ALBS 1 

/ 

ZERO LAST WORD 

012204 

6403 1 4 

LLS 

14 

/ 

MOVE TO HIGH 

012205 

1 12222 

JMS 

GAR 



012206 

640606 

LLS 

6 

/ 

MOVE TO CENTER 

012207 

1 12222 

JMS 

GAR 



012210 

1 12222 

JMS 

GAR 

/ 

LEAVE IN LOW AND GET NEXT ONE 

0 1 22 1 1 

452244 

If.Z 

ALBS 



012212 

452246 

ISZ 

ALSIZC 

/ 

FULL 

0122 I 3 

612201 

JMP 

. - 12 

/ 

NO 

012214 

760334 

LAW 

334 

/ 

PRINT BACKSLASH FOR OVERFLOW. 

G 122 1 5 

106752 

JMS 

PRINT 



012216 

1 12366 

JMS 

READ 

/ 

FINISH RE AO INC- INPUT 

0 I 22 1 7 

74 1 200 

SNA 




012220 

612145 

JMP 

GA* 1 



012221 

612214 

JMP 

.-5 



0 12222 

000000 

OAR 0 




012223 

372244 

TAO* 

ALBS 

/ 

COMBINE NEW CHARACTER WITH OLD 

0 1 2224 

072244 

OAC * 

ALBS 



012225 

1)2366 

JMS 

RE AO 

/ 

GET NEXT CHARACTER FROM REAOF SO AS 

0 I 2226 

745200 

SNAICLL 




012227 

612145 

JMP 

GA* 1 

/ 

ZERO TERMINATES 

012230 

650000 

CIO 




012231 

632222 

JMP* 

QAR 





/ MESSAGE PRINTER 

EOR QA 



012232 

000000 

QAM 0 




012233 

106737 

JMS 

CRLF 



0 : 2234 

232144 

LAC* 

OA 

/ 

GET MESSAGE ADDRESS 

012235 

452144 

ISZ 

GA 



012236 

107000 

JMS 

MESAG 



012237 

750000 

CLA 


/L 

AH -HOO OR CLA 

012240 

372144 

TAO* 

QA 

/RETURN WITH VARIABLE AOORESS 

01224! 

516420 

AND 

C 37777) 



OS 2242 

452144 

ISZ 

QA 

/ 

IN AC 

012243 

632232 

JMP* 

GAM 



012244 

000000 

ALBS 0 





X 1 023580 
XI 033590 
XI 023600 
X 1 0236 I 0 
XI 023620 
X I 023630 
XI023640 
X I 023650 
XI 023660 
X I 023670 
XI 023680 
XI 023690 
X I 023700 
XS 0237 10 
X 1 023720 
X 1 023730 
X I 023740 
XI 023750 
XI 023760 
X I 023770 
X 1023780 
X I 02379U 
X I 023600 
XI 0238! 0 
X 1023820 
X 1 023830 
X 1023840 
X 8023850 
XI 023860 
X 1023870 
XI 023880 
XI 023890 
X 1 023900 
XI 0239 10 
X 1 023920 
XI 023930 
XI 023940 
X 1.023950 
XI 023960 
XS 023970 
X 1023980 
XI 023990 
X I 024000 
XI 0240 10 
X I 024020 
X 1024030 
X I 024040 
XI 024050 
XI 024060 
X I 024070 
XI02408C 
XI 024090 
XI 024 100 
X 1 024 1 10 
X I 024 \ 20 
XI 024 I 30 
X l 024 1 40 
X 1024 1 50 
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012245 

012246 

012247 

012250 
0 1 225 1 
0 1 2252 
012253 
012254 
0 1 2255 
012256 
012257 
U 1 2260 
0 1 226 1 
0 1 2262 
012263 
012264 
012265 
0 1 2266 
012267 
012270 
012271 
012272 
012273 
012274 
012275 
012276 
012277 
012300 

012301 

012302 

012303 

012304 

012305 

012306 

012307 

012310 

01231 I 

012312 

012313 

012314 

012315 

012316 

012317 

012320 

012321 

012322 

012323 

0.2324 

012325 

012326 

012327 

012330 

012331 

012332 

012333 

012334 


000000 

OOOQOO 

ooooao 

000000 
516420 
052273 
777774 
1 06544 
232273 
744000 
1 I 3476 
1 12274 
106554 
200061 
740200 
632250 
777774 
106544 
I 12461 
440062 
072273 
632250 
000000 
000000 
664000 
741400 
356315 
632274 

212374 

740200 

612370 

152364 

140061 

1 12405 

052365 

556354 

750000 

556355 

750000 

741200 

612331 

212364 

652000 

744200 

612324 

212365 

640506 

212365 

640503 

641002 

052364 

612305 

212364 

741200 

612304 

215711 



IP INPUT :s PRESENT 
/ AOORESS OP NUMBER 

* skip i r not in strip. 

I PRINT NUMBER 
/WAIT POR INPUT 

/ NO 

' NAS ANY INPUT 
/ YES 

' HAS read been calico? 

/ YE S RETURN THROUGH REAO 
/GET ONE 6 BIT CHARACTER 


f PACK POR COMMANO 

J SAVE FOR POR NEXT TIME 
' GO GET ANOTHER 
' CHECK POR ZERO 


XI 024 | 60 
XI 024 l 70 
XI 024 l 00 
x: 024 I 90 
XI 024200 
XI 02421 0 
X 1024220 
x I 024230 
XI024240 
XI 024250 
X 1024260 
X 1024270 
X 1 024280 
XI 024^90 
XI 024300 
XI 0243 10 
X I 024320 
X 1 024330 
X 1 024340 
X 1 024350 
XI 024360 
X 1 024370 
X 1024300 
X I02439C 
X 1 024400 
X I 0244 1 0 
X* 024420 
XI024430 
X 1024440 
XI 024450 
XI 024460 
X I 0244 70 
X 1024480 
X I 024490 
XI 024495 
XI 024500 
XI 0245 10 
XI 024520 
X 1024530 
XI 024540 
XI 024550 
X I 024560 
XI 024570 
XI 024580 
XI0245SO 
XI 024600 
XI 0246 10 
XI 024620 
XI 024630 
XI02‘-640 
XI 024650 
XI 024660 
XI 024670 
XI 024680 
XI 024690 
XI 024700 
XI 0247 10 
XI 024720 


/ - \ 

f V 
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012335 

100743 


JHS 

02 


X 1024730 

012336 

217640 


LAC 

17640 

/ CA-0 FOR NO OVRLAY- 1 7777 FOR OvRLAY 

X 1024740 

012337 

740200 


SZA 



X 1024750 

0123*40 

1 12344 


JHS 

C00C3 


X 1024760 

01234! 

200363 


LAC 

ALIST 

/ LIST OF COMMANDS 

X l 024770 

012342 

1 12344 


JHS 

COOC3 


X 1 024780 

012343 

606746 


JHP 

QHARK 


X 1 024790 

012344 

000000 

C00C3 

0 



X 1024800 

012345 

040010 


OAC 

10 


X 102481 0 

012346 

220010 


LAC • 

to 


XI 024820 

012347 

552364 


SAD 

TELHQ 

/ HATCH? 

XI 024810 

012350 

612355 


JHP 

C00C2 


X1024840 

012351 

741200 


SNA 


/ ENO OF LIST? 

XI 024850 

012352 

632344 


JHP* 

C00C3 

/ YES 

xt 024860 

012352 

440010 


1SZ 

10 


XI 024870 

012354 

612346 


JHP 

, -6 


XI 024880 

012355 

220010 

C00C2 

LAC* 

IQ 


XI 024890 

012356 

052362 


OAC 

« *4 


X 1024900 

012357 

503323 


AND 

CHOP 

/ AOORESSES FIRST 1 6* 

x 1024SI 0 

012360 

755200 


SNAlCLAlCLL 


XI 024920 

012361 

632362 


JHP* 

- *1 

/ GO TO UPPER CORE, 

X 1024930 

012362 

740040 


XX 



XI 024940 

012363 

606257 


JHP 

RETC 


XI 024950 

012364 

000000 

TELMO 

0 



x 1024960 

012365 

000000 

READT 

0 



X l 024970 



/ GET ONE 

6 BIT 

CHARACTER FROH INPUT BUFFER 

X 1024Q80 

012366 

000000 

REAO 

0 



XI 024990 

012367 

452374 


1SZ 

REAOF 


X I 025000 

012370 

1 12405 


j:is 

REAUNP 


X 10250 10 

012371 

052714 


OAC 

TC 


XI 025020 

012372 

152374 


rzM 

REAOF 


X 1025030 

012373 

632366 


JHP* 

REAO 


X 1025040 

012374 

000000 

REAOF 

0 



XI 025050 

012375 

000000 

OSIP 

c 



X 1025060 

012376 

000000 

REAO ! 

0 



X ! 025070 

012377 

750001 


CLC 


/DEMAND 1 CHAR fRQM KEYBOARD. 

X 3 025080 

012400 

052375 


OAC 

OSIP 


XI 025090 

012401 

607436 


JI1P 

RET 


X!C25t00 

012402 

152456 


OZH 

REAPT 


X 10251 04 

012403 

152712 


OZH 

TELPT 


X 1025 1 05 

012404 

607436 


JHP 

RET 


XI 025 106 

012405 

000000 

REAUNP 

0 



X 1025 1 10 

012406 

212456 


LAC 

REAP! 

/ IS BUFFER EMPTY 

X 1025 120 

012407 

552712 


SAO 

TELPT 


X 10251 30 

012410 

612402 


JHP 

REAUNP *3 

/ YES 

XI 025 140 

01241 1 

673323 


67332? 


/ 3 PER WORO 

Xl025l5u 

012412 

0G0003 


3 



X 1 025160 

012413 

052460 


bAC 

RE ATT 


X 1 025 1 70 

012414 

64f002 


LACQ 



X 1 025180 

012415 

352710 


TAD 

TEL8S 

/ AOO BASE 

X 10251 90 

012416 

052457 


OAC 

RE APT 1 


X 1025200 

012417 

212460 


LAC 

PEAT? 


X I 0262 I 0 

012420 

653122 


HUL 



X 1025220 

012421 

000006 


6 


/ COMPUTE NUMBER OP SHIFTS 

XI 025230 

012422 

641002 


LACQ 



X 1025240 

012423 

356534 


TAO 

<640500 

/ LRS 

X 102525C 

012424 

052430 


OAC 

, *4 


XI 025260 

012425 

356316 


TAO 

< 1001 

/ CHANGE TO LLS 

XI 025270 


v .,_„ J(sr , u it . 
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012126 052132 

012127 216535 

012130 710010 

012131 532157 

012132 710010 

012133 610511 

012131 652000 

012135 152156 

012136 212156 

012137 552711 

012110 152156 

012111 211563 

012112 711200 

012113 612151 

012111 611002 

012115 711200 

012116 632105 

012117 356161 

012150 711100 

012151 356316 

012152 356162 

012153 106752 

012151 611002 

012155 632105 

012156 000000 REAPT 

012157 000000 REAPT1 

012160 000000 REATT 

/ DEC I I1AI 


012161 000000 

012162 750001 

012163 010062 

012161 113666 

012165 113506 

012166 112366 

012167 356536 

012170 052531 

012171 71 t 100 

012172 612506 

012173 356537 

012171 710100 

012175 612506 

012176 110062 

012177 710000 

012500 113051 

012501 556505 

012502 352531 

012503 113506 

012501 I 131 12 

012505 612166 

012506 212711 

012507 556355 

012510 612527 

012511 556336 

012512 612527 

012513 556351 

012511 612527 


/ A INF U 
DEC IN 


DEI 


0E2 
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OAC 

. *1 


XI 025200 

LAC 

17700001 

/MILL BECOME 

XI 025290 

XX 


/ 770000. 007700. OR 000077 

X 1025300 

AND* 

REAPTl 


XI 0253 10 

XX 


/ MOVE TO XXOOCO FROM OOXXOQ OR OOtlOXX 

XI 025320 

LRS 

11 

/ MOVE TO 0000XX 

X 1025330 

LMQ 



XI 025310 

ISZ 

REAPT 

/ MOVE POINTER AHEAD 

X 1025350 

LAC 

REAPT 

/ AT ENO OF BUFFER 

XI 025360 

SAD 

TELZZ 


XI 025370 

DZM 

REAPT 

/ YES 

XI 025380 

LAC 

SEOPS 

/SEQUENCE PRINT SWITCH 

XI 025390 

SNA 



xj 025100 

JMP 

.♦II 


X 1 0251 1 0 

LACO 



XI 025120 

SNA 



XI 025130 

JMP* 

RL'AUNP 


XI 025110 

TAD 

1-101 

/CONVERT TO ASCII 

XI 025150 

SPA 



XI 025160 

TAO 

i 1 00 1 


X ! 025s 70 

TAP 

12101 


XI 025180 

JMS 

PRINT 


XI 025190 

L.'CQ 



X 1025500 

JMP* 

REAUNP 


X I 025510 

0 



XI 025520 

0 



X 1025530 

0 



X 1 025510 

INPUT ROU 

- !NE 


XI 025550 

JMS 

DEC IN 


XI 025560 

LL BE SET 

•0-1 If NO number was input 

XI 025570 

0 



XI 025580 

CLC 



XI 025590 

OAC 

AINF 

/ ANY IN FLAG 

XI 025600 

JMS 

FCLA 


X ! 0256 I 0 

JMS 

FFIX 


XI 025620 

JMS 

REAO 


XI 025630 

TAO 

1-601 


X 1025610 

OAC 

TCI 


X 1025650 

SPA 



X 1025630 

JMP 

0E2 


X 1025670 

TAO 

1-121 


XI 025680 

SMA 



XI 025690 

JMP 

0E2 

/ NON numeric terminates 

XI 025700 

ISZ 

AINF 


X 10257 I 0 

NOP 



XI 025720 

JMS 

F INT 


XI 025730 

f MULIS 

l 121 

f MUL BY 10 

XI 025710 

FAODIS 

TCI 


XI 025750 

JMS 

FFIX 

/ FIX INTO BC ,8C* 1 .8C*2.BC«3 

XI 025760 

JMS 

FEXT 


XI 025770 

JMP 

Obi 


XI 025780 

LAC 

TC 


XI 025790 

SAO 

1761 

/ALT MODE 

XI 025800 

JMP 

0E3 


X 1 0258 1 0 

SAO 

• 511 

/COMMA 

XI 025820 

JMP 

0E3 


XI 025830 

SAD 

1101 

/ SPACE 

XI 025810 

JMP 

0E3 


X I 02585C 


E-105 
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104 


018515 

556357 


SAD 

<57i 

/ SLASH 



X 1085860 

018516 

612527 


JMP 

OE3 




X 1025870 

018517 

556358 


SAO 

<531 

/ PLUS 



X 1025880 

018580 

6! 2587 


JMP 

OE3 




XI 025890 

018581 

553353 


SAD 

<551 

/ MINUS 



XI 025900 

018588 

612587 


JMP 

OE3 




X I 02591 0 

018583 

556356 


SAD 

< 5f 1 

/ ASTRIX 



XI 025920 

012524 

612587 


JMP 

0E3 




X 1 025930 

018585 

740800 


SZA 





X 1 025940 

012526 

606746 


JMP 

QUARK 




XI 025950 

012527 

1 l 3545 

DE3 

JMS 

PSIGN 




XI 025960 

012530 

632461 


JMP* 

DEC I N 




XI 025970 

012531 

000000 

TCI 

0 





XI 025980 



/ TELETYPE INPUT BUFFER PACKING ROUTINE 



XI 025990 

01 2532 

000000 

TELPK 

0 





XI 026000 

012533 

673000 


673000 


/ PSL . LMQ. 

CLA. 


X 10260 10 

012534 

640383 


OIV 





XI 026020 

01 2535 

000003 


3 





XI 026030 

012536 

052552 


OAC 

TELST 

, 0,1,2 INDICATING POSITION 

IN WORD 

X 1026040 

012537 

641008 


LACO 





XI 026050 

018540 

358710 


TAO 

TEL8S 

/ BASE AOORESS 


XI 086060 

0 1 254 1 

052713 


OAC 

TELPT1 

/ HORO AOORESS 


XI 026070 

018542 

812552 


L~C 

TELST 




XI 026080 

018543 

653122 


MUL 


/ COMPUTE SHIFTS 


XI 026090 

012544 

000006 


6 





X 1 026 1 00 

012545 

641008 


LACQ 





X I 0261 10 

012546 

356534 


TAD 

! 6405CQ ) 

t LONG RIGHT 

SHIFT 


X 1 026 120 

012547 

052554 


OAC 

TELST? 




XI 026 130 

0 1 2550 

052557 


OAC 

TELST8 




XI 026 140 

01255.1 

632532 


JKP* 

TELPK 




XI 026 150 

018558 

000000 

TELST 

Q 





1C 1026160 

018553 

670614 


67061 u 


/CLQ.LLSS m 

-ISOLATE 6 BITS 

ANO SHIFT 

X 1 026 1 70 

018554 

000000 

TELST 1 

0 


/ TO XX0000. 

OOXXOO. OR ooooxx 

XI 026 180 

012555 

052554 


OAC 

TELST! 




XI0261S9 

0 1 2556 

754008 


claistl 


/ OEVELOPE MASK TO BE 


X 1 026200 

012557 

000000 

TFLST2 

0 


/ 000000. 770000. OR 777700 


XI 0282 10 

012560 

532713 


AND* 

TELPTI 




X 5 026220 

01256! 

352554 


TAO 

TELST 1 

/ COMBINE 



XI02623G 

018562 

072713 


OAC* 

TELP1 I 




XI 026240 

012563 

638552 


JHP* 

TELST 




X 1 026250 



/ teletype buffer 

FILLING ROUTINE 



X 1 02626C 

012564 

740000 

TEL 

NOP 





XI 026270 

012565 

212712 


LAC 

TELPT 




XI 026280 

012566 

l 12532 


JMS 

TELPK 

/ INIT PACK 



XI 026290 

012567 

700312 


KRB 





X 1026300 

012570 

700042 


ION 





XI 0263 10 

01257! 

046725 


OAC 

TS1 




XI 026320 

012578 

556540 


SAO 

<2031 

/ C.C 



XI 026330 

012573 

612646 


JMP 

TEL3 




X 1026340 

018574 

452375 


ISZ 

OSIP 




X 1 026350 

n;8575 

741000 


SKP 





XI 026360 

018576 

632376 


JMP* 

READ! 




X 1026370 

0 1 2577 

152375 


OZM 

OSIP 




XI 026380 

012600 

151563 


OZM 

SEQPS 




XI 026390 

012601 

556403 


SAD 

<3771 

/ RU80UT 



XI 026400 

012602 

612630 


JMP 

TEL 1 




X 10264 10 

012603 

5564 1 0 


SAO 

(815) 

/ C.R. 



XI 026420 

012604 

612700 


JMP 

TEL2 




X 1 026430 


E-106 
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012605 

55654 i 

012606 

612657 

012607 

556542 

012610 

612646 

012611 

556543 

012612 

612672 

012613 

556544 

012614 

612701 

012615 

556545 

0 I 26 1 6 

612675 

012617 

1 12552 

012620 

452712 

01 2621 

212712 

0 1 2622 

55271 1 

012623 

612630 

012624 

1 12532 

012625 

452713 

012626 

172713 

012627 

607436 

012630 

212712 

012631 

552456 

0 1 2632 

607436 

012633 

356337 

012634 

741 100 

0 1 2635 

216546 

012636 

052712 

012637 

1 1 2532 

012640 

750000 

0 I 264 i 

1 12552 

012642 

760334 

0)2643 

I 06752 

012644 

607436 

012645 

000000 

012646 

212645 

012647 

740200 

0 1 2650 

607436 

012651 

440006 

0 1 2652 

452645 

012653 

612652 

0 1 2654 

140006 

012655 

152375 

0 1 2656 

700112 

012657 

760336 

012660 

106752 

G 1 266 1 

750100 

0 1 2662 

346725 

012663 

1 06752 

0 1 2654 

;4006l 

0 1 2655 

152712 

d 1 2666 

152456 

012667 

152364 

012670 

152374 

012671 

106737 

0 1 2672 

7602 1 2 

0 1 2673 

1 06752 

012674 

607436 

012675 

106737 

012676 

216355 
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TEL7 


TEL I 


TEL3 


TEm 


TEL5 


TEL6 


SAO 

JMP 

SAD 

JMP 

SAD 

JMP 

SAD 

JMP 

SAO 

JMP 

JMS 

ISZ 

LAC 

SAO 

JMP 

JMS 

ISZ 

OZM* 

JMP 

LAC 

SAC 

JMP 

TAD 

SPA 

LAC 

OAC 

JMS 

CLA 

JMS 

LAU 

JMS 

JMP 

0 

LAC 

SZA 

JMP 

ISZ 

ISZ 

JMP 

OZM 

OZM 

RR8 

LAU 

JMS 

LAU 

TAO 

JMS 

OZM 

OZM 

OZM 

OZM 

OZM 

JMS 

LAU 

JMS 

JMP 

JMS 

LAC 


(225) 
TEm 
( 220 ) 
TEL3 
.212) 
TEL5 
(273) 
TEL8 
(376) 
TEL6 
TELST 
TELPT 
TELPT 
TELZZ 
TEL I 
TELPK 
TELPT I 
TELPT I 
RET 
TELPT 
RE APT 
RET 
(-1 I 


/ C.U 
/CP 
/ '..F 

/ SEMICOLON 
/ ALTMOOE 
/ PACK CHARACTER 

/ OONT INPUT TOO MANY CHARS. 


/ OON ' T ALLOU TOO MANY RUBOUTS 


(27»*l 

TELPT 

TELPK / INIT PACK 

TELST / STORE 00 

339 

PRINT 

RET 

/CHECK IN CASE HE ARE ALREAOY COUNTING 

RET 

STPOUT /CONTROL C OR P 

TEL3- 1 

.-I 

STPOUT 

OSIP 

/ CLEAR PAPER REAOER 
336 / CONTROL U OR P 

PRINT 
100 
TSI 
PRINT 
PPG 
TELPT 
RE APT 
TELMO 
REAQP 
CRLF 

212 / LINE FEED 

PRINT 

RET 

CRLF /ALT MOOE 

(76) 


X 1 026 l »40 
X 1 026450 
X 1 026*460 
X 1026970 

X 1 026*480 

XI 026*490 
XI 026500 
XI 0265 10 
X 1 026520 
XI 026530 
X 10265*40 
XI 026550 
XI 026560 
XI 026570 
X 1 026580 
XI 026599 
XI 026600 
X 1 0266 1 G 
X 1026620 

X 1 026630 

XI 0266*40 
XI 026650 
XI 026660 
XI 026670 
XI 026680 
XI 026690 
XI 026700 
X 1 02671 0 
XI 026720 
X102673G 
X 1 0267*40 
XI 026750 
XI 026760 
XI 026770 
X 1 026780 

X 1 026790 
XI 026800 
XI 0268 10 
XI 026820 
XI 026330 

XI 0268*40 
XI 0268*45 
XI 026850 
XI 026860 
XI 026870 
XI 026880 
XI 026890 
XI 026900 
XIU26PI0 
XI 026920 
XI 026930 
XI 0269*40 
XI 026950 
X 1 026960 
XI 026970 
X 1026980 
XI 026990 
X 1027000 
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03/02/73RALPH RIC C- DAVIES 


PDP-9 


018677 

618617 


JMP 

TEL7 

018700 

106737 

TEL8 

JMS 

CRLF 

018701 

754000 

TEL8 

CLAICLL 


018708 

I 18558 


JMS 

TELST 

018703 

458718 


tsz 

TELPT 

018704 

818718 


LAC 

TEl *T 

018705 

5587! 1 


SAO 

TELZZ 

018706 

158718 


DZM 

TELPT 

018707 

SI 8301 


JMP 

CDDC 

018710 

034400 

TELBS 

34400 


01871 1 

000875 

TELZ2 

875 


018718 

000000 

TELPT 

0 


018713 

OUOOOO 

TELPT1 

0 


018714 

000000 

TC 

0 

/ TERM 1 NAT 



/ ZERO 

OUT SETUP 

VARIABLES 

018715 

400058 

I SET 

XCT 

XCTBKG 

018716 

346133 


TAO 

DECNMA 

018717 

040855 


OAC 

ZERTEM 

01 8780 

777440 


LAW 

-340 

018781 

101636 


JMS 

ZEROUT 

0 1 8788 

606857 


JMP 

RETC 

018783 

1 18001 

SPACE 

J* S 

SET VAR 

0 1 8784 

I 18144 


JMS 

QA 

0 1 8785 

760081 


LAW 

81 

018786 

413086 


XCT 

MESS87 

018787 

030164 


T C P S 


018730 

413033 


XCT 

MESS88 

01873! 

030805 


BOTS 


018738 

606857 


JMP 

RETC 

018733 

033 71 1 

MESS94 

071711 

/ COI 

018734 

164084 


164084 

/NT 

018735 

174015 


174015 

/ 0 M 

018736 

010778 


010778 

/ AG: 

0*18737 

400000 


400000 


018740 

040184 

MESS84 

040184 

/ OAT 

018741 

014084 


014084 

/AT 

018748 

174015 


I 740 I 5 

/ 0 M 

018743 

010778 


010778 

/ AG: 

018744 

400000 


400000 

/ SPACE 

018745 

83840! 

MESS85 

838401 

/ STA 

018746 

888440 


888440 

/ RT 

018747 

841115 


841 1 15 

/ TIM 

018750 

057840 


057840 

/ E: 

018751 

000000 


0 


018758 

8384*7 

MESS86 

838417 

/ STO 

018753 

804084 


804084 

/ PT 

018754 

l 11505 


1 i 1505 

/ IME 

018755 

784000 


784000 

/ : 

018756 

048515 

MESS95 

048515 

/ DUM 

n 12757 

80401 l 


80401 1 

/ P 1 

018760 

168405 


168405 

/ NTE 

018761 

88860! 


888601 

/ RVA 

018768 

1 47840 


147840 

/ L 

018763 

000000 


0 


018764 

808805 

MESS96 

808805 

/ PRE 

018765 

830584 


830584 

/ SET 

018766 

40141 1 


40141 ! 

/ L! 

018767 

860540 


860540 

/ VE 


X I 0870 1 0 
X I 027020 
XI 087030 
XI 087040 
X I 087050 
X I 027060 

X I 087070 
X 1087080 
XI 087090 
XI 087 l 00 
XI 0871 I 0 
X) 087 180 

XI 087 130. 

ING CHARACTER ON DEC IN X 1087160 

XI 087 I 70 
XI 087 I 80 
X 1 087800 
X I 0878 1 0 
XI 087880 
X I 087230 
XI08784Q 
XI08785C 
XI 087860 
X I 087870 
X I 087880 
XI 087890 
X 1 087300 
X 1 0873 I 0 
X 1 087380 
X 1 087330 
X 1 087340 
X 1 087350 
XI 087360 
X 1 087370 
XI 087380 
X 1087390 
XIO87H00 
Xi0874!0 
XI 087480 
X l 087430 
X l 087440 
XI 087450 
XI 087460 
X 1 087470 
X 1087480 
X 1 087490 
XI 087500 
XI 0875 10 
XI 087580 
X 1087530 
XI 087540 
XI 087550 
X 1087560 
X 1 087570 
XI 087580 
XI 087590 
XI 087600 
XI 0876 10 
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I 


m 


012770 

241115 


241 I 15 

/ TIM 

01277 I 

057200 


057200 

/ E: 

012772 

202516 

MESS83 

202516 

/ PUN 

012773 

031040 


031 OHO 

/ CH 

0 1 2774 

200120 


200120 

/ PAP 

012775 

052272 


052272 

/ ER 

012776 

*“00000 


400000 


012777 

42516 

MESS90 

IH25I6 

/ LUN 

013000 

0 I 2272 


0 1 2272 

/ AR 

0 I 300 1 

40000C 


400000 


013002 

150524 

MESS91 

150524 

/ MET 

013003 

051722 


051722 

/ EOR 

01 3004 

1 12405 


1 I2H05 

/ 1TE 

013005 

724000 


724000 

/ 

01 3006 

112317 

MESS92 

1 12317 

/ ISO 

013007 

241720 


241720 

/ TOP 

013010 

057240 


057240 

/ E 

013011 

000000 


0 


013012 

070516 

MESS93 

070516 

/ GEN 

013013 

052201 


052201 

/ ERA 

0130 m 

1 47240 


1 ’-7240 

/ L 

013015 

000000 


0 


013016 

1 1^015 

MESS81 

I 14015 

/ I M 

013017 

01 1624 


01 1624 

/ ANT 

013020 

1 40572 


1 40572 

/ EL 

013021 

400000 


400003 


013022 

174015 

MESS82 

17401 > 

/ 0 M 

013023 

0 I 1624 


0: 162V 

/ ANT 

01 3024 

140572 


1 40572 

/ EL 

013025 

400000 


400000 


013026 

24 1 720 

MESS07 

241720 

/ TOP 

013027 

402320 


402320 

/ SP 

0I3C30 

01C31 1 


01031 1 

/ AC I 

013031 

160772 


160772 

/ NG 

0 i 3032 

400000 


400000 


013033 

021724 

MESS88 

021724 

/ BOT 

013034 

402320 


402320 

/ SP 

013035 . 

01031 1 


01031 1 

/ ACI 

013036 

160772 


160772 

/ NG 

013037 

400000 


400000 


0I3G40 

220505 

MESS97 

220505 

/ REE 

G 13041 

147240 


\ 47240 

/ L 

0130142 

000000 


0 


0 1 30*43 

2703! I 

MESS89 

27051 1 

/ WEI 

CI3G44 

071024 


071024 

/ GHT 

0I30H5 

724000 


724000 


013046 

0701 1 1 

MESS80 

07011 1 

/ GA| 

013047 

167240 


167240 

/ N 

013050 

000000 

/ MINI FP 

0 




/ CWR 

AUG 

1970 


/ floating point package with limited FUNCTIONS 

/ FMUL, F08V. FADD. 1 SOR TAKEN FROM PACKAGE BY MRM 
/ ENTER BY JUS DINT 

/ INDIRECT MILL AUTOMATICALLY INCREMENT POINTER 
/BY ONE IF SINGLE ANO BY THREE 2F FLOATING 
/ * JMS FEXT- HILL EXIT 

/ * JMS * . * I SZ ’ AND * JMP ' ARE LEGAL INTERPRETIVE INSTRUCTIONS 


x:o?76ao 
X I 027630 
xioaieno 
XI 057650 
X 1 027660 
X 1 037670 
X I 027690 
XI 027690 
X 1027700 
X I 02*77 I 0 
XI 027720 
X I 027730 
X I 027740 
XI 027750 
XI 027760 
XI 0277 7C 
X I 027780 
X 1 027790 
X 1 027800 
XI 0270 10 
XI 027820 
X I 027030 
X 1 027840 
XI 027850 
XI 027860 
XI 027870 
y 1027880 
XI 027890 
XI 027900 
XI 0279 10 
XI 027920 
X 1 027930 
X 1 027940 
XI 027950 
XI 027960 
XI 027970 
XI 027900 
XI 027990 
XI 028000 
XI 0280 10 
X I 028020 
XI 028030 
X I 028040 
X 1 028050 
X 1028060 
XI 028070 
XI 026080 
XI 028090 
XI 028 100 
XMFPOOOO 
XMFP001 0 
XMFP0020 
XMFP003G 
XMFP0040 
XMFP0050 
XMFP0060 
XMFP0070 
XMFP0090 
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/ HOWEVER 

THE SUBROUTINE ENTERED 8Y JMS 1 MUST BE NORMAL MOOE 

XMFP009G 



/ F XXX IS 

MEANS ARGUMENT IS POSITIVE 18 BIT INTEGER 

XMFP01G0 



/ FLOATING POINT 

INSTRUCTIONS 


XMFPOl 10 



FLA0200000 

/ (LAC> 

LOAO FAC 

XMFPOiaO 



FOAOOOOOOO 

/ (CAL ) 

OEPOSITE FAC 

XMFPO l 30 



FAJD-300000 

/ ( ADD) 

A00 TO FAC 

XMFPOl 40 



FMUL-500000 

/ ( ANO ) 

MUL FAC 

XMFPOl 50 



FOIV-700000 

/( I0TI 

01 V FAC 

XMFPO 1 60 



S-400G0 


/INDICATES INTEGER ARGUMENT 

XMFPO 1 70 



/ FLOATING POINT 

INTERPRETOR 


XMFPO 1 80 

013051 

000000 

FINT 

0 



XMFPO 1 90 

013052 

155220 


OZM 

OH 

/ SET DATA MCDE TO 3 WORO 

XMFPOaOO 

013053 

213051 


LAC 

FINT 


XMFPOaiO 

0J3054 

516342 


ANO 

(60000) 

/ GET EXTENDED MEMORY BITS 

xMFPoaao 

013055 

652000 


LMQ 



XMFP0330 

013056 

233051 


LAC* 

FINT 

/ PICKUP INSTRUCTION 

XIIFP0340 

0 1 3057 

516460 


ANO 

( 17777) 


XMFP0350 

013060 

640002 


OHQ 



XMFP0260 

013061 

053423 


OAC 

AOR 

/ ADDRESS 

XMFP0270 

013062 

233051 


LAC* 

FINT 

/ SAVE 

xMFPoaeo 

013063 

526343 


ANO 

(40000) 

/ PRECISION 

XMFPG390 

013064 

053424 


0A~ 

FPRE 

/ INDICATOR 

XMFPO JOG 

013065 

233051 


LAC* 

FINT 


XMFPQ3 1 0 

013066 

516453 


ANO 

(20000) 

/ INDIRECT? 

XMFPQ330 

013067 

"745200 


SNA 1 CL'. 



XMFP0330 

013070 

613073 


JMP 

FINTI 

/ NO 

XMFP0340 

0 1 307 1 

233423 


LAC* 

AOR 


XMFP035G 

053072 

053423 


OAC 

ADR 


XMFP0360 

013073 

233051 

FINTI 

LAC* 

FINT 


XMFP0370 

0 I 3074 

640517 


LRS 

17 

/ GET OP CODE 

XMFP0380 

013075 

353201 


TAO 

. ♦ 4 


XMFP0390 

013076 

053100 


OAC 

. ♦a 


XMFP0400 

013077 

213425 


LAC 

ACS 

/PICKUP AC ARGUMENT INCASE OF JMS 

XMFPU41Q 

013100 

oouooo 


0 



XMFP0420 

013101 

613102 


JMP 

. ♦! 


XMFP0430 

013102 

613130 


JMP 

JDAC 

/ 0 - FOAC 

XMFP0440 

013103 

6131 15 


JMP 

JJMS 

/ I - JMS 

XMFP0450 

G 1 3 1 

613166 


JMP 

JLAC 

/ a - flac 

XMFP0460 

013105 

613171 


JMP 

JAOO 

/ 3 - F T AO 

XMFP0470 

013106 

613124 


JMP 

JlSZ 

/ 4 - ISZ 

XMFPO40O 

013107 

613247 


JMP 

JMUL 

/ 5 - FMUL 

XMFP0490 

0131 10 

613121 


JMP 

J JMP 

/ 6 - JMP 

XMFP0500 

013111 

613335 


JMP 

JDI V 

/ 7 - FDIV 

XMFP05 1 0 

0131 12 

000000 

F£XT 

0 


/EXIT FROM INTERPRETOR 

XMFP0530 

013113 

453051 


ISZ 

FINT 


XMFP0530 

0131 m 

633051 


JMP* 

F INT 


XMFP0540 

0131 15 

133423 

JJMS 

JKS* 

AOR 

/ EFFECT A REGULAR JMS 

XMFP0550 

0131 16 

453051 

FNEXT 

ISZ 

FINT 

/ GET NEXT INSTRUCTION 

XMFP0560 

013117 

/mOOOO 


NOP 



XMFP0570 

0 1 3 1 ao 

613053 


JMP 

f i n r ♦a 


XMFP0580 

013121 

213423 

jj;ip 

LAC 

AOR 

/ EFFECT * REGULAR JMP 

XMFP0590 

0131 22 

053051 


OAC 

F INT 


XMFP060.*) 

013123 

613053 


JMP 

F I NT ♦a 


XMFPG6 1 0 

013124 

473423 

JlSZ 

ISZ* 

ADR 

/ EfFECT A REGULAR ISZ 

XMFP06a0 

013225 

741000 


SKP 



XMFP0630 

013126 

453051 


ISZ 

FINT 


XMFP0640 

013127 

6131 16 


JMP 

FNEXT 


XMFP0650 

013130 

213424 

JDAC* 

LAC 

FPRE 

/ FLOATING? 

XMFP0660 


on-: 


03/02/73RALPH RIC C. OAVIES POP-9 


013131 

7HI200 


013132 

613137 


013133 

1 1 3506 


0I3I3H 

1 1 35HS 


013135 

073H23 


013136 

6131 16 


013137 

2I3HI7 


01 31 HO 

7H6020 


0 1 31 H 1 

253H21 


0 1 3 1 H2 

652000 


0I31H3 

a 15220 


0I3IHH 

7H5200 


0 1 3 1 H5 

7HH002 


0I3IH6 

2I3H22 


013IH7 

7H1H00 


0I3I5C 

613156 


013151 

5165H7 


013152 

053HI6 


013153 

213H20 


013I5R 

516550 


0 I 3 1 55 

253HI6 


013156 

073H23 


013157 

6 H 1002 


013160 

H53H23 


013161 

073H23 


013162 

7HHH00 


013163 

6131 16 


013I6H 

2I3H20 


013165 

613160 


013166 

1 1 355H 

JLAC 

013167 

1 I 3620 


013170 

6131 16 


313171 

I 1 355 H 

JAOO 

313172 

l I37IH 


313173 

613116 


JI3I7H 

1 1 3702 


11 3 1 75 

61 3167 


1 1 3 1 76 

1 1 3731 


11 31 77 

7HI 100 


H3200 

I 1 3620 


13201 

21 3H1H 


13202 

101772 


13203 

353H20 


I320H 

7HI20I 


13205 

6I322H 


13206 

65200H 


13207 

356361 


13210 

7H1 100 


1321 1 

Cl 31 16 


13212 

6 H 1002 


i 32 1 3 

256551 


I32IH 

053220 


3215 

21 3H16 


3216 

652000 


3217 

2I3HI5 


3220 

7R00R0 


3221 

053H 1 5 


3222 

6 H 1002 



J^r'4 


• • • 





SNA 

JMP . »5 

JMS FF | x 

JNS FSIGN 

OAC • ADR 

FNEXT 

LAC AC 

CLL IRTR 


XOR 

LMQ 

LAC 

SNA I CLL 

STL 

LAC 

SZL 

•JHP 

AND 

OAC 

LAC 

AND 

XOR 

r>AC» 

LACO 

ISZ 

OAC* 

SNL I CLL 
JHP 
LAC 
JHP 
JH S 
JMS 
JMP 

jus 

UMS 

JHP 

JMS 

JH* 

JMV 

CPA 

JMS 

LAC 

JMS 

TAD 

SNA I CM \ 
JHP 

LMOlCMQ 

TAO 

SPA 

JMP 

LACQ 

XOR 

OAC 

LAC 

LMQ 

LAC 

XX 

OAC 

LACO 


AC *2 
OM 


AC *3 
. *6 

t 777000 1 
BC*3 
AC* I 
17771 
BC*3 
ADR 

AOR 
AOR 

FNEXT 
AC* I 
.-5 
ASET 
XAB 
FNEXT 
ASET 
BCZ 
FNEXT 
ACZ 
,JLAC*I 
CASO 

XAB 
8 C* I 
CIA 
AC* I 

.♦17 

<H3l 

FNEXT 

<660500 

. *H 
BC*3 

BC*2 

sc*a 


/ YES . 

/ NO- INTEGER 


/ MOOE? 

/ 3 

f OAT A MODE 5 ? 

/ NO 

/ YES, PACK LOW MANTISSA 
' AN0 EX p INTO ONE WORD. 


/ DEPOSIT 1 ST WORD. 


' DEPOSIT 2N0 WORO. 
/ OATA MODE 3? 

/ YES 

'• STORE EXP 


1 IS AOOENO ZERO? 

' YES. DONE 
' IS AUOENO ZERO? 

/YES MOVE AOOENO TO FAC 
> COMPARE MAGNITUDES 
' ,s AOOENO GREATER 
' YES. EXCHANGE 
/ CAL EXPONENT 
/DIFFERENCE FOR 
/ 0EN0RMAL2ZATI0N 
/ IS DIFFERENCE ZERO 

/ NO. SHIFT •NQ’ TO RIGHT 
/ UNTIL EXPONENTS 
/ ARE EQUAL 
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XMFP067Q 

XMFP0680 

XMFP0690 

XMFP0700 

XMFP07 I 0 

XMFP0720 

XMFP0730 

XMFP07H0 

XMFP0750 

XMFP0760 

XMFP0770 

XMFPQ780 

XMFP0790 

XMFP0800 

XMFPQBIO 

YMFPoeao 

XMFP0830 

XMFP08H0 

XMFPQBSO 

XMFP0860 

XMFP0870 

xmfposc’o 

XMFP0890 
XMFP0900 
XMFP09I 0 
XMFP0920 
XMFP0930 
XMFP09H0 
XMFP0950 
XMFP0960 
XMFP0970 
XHrfijQBC 

X MFP0990 
XMFPIOOO 
XMFP! 0 I 0 
XMFP 1020 
XMFP | 039 
XMFP | OHO 
XMFP | 050 
XMFP | 060 
XMFP | 070 
XMFP | 080 
XMFP | 090 
XMFP | 100 
XMFP | no 

XMFP I 120 
XMFP i 130 
XMFP U HO 
XMFP | 150 
XMFP | 160 
XMFP 1 17) 
XMFP) 100 
XMFP I 190 
XMFPI800 
XMFPI8I0 
XMFP 1280 
XMFP I 230 
XMFP 1 2H0 
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013223 

053416 

DAC 

BC + 3 

013224 

113722 

JMS 

SON 

0 I 3225 

745200 

CLL ! SNA 


013226 

61 3237 

JMP 

.♦11 

013227 

213416 

LAC 

80 3 

033230 

101772 

JMS 

CIA 

013231 

053416 

OAC 

BCM 

013232 

213415 

LAC 

802 

013233 

741401 

SZLICMA 


0 1 323** 

3563.5 

TAO 

( 1 ) 

013235 

053415 

OAC 

eo2 

013236 

744000 

CLL 


013237 

213422 

LAC 

AC + 3 

0132i*0 

353416 

TAO 

BCM 

01 3241 

053422 

OAC 

AC *3 

0 1 3242 

750010 

GLK 


013243 

353421 

TAO 

AC *2 

013244 

353415 

TAO 

802 

0 1 32*5 

053421 

OAC 

AC *2 

01 3246 

6 1 3676 

JMP 

ACT 

0 1 3247 

1 1 355** 

JMUL ‘MS 

ASET 

0 l 3250 

l 1 3722 

JMS 

SGN 

01325! 

053417 

OAC 

AC 

013252 

213420 

LAC 

ACM 

0 l 3253 

3534 1 4 

TAO 

9C+ 1 

0 1 3254 

053420 

OAC 

ACM 

0 l 3255 

213416 

LAC 

803 

013256 

744010 

RCL 


013257 

053270 

OAC 

.M 1 

013260 

053307 

OAC 

.♦27 

013261 

213415 

LAC 

802 

0 1 3262 

740010 

RAL 


013263 

053274 

OAC 

.Ml 

0 1 3264 

053324 

OAC 

. ♦HO 

0 1 3265 

153415 

0 Z* 

802 

0 1 3266 

213422 

LAC 

ACM 

013267 

653122 

K'.JL 


011270 

740040 

HL T 


0 1 327 I 

053413 

OAC 

ec 

013272 

21 3422 

LAC 

ACM 

013273 

653122 

MUL 


013274 

740040 

HLT 


0 1 3275 

053414 

OAC 

BO 1 

013276 

641002 

LACQ 


013277 

353413 

TAO 

BC 

013300 

053413 

OAC 

BC 

0 1 330 1 

745400 

SZL 1 CLL 


013302 

*-;534!4 

ISZ 

BCM 

013303 

745000 

SKPiCLL 


013304 

453415 

ISZ 

802 

013305 

2 1342 I 

LAC 

AC + 2 

013306 

653122 

MUL 


013307 

74004* 

HLT 


013310 

353414 

TAO 

BO 1 

01331 1 

0534 14 

OAC 

BC ♦ 1 

013312 

745400 

SZL \ CLL 


013313 

453415 

ISZ 

002 

013314 

64 1002 

LACO 
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XMFP 1850 

/ COMPARE SIGNS. XMFP I 260 

/ DIFFERENT? XMFP1270 

/ NO XMFPI280 

/ YES. COMPLEMENT • MQ ' XMFPI290 


XMFFI300 
XMFPI 310 
XMFP1320 
XMFP I 330 
XMFPI 3M0 
XMFPI 350 
XMFPI 360 

I PERFORM DOUBLE XMFPI 370 

/ PRECISION ADD XMFPI 380 

XMFPI 390 
XMFPI MOO 
XMFPI 410 
XMFPI 420 
XMFPI 430 

/ NORM ANO LEAVE XMFPI440 

XMFPI 430 
XMFPI 460 
XMFPI 470 
XMFPI 480 
XMFP I 490 
XMFPI500 
XMFPI5I0 
XMFP I 520 
XMFP I 530 
XMFP 1 540 
XMFP l 550 
XMFP l 560 
XMFP I 570 
XMFP I 580 
XMFP 1 590 
XMFP 1 600 
XMFP 16 10 
XMFP I 620 
XMFP 1 630 
XMFP 1640 
XMFP 1650 
XMFP I 660 
XMFP I 670 
XMFP I 660 
XMFP I 690 
XMFP I 700 
-XMFP 1710 
XMFP I 720 
XMFP I 730 
XMFP 1740 
XMFP I 750 
XMFP 1760 
XMFP 1770 
XMFP I 780 
XMFP 1790 
XMFP I 800 
XMFP 18 10 
XMFP I 820 
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w 


013315 

353413 

013318 

745400 

013317 

451414 

0133*0 

745000 

0133*1 

453415 

0133*2 

Si 3421 

013323 

653122 

013324 

740040 

013325 

353415 

0 1 3326 

05342 1 

013327 

641002 

013330 

353414 

01333! 

053422 

013332 

745400 

013333 

45342! 

01 3334 

613676 

013335 

1 ! 3554 

013336 

213700 

013337 

153700 

013340 

744200 

01334! 

1 1 3620 

013342 

113702 

013343 

6131 16 

0 \ 3344 

113714 

013345 

613674 

013346 

I 13722 

013347 

053417 

013350 

213414 

013351 

101772 

013352 

353420 

013353 

033420 

013354 

213416 

013355 

744010 

0 1 3356 

053366 

0 1 3357 

213415 

013360 

740010 

013361 

053370 

013362 

053401 

013363 

053407 

013364 

213421 

013365 

653122 

013366 

740040 

013367 

640323 

013370 

740040 

013371 

64 1 002 

013372 

101772 

013373 

353422 

013374 

<552000 

013375 

754400 

013376 

74000! 

013377 

S5342 ! 

013400 

660323 

013401 

74004C 

013402 

053416 

013403 

64100? 

013404 

053421 

013405 

213416 

013406 

650323 


joiv 
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TAO 

BC 

SZLICLL 


ISZ 

•CM 

SKPICLL 


!SZ 

BC *2 

LAC 

AC*2 

HUL 


HLT 


TAO 

8C*2 

OAC 

AC ♦* 

LACO 


TAO 

BCM 

OAC 

AC * 3 

5ZLICLL 


IS Z 

AC *2 

JMP 

AOT 

JUS 

ASCT 

LAC 

SI01V 

OZM 

SIOIV 

SZAICLL 


.MS 

XAB 

JHS 

ACZ 

JMP 

FNEXT 

JHS 

BCZ 

JMP 

fzac 

JMS 

SGN 

OAC 

AC 

LAC 

BC ♦ l 

JHS 

CIA 

TAO 

AC ♦ 1 

OAC 

AC* 1 

LAC 

BC ♦ 3 

RCL 


DmC 

. MO 

LAC 

CD 

O 

4 

ro 

RAl 


LAC 

. *7 

OAC 

• M 7 

OAC 

. *24 

LAC 

AC *2 

HUL 


HLT 


OIV 


HLT 


LACO 


JHS 

CIA 

TAO 

AC * 3 

LHO 


SNL ICLAICLL 

CMA 


TAO 

AC ♦(? 

330323 


HLT 


OAC 

BC ♦ 3 

LACQ 


OAC 

AC 

LAC 

BC*3 

FRO ! V 



XMf P 1 830 

XMFP1840 

XMFP I 850 

XMF P I860 

XMFP1870 

XMFP! 880 

XMFP I 890 

XHFP I 900 

Xf1FPl9IO 

XMFP 1 920 

XMFPI930 

XMFP I 940 

XMFP 1 950 

XMFP I 96 C 

XMFPI970 

XMFP | 960 

XMFP I 990 

XMFP2000 

XMFP20 I 0 

XMFP2020 

XMFP2030 

XMFP20H0 

XMFP2050 

XMFP2060 

XMFP2070 

XMFP2080 

XMFP2090 

XMFP2I00 

XMFP2I 10 

XMFP2I20 

XMFP2 1 30 

XMFP2 I HO 

XMFP2 1 50 

XMFP2IS0 

XMFP2I70 

XMFP2I 80 

XMFP2I90 

XMFP2200 

XMFP22I0 

XMFP2220 

XMFP2230 

XMFP224Q 

XMFP2250 

XMFP2260 

XMFP2270 

XMFP2280 

XMFP2290 

XMFP2300 

XMFP23I0 

XMFP232 J 

XMFP2330 

XMFP2340 

XMFP2350 

XMFP2360 

XMF P2 370 

XMFP2380 

XMFP2390 

XMFP2400 
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01 3407 

013410 

01341 I 

013412 

013413 

013414 

013415 

013416 

013417 

013420 

013421 

013422 

013423 

013424 

013425 

0 1 3426 

013427 

013430 

013431 

013432 

013433 

013434 

013435 

013436 

013437 

01 3440 

01 3441 

013442 

013443 

013444 

013445 

013446 

013447 

013450 

013451 

013452 

013453 

013454 

013455 

013456 

C 1 3457 

0 1 3460 

013461 

013462 

013463 

013464 

013465 

0 I 3466 

013467 

013470 

013471 
01 3472 
013473 
013474 
013475 
013476 
013477 


740040 
641002 
053422 
613676 
000000 
000000 
000000 
000000 
OOJOOO 
UOCOOO 
000000 
OOOOOG 
000000 
000000 
000000 
000000 
213421 
744120 
613440 
053421 
213422 
740020 
053422 
453420 
633426 
1 13702 
633426 
21 3422 
652000 
213421 
660444 
053421 
641002 
053422 
777700 
640001 
356361 
740001 
353420 
053420 
633426 
000000 
053422 
153421 
216361 
053420 
7500 !0 
0534 17 
1 13426 
633460 

000000 
1 I 3476 
1 12274 
1 1 3460 
633471 
000000 
053505 


8C 


AC 


AOR 

FPRE 

ACS 

NOR 


FLOAT 


/FLOAT 

FM 


strpcm 
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HLT 

LACQ 

DAC 

JMP 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

LAC 

SMA1CLL 

JMP 

DAC 

LAC 

RAR 

DAC 

1SZ 

JMP* 

JMS 

JMP* 

LAC 

LMQ 

LAC 

NORMS 

DAC 

LACO 

OAC 

< AW 

OSC 

TAO 

CMA 

TAO 

DAC 

jMP • 

0 


AC + 3 
AOT 


AC+2 
RAR 
.♦7 
AC + 2 
AC *3 

AC *3 
AC* 1 
NOR 
ACZ 
NOR 
AC + 3 

AC + 2 

AC +2 

AC + 3 
- 1 00 

(43) 

AC ♦ 1 
AC ♦ I 
NOR 


/ ARGUMENT CONTAINER 


FLOATING AC 


/ IF ZERO WE ARE 
/ DONE 

/ norm mantissa 


/ adjust exponent 


/ FLOAT 18 BIT POSITIVE 


OAC 

AC ♦ 3 



OZM 

AC + 2 



LAC 

1 43 J 



OAC 

AC + i 



GLK 




OAC 

AC 



JMS 

NOR 



JMP 0 

FLOAT 



BIT 2 

S COMP. INTEGER. USEO BY 

STRIP 

0 




JMS 

STRPCH 

/ SKIP ! F NOT IN STRIP 

JMS 

SC I A 

/COMPLEMENT 

IF NEG 

JMS 

FLOAT 



JMP * 

FM 



0 




DAC 

.♦5 

/ SAVE AC . 

- 


integer 


XMFP24I 0 

XMFP2420 

XMFP2430 

XMFP2440 

XMFP2450 

XMFP2460 

XMFP2470 

XMFP2480 

XMFP2490 

XMFP2500 

XMFP2510 

XMF 'e520 

XM P2530 

X 1FP2540 

XMFP2550 

XMFP2560 

XMFP2570 

XMFP2580 

XMFP2590 

XMFP2600 

XMFP26 1 0 

XMFP2620 

XMFP2630 

XMFP2640 

XMFP2650 

XMFP2660 

XMr P26.70 

XMFP2680 

XMFP2690 

XMFP2700 

XMFP27I 0 

XMFP2720 

XMFP2730 

XMFP2740 

XMFP2750 

XMFP2760 

XMFP2770 

XMFP2780 

XMFP2790 

XMFP2800 

XMFP28I0 

XMFP2820 

XMF P28S0 

XMFP2840 

XMFP2850 

XMFP2860 

XMFP2870 

XMFP2880 

XMFP209O 

XMFP2S00 

XMFP2910 

XMFP2920 

XMFP2930 

XMFP2940 

XMFP2950 

XMFP2960 

XMFP2970 

XMFP2980 
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013500 

200053 


LAC 

strpfg 



XM/'P2990 

013501 

741200 


SNA 


/ 

IN STRIP? 

XMFP3000 

013502 

453476 


ISZ 

STRPCH 

/ 

NO. 

XMF ° 30 l 0 

013503 

213505 


LAC 

.♦2 

/ 

GET AC. 

XMFF3020 

01 3504 

633476 


JMP* 

STRPCH 



XMFP3030 

011505 

000000 


0 




XMFP3040 

013506 

000000 

FF IX 

0 




XMFP3050 

013507 

213420 


LAC 

AC ♦ 1 

/ 

CHLCK EXPONENT- IF NEGATIVE 

XMFP3060 

013510 

"’44101 


SMAICLL ICMA 

/ 

COMPUT FRACTION- IF NOT ADD 

XMFP3070 

01351 I 

356552 


TAO 

(441 

• 

44 AND COMPUTE INTEGER 

XMFP3080 

013512 

516530 


AND 

(77) 



XMFP3090 

013513 

256551 


XOR 

(6605001 



XMFP21 GO 

013514 

053520 


OAC 

. *4 



XMFP3I 1 0 

013515 

213422 


LAC 

AC* 3 



XMFP3I20 

013516 

652000 


LMO 




XMFP3 1 30 

013517 

213421 


LAC 

AC*2 



XMFP31 40 

0 I 3520 

000000 


0 


/ 

OENORMALIZE 

XMFP3I50 

0 1 352 I 

0534 14 


OAC 

8C*1 

/ 

HIGH PART OF INTEGER OR 

XMFP3I60 

013522 

053416 


OAC 

ac*3 

/ 

FRACTION IF EXPONENT IS NEGATIVE 

XMFP3I70 

013523 

641002 


LACO 




XMFP3180 

013524 

0534 15 


OAC 

9C *2 

/ 

LOW PART OF INTEGER 

XMFP319G 

0 1 3525 

213420 


LAl 

AC* I 

/ 

CHECK EXPONENT AGAIN 

XMFP3200 

0 1 3526 

740100 


SNA 




XMFP32I0 

0 1 3527 

613533 


JMP 

. *4 



XMFP3220 

053530 

1534 I 4 


OZM 

BC ♦ 1 

/ 

RETURN ZERO ♦ FRACTION 

XMFP3230 

013531 

153415 


DZM 

9C*2 



.XMFP32mO 

01353c 

633506 


JMP* 

FF 1 X 



XMFP3250 

01353;* 

356315 


TAD 

i 1 1 

/ 

COMPUTE FRACTION 

XMFP3260 

013534 

516530 


AND 

(771 



XMFP3270 

013535 

256553 


XOR 

(560600) 



XMFP3280 

013536 

053542 


OAC 

. *4 



XMFP3290 

01353V 

233422 


LAC 

AC ♦ 3 



XHFP3300 

013540 

652000 


LMO 




XHFP33I0 

0 ! 354 ! 

213421 


LAC 

AC *2 



XMFP3320 

0 1 3342 

000000 


0 


/ 

LEFT JUSTIFY FRACTION 

XMFP3330 

013543 

053416 


OAC 

BC * 3 



XMFP3340 

013544 

633506 


JMP* 

FF I X 



XMFP3350 

0 1 3545 

000000 

FSIGN 

0 




XMFP3360 

013546 

213417 


LAC 

AC 



XHFP3370 

0 1 35**7 

740020 


RAR 




YMFP3380 

013550 

213415 


la: 

8C*2 

/LOW ORDER PART 

XMFP33*0 

013551 

741400 


SZL 


/NEC*? 

XMFP3400 

0 1 3052 

101772 


JMS 

CIA 

/YES. COMPLEMENT 

XMFP3410 

013353 

633545 


JMP* 

FSIGN 



XMFP3420 

0 1 3*54 

000000 

ASET 

0 


/ 

GET ARGUMENT ANO PLACE IN 8C 

XMFP343C 

0 1 3*55 

213424 


LAC 

FPRE 

/ 

NON ZERO MEANS INTEGER 

XMFP3440 

0 13656 

741200 


SNA 




XMFP345^ 

0 1 3057 

6 J 3567 


JMP 

.♦10 



XMFP3460 

0 1 3560 

1 13620 


JMS 

XA8 



XMFP3470 

0 , 356 1 

233423 


LAC* 

ADR 



XMFP3480 

013562 

053425 


OAC 

/cs 

/SAVE FOR JMS ARGUMENT PASSING 

XMFP3490 

0 1 3563 

744000 


CLL 




XMFP3500 

0 13564 

1 1347 3 


JMS 

FM 



XMFP35 I 0 

013565 

I 13620 


JMS 

XA8 



XMFP3520 

0 1 3566 

633554 


JMP* 

ASET 



XMFP3530 

Cl 3567 

233423 


LAC* 

ADR 



XMFP3540 

013570 

652000 


LMQ 




XMFP3550 

013571 

453423 


ISZ 

AOR 



XMFP3560 


dm^r-itrn 


d 

csr 


K 
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013572 233423 

013573 660000 

013574 516422 

013575 053415 

013576 750010 

013577 053413 

013600 215220 

013601 745200 

0 I 3602 744002 

013603 641002 

013604 740400 

013605 516547 

0 l 3606 0534)6 

013607 740400 

013610 613615 

013611 453423 

013612 233423 

013613 053414 

013614 633554 

013615 640633 

013616 660511 

013617 6 1 36 i 3 

013620 000000 XAB 

013621 213417 

013622 740020 

013623 213413 

013624 053417 

013625 750010 

013626 053413 

013627 213420 

013630 652000 

013631 213414 

013632 053420 

013633 641002 

013634 053414 

013635 213421 

013636 652000 

013637 213415 

013640 053421 

013641 641002 

013642 053415 

013643 213422 

013644 652000 

0 1 3645 213416 

013646 053422 

013647 641002 

013650 053416 

013651 633620 

013652 000000 FC I A 

0 1 3F j3 213417 

013654 256315 

013655 053417 

013656 633652 

013657 00000O SPASNA 

013660 113702 

01366! 633657 

013662 213417 

013663 741200 
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LAC* 

ADR 

660000 


AND 

(377777) 

DAC 

8C*2 

GLK 


OAC 

BC 

LAC 

DM 

5NAICLL 


STL 


LACQ 


SNL 


AND 

(777000) 

OAC 

BC+3 

SNL 


JMP 

. +5 

ISZ 

AOR 

LAC* 

ADR 

DAC 

BC* 1 

JMP* 

ASET 

LLS 

33 

LRS* 

1 1 

JMP 

. -4 

0 


LAC 

AC 

RAP 


LAC 

BC 

OAC 

AC 

GLK 


DAC 

BC 

LAC 

AC * 1 

LMQ 


LAC 

BC ♦ ) 

OAC 

AC* I 

LACQ 


OAC 

BC* 1 

LAC 

ac*8 

LMQ 


LAC 

BC *2 

OAC 

AC*2 

LACQ 


OAC 

8C*2 

LAC 

AC * 3 

LMQ 


LAC 

BC* 3 

DAC 

AC ♦ 3 

LACQ 


DAC 

8C ♦ 3 

JMP* 

XAB 

0 


LAC 

AC 

XOR 

( 1 ) 

DAC 

AC 

JMP* 

FC I A 

0 


JMS 

ACZ 

JMP* 

SPASNA 

LAC 

AC 

SNA 



/ MOVE ACO TO LINK 

/ SIGN 

/ MODE? 

/ 3 


/ MOOE 3 
/ MODE 2 


•' TWO S COMP OF AC 

/is FAC ZERO 
/ YES 

/IS FAC MINUS 


XMFP357 0 

XMFP3580 

XMFP3590 

XMFP3600 

XMFP36I 0 

XMFP3620 

XMFP3630 

XMFP3640 

XMFP3650 

XMFP3660 

XMFP3670 

XMFP3680 

XMFP3690 

XMFP3700 

XMFP37I 0 

XMFP3720 

XHFP3730 

XMFP3740 

XMFP3750 

XMFP3760 

XMFP3770 

XMFP3780 

XMFP3790 

XMFP3800 

XMFP38IC 

XMFP3820 

XMFP3830 

XMFP3840 

XMFP3850 

XMFP3860 

XMFP3870 

XMFP38B0 

XMFP3890 

XHFP3900 

XMFP3910 

XMFP3920 

XMFP3930 

XMFP3940 

XMFP3950 

XMFP3960 

XMFP3970 

XC1FP3960 

XMFP399Q 

XMFP4000 

XMFP401 C 

XMFP4020 

XMFPU030 

XMFP4040 

XMFP4050 

XMFP4060 

XMFP4070 

XS1FP4080 

XMFP4090 

XMFP41 00 

XMFP41 10 

XMFP4I2C 

XMFP4130 

XMFP4 1 40 
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01366* 
0 1 3665 
0 1 3666 
0 1 3667 
013670 
013671 
013672 
013673 

0 1 367* 
0 l 3675 
0 1 3676 
013677 
013700 
013701 
013702 
013703 
01370* 
013705 
013706 
013707 
013710 
01371 I 
013712 

0 1 3713 
0137m 
013715 
0137(6 
013717 
013720 
013721 
0 1 3722 
013723 
01372* 

0 1 3725 
013726 
013727 
013730 
013731 
013732 
013733 

0 1 373* 

013735 

013736 

013737 

Q 1 37*0 

0 1 37* 1 

0137*2 

0137*3 

0137** 

0127*5 

0137*6 

0137*7 

013750 

013751 

013752 

013753 

01375* 


*53051 
633657 
000000 
153*22 
153*21 
153*20 
153*17 
633666 
1 1 3666 
6131 16 
I 13*26 
6131 16 
000000 
633700 
000000 
213*21 
313*22 
7**200 
613712 
153*20 
153*17 
633702 
*53702 
633702 
000000 
213*15 
313*16 
7**200 
*537|* 
63371* 
000000 
213*17 
253*13 
633722 
000000 
153*17 
633726 
000000 
213*1* 
101772 

353*20 
7*0200 
633731 
213*15 
101772 
353*2 1 
7*0200 
63373 1 
213*16 
1 0 l 772 
333*22 
7*0202 
7*0020 
633731 
000000 
1 13702 
633732 


tcla 

fZAC 
AOT 
SIDIV 
AC Z 


SON 

A8S 

CASO 


SOR 
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ISZ 

JMP* 

0 

DZh 

OZM 

OZM 

DZM 

JMP* 

JMS 

JMP 

JMS 

JMP 

0 

JMP* 

0 

LAC 

AOO 

SZAICLL 

JMP 

OZM 

OZM 

JMP* 

ISZ 

JMP* 

0 

LAC 

AOO 

SZAICLL 

ISZ 

JMP* 

0 

LAC 

XOR 

JMP* 

0 

OZM 

JMP* 

0 

LAC 

JMS 

tad 

SZA 

JMP* 

LAC 

JMS 

TAD 

SZa 

JMP* 

LAC 

JMS 

TAO 

S2AICML 

RAR 

JMP* 

0 

JMS 

JMP* 


PINT 

SPASNA 

AC *3 
AC*2 
AC* I 
AC 

F CLA 
i CLA 
FNEXT 
NOR 
PNEXT 

SIDIV 

AC*2 
AC* 3 

. *4 

AC* 1 

AC 

ACZ 

ACZ 

ACZ 

8C*2 

0C*3 

BCZ 

ecz 

AC 

8C 

SGN 

AC 

A8S 

8C*1 

CIA 

AC* I 

CASO 

bc*2 

CIA 
AC *2 

CASG 
8C *3 
CIA 
AC *3 


CASO 


SOR 


/NO 


/ THIS IS USEO POR PLAG TOR 
/ INVERSE DIVIDE 

/ IS PAC ZERO 


/ NO- INC RETURN 


/MAKE PAC POSITIVE 

/ COMPARE MAGNITUDES 
/ RETURN - CONDITION 
PAC LESS 
' 0 equal 

/ ♦ NOT 0 PAC GREATER 


XMFP4150 

XMFP4 1 60 

XMPPm70 

XMFP4I80 

XMFPn I 90 

XMPP4200 

XMFP42I 0 

XMFP4220 

XMFP4230 

XMFP4240 

XMPP 1 250 

XMPP4260 

XM r P4270 

XMPP420O 

XMPP4290 

XMPPh300 

XMPP43I0 

XMFP4320 

XMPP433C 

XMPP4340 

XMPP4350 

XMPP4360 

XMFP4370 

XMPP430O 

XHFP4390 

XMPP4400 

XMPP44I0 

XMFP442G 

XMPP4430 

XMPP4440 

XMFP4450 

XMPP4H60 

XMPPH470 

XMPP44Q0 

XMPP4490 

XMPP4500 

XMPP4510 

XMPP 4 520 

XMPP4530 

XMPP4540 

XMPP4550 

XMPP4560 

XMPP4570 

XMPP4580 

XMPP4590 

XMPP4600 

XMFP46I0 

XMP^4620 

XMPP4630 

XMPP4640 

XMPP4650 

XMPP4660 

XMPP4670 

XMPP4680 

XMPP4690 

XMPP470C 

XMPP4710 

XMPP4720 
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013755 

777775 



-3 





XMFP4730 

013756 

0534 17 



OAC 

AC 




XMFP4740 

013757 

213420 



LAC 

AC ♦ 1 




XMFP4750 

013760 

660000 



660000 





XMFP4760 

013761 

740020 



RAR 





XMFP4770 

013768 

053420 



OAC 

AC* 1 




XMFP470O 

013763 

741400 



SZL 





XMFP4790 

013764 

613773 



JNP 

-♦7 




XMFP4800 

013765 

213421 



LAC 

AC *2 




XMFP48) 0 

013766 

744020 



RCR 





XMFP4820 

013767 

05342 J 



OAC 

AC*2 




XMFP4830 

013770 

213422 



LAC 

AC* 3 




XMFP4840 

01377! 

740020 



RAR 





XMFP485C 

013772 

053422 



DAC 

AC* 3 




XMFP4860 

013773 

213421 



LAC 

AC*2 




X MFP4870 

013774 

356554 



TAD 

t 166712 




XMFP488C 

013775 

054003 



OAC 

♦6 




XMFP4890 

013776 

054017 



OAC 

♦2 1 




XMFP4900 

013777 

213422 



LAC 

AC*3 




XMFP491 0 

omooo 

552000 



LNG 





XMFP4920 

omooi 

213421 



L *C 

AC-2 




XMFP4930 

01*4002 

650323 



660325 





XMFP4940 

01 *4003 

740040 



hlt 





XMFP4950 

01*400*4 

053413 



OAC 

BC 




XMFP4960 

01*4005 

641002 



LACO 





XMFP4S70 

01*4006 

354003 



TAD 

-3 




XMFP498G 

014007 

740020 



RAR 





V MFP4990 

01*4010 

453417 



1SZ 

AC 




XMFP5000 

01*40! 1 

613775 



JHP 

. - 14 




XMFP50I 0 

01*4012 

05342! 



OAC 

AC*2 




XMFP5020 

01*4013 

750020 



CLAiRAR 





XMFP5030 

omoi*# 

053414 



OAC 

8C*I 




XMFP3040 

01*4015 

213413 



LAC 

BC 




XMFP5050 

omoie 

640323 



01V 





XMFP506G 

01*4017 

740040 



HL1 





XMFP5G70 

0IM020 

641002 



l ACO 





XMFP5080 

01*402! 

744020 



RCR 





XMFP5090 

01 *4022 

353414 



TAO 

BC*1 




XMFP5100 

01*4023 

053422 



OAC 

AC 4 3 




XMFP5I 1 0 

01 *402 s 4 

1 ! 3426 



JMS 

NOR 




XMFP3I20 

014G25 

633752 



JMP* 

SOR 

/ RESULT 


XMFP5I3G 



/ 

COMMAND 

TO PRINT 

S.O. OF 

P40 CENTROID 


XCMPOOOO 



/ 

USING INPUT CONSTANTS F40 

OR M40 

WHICH 

EVER 

XCMPOO 1 0 



/ 

S 108 IS 

BEING OISPLAYEO 




XCMP0Q2G 

01*4026 

454122 

P40C 

ISZ 

FHF 

/ SET 

FLAG 

FOR P40 CALCULATION 

XCMP0030 

014027 

210407 

CAREA 

LAC 

DISONE 




XCMP0040 

01*4030 

114215 



JMS 

AREA 




XCMP0050 

014031 

205477 



LAC 

OHOOE 




XCMP0060 

01*4032 

556346 



SAO 

(5 

ft M MODE? 


XCMP0070 

C i 4033 

741000 



SKP 


/YES 



XCMP008G 

014034 

614065 



JMP 

CARE A 1 




XCMP0090 

014035 

1 1 305 ! 



JMS 

F 1 NT 




XCMP0100 

014036 

214376 



FLAC 

ARSON 

/SAVE 

AREAS 

i OK F SPECTRUM 

XCHPOI 10 

014037 

054420 



FOAC 

TF! 




xcMPOiao 

014040 

214373 



FLAC 

neta 




XCMP0I30 

014041 

014423 



FOAC 

TF2 




XCMPO I 40 

01*4042 

214404 



FLAC 

CENOEN 




XCMP0I50 

014043 

014426 



FOAC 

TF3 




XCMPO ISO 


8ii -a 


03/02/73RALPH RIC C. 0AV1ES POP-9 


• • • 


P0P9/I5 ASSEMBLY LISTING 


• • • 


PAGE NO. 117 


0I404H 

: i3i 12 


JMS 

.fext 

014045 

a lOMio 


LAC 

OISTWO 

omo>*6 

t 14215 


JMS 

AREA 

014047 

1 1305! 


JMS 

FINT 

omoso 

a l 4376 


flac 

ARSUM 

omosi 

3*4420 


faod 

IF 1 

014052 

7564 I 3 


F01V1S 

«2 

014053 

014376 


FOAC 

ARSUM 

014054 

a 1 4373 


FLAC 

NET A 

014055 

31442? 


faod 

TF2 

014056 

756413 


FDIV1S 

<2 

G 1 4057 

014373 


FOAC 

NETA 

014060 

a 1 4404 


flac 

CENOEN 

014061 

314426 


faod 

TF3 

014062 

756413 


F0JV1S 

(2 

014063 

014^04 


FOAC 

CENOEN 

0 I 4064 

113112 


JMS 

FEXT 

014065 

1 1 1685 

CARE A 1 

JMS 

MJO 

014066 

011755 


MESS85 


014067 

314376 


flt 

ARSUM 

014070 

01 1752 


HFSS22 


014071 

314373 


FLT 

NETA 

014072 

01 ‘760 


MESS26 


014073 

314404 


flt 

CENOEN 

014074 

8 l 4 1 22 


LAC 

FMF 

014075 

741200 


SNA 


014076 

606257 


JMP 

RETC 

014077 

154122 


02M 

FMF 

OI4iOO 

810407 


LAC 

D1S0NE 

014101 

540217 


SAO 

fstart 

014102 

814370 


LAC 

F4G 

014103 

554370 


SAD 

F40 

014104 

741000 


SKP 


014105 

214371 


LAC 

M40 

014106 

054378 


DAC 

P40 

01 41 07 

1 13051 


JMS 

FINT 

014110 

854372 


FLAC IS 

P40 

0141 I I 

756502 


FOIVlS 

(144 1 

014112 

714373 


FOIV 

NETA 

014113 

1 1 3752 


JMS 

SOR 

014114 

014373 


FOAC 

NETA 

014115 

1 1 3 1 1 2 


JMS 

FEXT 

014116 

l 1 1685 


JMS 

MIO 

014117 

01 !-»63 


MCSS27 


014120 

314373 


flt 

NETA 

014121 

606257 


JMP 

RETC 

014122 

000000 

EMF 

0 


014123 

J30032 


LIVETM 


014124 

805477 

FTOM 

LAC 

OMOOE 

j 1 4 I 25 

556346 


SAO 

(5) 

014126 

741000 


SKP 


014127 

606746 


JMP 

QHARK 

0)4130 

810410 


LAC 

OISTWO 

0I4J31 

1 14215 


JMS 

AREA 

014132 

113051 


JMS 

FINT 

014133 

214376 


F LAS 

ARSUM 

014134 

014415 


fOAC 

AQFM 

014135 

I 131 12 


JMS 

FEXT 


XCMPOI70 

/GET AREA ON M SIDE. XCMP0180 

XCMPQ 1 90 

_ XCMP0200 

/CALCULATE AVERAGE OP F AND M. XCMPQ2I0 

XCMP0220 

XCHPG230 

xcmpo^^o 

XCMPC250 

XCHP0260 

XCMP0270 

XCMP0280 

XCMPQ290 

XCMP030Q 

XCMP03 1 0 

XCMP0320 

XCMP0330 

XCMP03W0 

XCMP0350 

XCMPQ360 

XCMP037C 

XCMP0380 

XCMP0390 

XCMPOHOO 

XCMPOWIO 

xciiPo^eo 

XCMP0S30 

XCMPO^O 

XCMPO^SO 

XCMP0H60 

XCMP0W70 

xcmpo^so 

XCMP0U90 
XCMP05C0 
XCMP05 1 0 
XCHP052G 
XCMP0530 
XCMP054Q 
XCMP0550 
XCMP0560 
XCMP0570 
XCMP0580 
XCMP0590 
XCMP0600 
XCMP06;0 
XCMPQ620 
XCMP0630 
XCMP0640 

XCMP0650 

/ EM DISPLAY 7 XCMP0652 

XCMP0654 

* N0 XCMP0656 

XCMP0658 

XCMP0660 

/ ENTER INTERPRETER XCMPQ670 

XCMP0680 

/ SAVE AREA OF H XCMP0690 

XCMP0700 


i -■ x 

rrm 



E-119 


03/02/73RAL2H RIC 


C. 0AV1ES POP-9 

OPti 36 **00052 

01*4137 356*425 

01*41*40 05*4 123 

01HIHI 2 1 0**07 

010102 IIH215 

0 1 *4 1 **3 113051 

01 HI** 1 * 2 1 **376 

01*4 1*45 7 mm 5 

0 1 ** 1 **6 01*4373 

0l*4l**7 25**‘*32 

01*4150 756502 

01*4151 57*4 123 

0 1 *4 1 52 II 3652 

01*4153 3 1 **** 1 5 

01*415*4 01*4*401 

0 1 *4 1 55 25*4*431 

01*4156 756502 

01*4157 57HI23 

0IHI60 113652 

0 1 *• 1 6 1 3 1 *4376 

01*4162 71*4*401 

0 1 *4 163 0 1 *4*40*4 

0 I *4 1 6*4 51*4*40*4 

0 1 H 1 65 51*4*415 

0 1 *4 i 66 31*4376 

01*4167 113752 

01*4170 71*4*401 

0 1 *4 1 7 1 01 000 I 

010172 113112 

010173 I I 1623 

010170 011766 

010175 310373 

010176 01 1771 

010177 310000 

010200 011763 

01 020 1 3I00QI 

010202 606257 

010203 77O370 

01020*4 610212 

010205 770371 

010206 610212 

010207 770031 

010210 610212 

010211 7 70032 

010212 516060 

010213 112250 

r : 02 1 0 606257 

010215 000000 

01 02 16 307660 

010217 050367 

0 1 0220 356555 

010221 050363 

010222 200050 

010223 750200 

010220 610227 

i 
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XCT 

XCTBKG 


TAD 

JLI VETMJ 


OAC 

FTOM-1 


LAC 

or SONS 


JMS 

AREA 


JMS 

F!N~ 


FLAC 

AOFF 


foiv 

AOFM 


fdac 

FMR 


FLACIS 

8M 


F01VIS 

( IHH) 


F MUL i S • 

FTOM-1 


JMS 

FCIA 


FAOO 

AOFM 


FOAC 

Nh 


FLACIS 

BF 


FDI VIS 

t ihh> 


FMUL 1 S* 

FTOM-1 


JMS 

FCIA 


FAOO 

AOFF 


FDI V 

NM 


FDaC 

NFNMR 


FMUL 

NFNMR 


FMUL 

AOFM 


FAOO 

AOFF 


JMS 

SOR 


FDI V 

NM 


FOAC 

NM 


JMS 

FIX T 

v»MSM*0 

JMS 

MESS28 

M 1 0 


flt 

MESS29 

FMR 


FLT 

ME5S27 

NFNMR 


FLT 

NM 


JMP 

RETC 

/ I NPUT 

PH 0 CONSTANTS 

F H DC 

LAM 

FHO 


JMP 

NIOR 

MOOC 

LAM 

MHO 


JMP 

NIOR 

/ INPUT 

BACKGROUND 

CONSTANTS 

8FC 

LAM 

BF 


JMP 

NIOR 

BMC 

LAM 

8M 

/ CALL 

NIO AND RETURN 

NIOR 

AND 

< 17777) 


JMS 

NIO 


JMP 

RETC 

AREA 

0 



TAD 

OISAOO 


OAC 

SPPT 


TAO 

c -2) 


OAC 

8KLSP 


LAC 

SZAICLA 

FG5050 


JMP 

. *3 


/ FORM ADR. 

/ AREA OP F 

/ F/M RATIO 

/ CONVERT COUNT RATE TO COUNTS 
/ NET AREA OF M 

/ CONVERT COUNT RATE TO COUNTS 
/ NET AREA OF F 
/ NET F/NET M RATIO 

/ SQR < ( AOF F ♦AOFM* < NF NMR • • 2 ) 1/1NM**2> I 
/ SQUARE ROOT OF NUMERATOR. 

/USED AS A CONSTANT 



XCMP07 1 0 

XCMP0720 

XCMP073Q 

XCNP0700 

XCMP0750 

XCMP0760 

XCMP0770 

XCKP0780 

XCMP0790 

XCMP0800 

XCMP08I 0 

XCMP0820 

XCMP0830 

XCMP0800 

XCMPQ850 

XCMP08S0 

XCMP087G 

XCMP0880 

XCMP0890 

XCMP0900 

XCMP091 0 

XCMP0920 

XCMP0930 

XCMP09O0 

XCMP0950 

XCMP0960 

XCMP0970 

XCMP0980 

XCMP0990 

XCMPIOOO 

XCMP1010 

XCMP1 020 

XCMP1030 

XCMPIOOO 

XCMPI 050 

XCHPI 060 

XC.MPi070 

XCMPI 080 

XCMP1090 

XCMPI I 00 

XCMPI 1 I 0 

XC.MP I I 20 

XCMPI 1 30 

XCMPI I 00 

XCMPI I 50 

XCMPI 160 

XCMPI 170 

XCMPI 180 

XCMPI 190 

XCMPI200 

XCMPI 210 

XCMPI 220 

XCMPI230 

XCMPI 200 

XCMPI 250 

XCMPI 260 

XCMPI270 

XCMP1280 


/ 5050? 
/ YES 



E-120 


03/ G2/73RALPH RIC C. 0AVI2S POP-9 


014225 454365 

014226 777776 

014227 350344 

014230 354367 

014231 054366 

014232 207660 

014233 054364 

014234 207657 

014235 054363 

014236 It 3051 
014237 113666 

014240 014373 

014241 014376 

014242 014401 

014243 0 1 4 4 OH 

014244 274365 

014245 454365 

014246 374365 

014247 454365 

014250 114315 

014251 374365 

014252 374366 

014253 454366 

014254 374366 

014255 454366 

014256 374366 

014257 114315 

014260 756345 

014261 614263 

014262 756347 

014263 113652 

014264 014412 

014265 214376 ARE I 

014266 374367 

014267 014376 

014270 274367 

014271 3 I 44 I 2 

014272 014407 

014273 314373 

014274 014373 

014275 214407 

014276 314404 

014277 014404 

014300 214407 

014301 554364 

014302 314401 

014303 014401 

014304 454367 

014305 454:*64 

014306 454363 

0I4~ U 7 614265 

014310 214401 

014311 714404 

014312 0 S 4404 

014313 1 13112 

014314 634215 

014315 000000 ARE 50 

014316 200054 
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ISZ 

BKLSP 



XCMP 1290 

LAM 

-2 



XCMPI300 

TAD 

NOCO 



XCMPI3I0 

TAO 

SPPT 



.XCMP 1320 

OAC 

BKHSP 

/ 

HIGH S 1 OE 0K POINTER 

XCMPI330 

LAC 

0I3ADD 



XCMPI 340 

OAC 

CHPT 

/ 

SET CHANNEL POINTER 

XCMPI 350 

LAC 

HNOCO 



XCMPI 36C 

OAC 

AREACT 

/ 

SET CHANNEL COUNTER 

XCMPI 370 

JMS 

FINT 

/ 

ENTER FLOATING INTERPRETER 

XCMPI 380 

JMS 

FCL A 



XCMPI 390 

FOAC 

NETA 



XCMPI 400 

FOAC 

ARSUM 



XCMP14I0 

FDAC 

CENNUM 



x cmp mao 

FOAC 

CENOEN 



XCMPI 430 

FLAG 1 S • 

BKLSP 

/ 

COMPUTE BACK GROUND 

xcmpi 440 

!SZ 

BKLSP 



XCMPI 450 

FAOO IS* 

BKLSP 



XCMPI 46G 

ISZ 

BKLSP 



XCMPI 470 

JMS 

ARE50 

/ 

SKIP TWO IF 5050. 

XCMPI 480 

FAOO IS* 

BKLSP 



XCMPI 490 

F ADDIS* 

BKHSP 



XCMPI 500 

ISZ 

BKHSP 



XCMPI 510 

FAOOIS* 

BKHSP 



XCMPI 520 

ISZ 

BKHSP 



XCMPI 530 

FAOOIS* 

BKHSP 



XCMPI 540 

JMS 

ARE 50 

/ 

SKIP TWO IF 5050. 

XCMPI 550 

FDIVIS 

(61 

/ 

AVERAGE 

XCMPI 560 

JMP 

. ♦2 



XCMPI 570 

F01VIS 

(4) 



XCMPI 580 

JMS 

FCIA 



XCMPI 590 

FOAC 

BACKG 



XCMPI 600 

FLAG 

ARSUM 

/ 

ADO TO AREA 

XCMPI 610 

FAOOIS* 

SPPT 



XCMPI 620 

FDAC 

ARSUM 



XCMPI 630 

FLAC1S* 

SPPT 



XCMPI 640 

FAOO 

BACKG 

/ 

SUB BACK GROUNO 

XCMPI 650 

FDAC 

ARTS 



XCMPI 660 

FAOO 

NETA 

/ 

AOO TO NET AREA 

XCMPI 670 

FOAC 

NETA 



XCMPI 680 

FLAG 

ARTS 



XCMPI 690 

FAOO 

CENOEN 

/ 

AOO to denominator 

XCMPI 700 

FOAC 

CENOEN 



XCMP 1710 

flag 

ARTS 

/ 

GET CHANNEL -BACKGROUND 

XCMPI720 

FMUL 1 S 

CHPT 



XCMP 1730 

FAOO 

CENNUM 



XCMPI 740 

FDAC 

CENNUM 



XCMP 1750 

ISZ 

SPPT 



XCMP I 760 

ISZ 

CHPT 

/ 

AOO ONE TO CHANNEL POINTER. 

XCMP 1770 

ISZ 

AREACT 

/ 

MORE 

XCMPI 780 

JMP 

ARE! 

/ 

YES 

XCMP 1790 

FLAC 

CENNUM 



XCMP 1800 

FOIV 

CENOEN 



XCMP 1810 

FOAC 

CENDEN 



XCMP 1820 

JMS 

FEXT 



XCMP 1830 

JMP* 

/.REA 



XCMP 1 840 


0 XCMP I 850 


LAC 


XCMP1860 


F G5050 



E-121 
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014317 

OP* 320 

01432! 

014322 

014323 

014324 

014325 

014326 

0 I 4327 

014330 

014331 

014332 

014333 

014334 

014335 

014336 

014337 

014340 

014341 

014742 

014343 

014344 

014345 

014346 

014347 

014350 

014351 

014352 

014353 

014354 

014355 

014356 

0 l 4357 

014360 

014361 

014362 

014363 

014364 

014365 

014366 

014367 

014370 

014371 

014372 

014373 

014374 

014375 

014376 

014377 

0 I *400 

014401 

014402 

014403 

014404 

014405 

01 4406 

0 14407 

0 1 u 4 l 0 


741200 
634315 
453051 
453051 
634315 
000000 
1 1 3506 
213414 
G46712 
21341 7 
740020 
213415 
106554 
760256 
1 06752 
777776 
0543S2 
213416 
744000 
653122 
303240 
106571 
000000 
741200 
614360 
454362 
634345 
556462 
760260 
106752 
777777 
054362 
634345 
106737 
634324 
000000 
000000 
000000 
COOOOO 
000000 
000000 
001715 
002535 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
OOOOQO 


FPRIN 


FPCT 

ARE ACT 

CHPT 

BKLCP 

BKHSP 

SPPT 

F40 

M4G 

P40 

NET A 


ARSUM 


CENNWH 


CENDEN 


ARTS 
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SNA 


/ 

5050? 


JMP* 

ARE50 

/ 

NO 


IS2 

FINT 




1SZ 

FINT 




JMP* 

ARF50 




0 





JMS 

FFIX 

/ 

TIX THE FLOATING AC INTO 

BC 

LAC 

0C ♦ 1 




OAC 

H 1 GHPR 




LAC 

AC 




RAR 





LAC 

0C*2 




JMS 

OECPRT 




LAW 

256 

/ 

OUTPUT DECIMAL POINT 


JMS 

PRINT 




LAW 

-2 

/ 

COUNT TO BYPASS LE AO 1 NG 


OAC 

FPCT 

/ 

SPACES OF FRACTION 


LAC 

0C* 3 




CLL 





MUL 





3 '3240 





JMS 

OECCON 




0 





SNA 


/ 

DONE ? 


JMP 

. + 11 

/ 

YES 


ISZ 

FPCT 




JMP* 

. -4 




SAD 

< a^O) 

/ 

CHANGE LEAOING SPACES TO 

ZEROS 

LAW 

260 




JMS 

PRINT 




LAW 

- i 

/ 

RESET FOR FALL THROUGH 


OAC 

FPCT 




JMP* 

.-12 




JMS 

CRLF 




JMP* 

FPRIN 





0 

0 

0 

0 

0 

0 

1715 

2535 

0 

0 

0 

o 

o 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


XCMP1870 
XCMP1880 
XCMP1890 
XCHP1900 
XCMPI91 0 
XCMP1920 
XCMP1930 
XCMP1940 
XCMPI95Q 
XCMP1960 
XCMP1970 
XCMP1980 
XCMP1990 
XCMP2000 
XCMP20 ! 0 
XCMP2020 
XCMP2030 
XCMP2Q40 
XCMP2050 
XCMP2060 
XCMP207.1 
XCMP2080 
XCMP2090 
XCMP2I00 
XCMP21 10 
XCHP2I20 
v CMP2l 30 

xcMPamo 
XCMP2150 
XCMP2160 
XCMP2I 70 
XCMP2I80 
XCMP2I90 
XCMP2200 
XCMP22I 0 
XCMP2220 
XCMP2230 
XCMP2240 
XCMP2250 
XCMP2260 
XCMP2270 
XCMP2280 
XCMP2290 
XCMP2300 
XCMP23I0 
XCMP2320 
XCMP2330 
XCMP2340 
XCMP2350 
XCMP236C 
XCMP2370 
XCMP2380 
XCMP2390 
XCMP2400 
YCMP2M 1 0 
XCi1P2420 
XCMP247 j 
XCMP2 ' ^0 
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m 
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0 14m J 

000000 

0 



014412 

000000 

BACKG 0 



014413 

000000 

0 



014414 

000000 

0 



014415 

000000 

aofm 0 



014416 

000000 

0 



014417 

000000 

0 



014420 

000000 

TF1 0 


/TEMP. STORAGE FOR FLOATING *S. 

014421 

000000 

0 


014422 

oooooc 

0 



014423 

000000 

TF2 0 



014424 

000000 

0 



014425 

000000 

0 



014426 

000000 

TF3 0 



014427 

000000 

0 



014430 

000000 

0 





RT-NETA 

lt-arsum 

ltl-cennum 

LTRT-CENDEN 

AOFF-ARSUM 

FMR-NETA 

NM-CENNUM 

NFNMR-CENOEN 



014431 

000000 

9F 0 



014432 

000000 

014 0 





/FUNCTION BOX SERVICE ROUTINE 


014433 

760006 

80XSEV LAW 

6 


014434 

044106 

OAC 

PANFLG 


014435 

705004 

F3CM 


/ DISABLE BOX 

014436 

705714 

PNIT+10 


/ DISABLE PANEL 

0 1 4437 

700048 

ION 



0 1 4440 

7050 1 5 

FBRO 



014441 

054754 

OAC 

SHOT 


014442 

745200 

SNA ICLL 



014443 

614617 

JMP 

BRST 


014444 

742020 

RTR 



014445 

745400 

SZL iCLL 

/ ASTR1X 


014446 

61451 1 

JMP 

BOXA 

/ YES 

0 1 4447 

741100 

SPA 


/ N SIGN 

014450 

6 14560 

JMP 

OOKR 

/ YES 

014451 

556354 

SAD 

( hO t 

/ ZERO 

014452 

614461 

JMP 

. *7 

/ YES 

0 1 4453 

7440 1 C 

RAL ICLL 



014454 

640444 

NORM 


/ CONVERT BUTTON BIT TO A DIGIT 

014455 

64100! 

LACS 



014456 

356556 

TAD 

(*341 


014457 

0**4755 

OAC 

BOX T 


014460 

741000 

SKP 



0 ; -<461 

154755 

OZM 

eoxr 


014462 

214756 

LAC 

boxas 

/ INPUT NUMBER 

014463 

745200 

SNAICLl 



014464 

614566 

JhP 

BOXRGT 

/ NO-ROTATE 

014465 

214761 

LAC 

BOXH 

/ MUL HIGH 9Y 10 

014466 

653122 

MUL 



014467 

000012 

12 



Cl 4470 

641002 

LACG 



014471 

054761 

DAC 

boxh 



121 


XCMP2H50 

XCMP2H6Q 

XCMP2H70 

X'.MP2<480 

xcmpp^o 

XCMP2500 

XCHP25I 0 

XCMP2520 

XCMP2530 

XCMP25H0 

XCMP2550 

XCMP2560 

XCMP257Q 

XCHP2580 

XCHP2590 

XCMP2600 

XCMP2610 

XChP2620 

XCMP2630 

XCMP26HO 

XCHP265C 

XCMP2660 

XCMP2670 

XCMP2680 

XCMP2690 

XCMP2700 

X8OX0000 

XSOXOOIO 

X80XC020 

X80X0030 

XBOXOOHO 

X80X0050 

X80X0060 

X8OX0070 

X80X0080 

X80X0090 

XBOXO 100 

XBOXO I 1 0 

XBOXO I 20 

X80XOI30 

X80XOI ‘•O 

XBOXO I 50 

X80XOI60 

X80XC170 

X8OX0I90 

XBOXO I 90 

X80X0200 

X80X02I 0 

X80X0220 

X80X0230 

X80X02HO 

X80X0250 

X80X0260 

X80X0270 

X80X0280 

X80X0290 

X80X0300 

X80X03 i 0 
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FACE NO. I 22 


014472 

214762 


LAC 

BOXL 


MUL LOW BY 10 

X80X032G 

014473 

653122 


MUL 




XBOX0330 

014474 

000032 


12 




X80X0340 

014475 

354761 


TAD 

BOXH 

/ 

COMBINE 

X80X0350 

014476 

054761 


OAC 

80XH 



XIOXO 360 

0 1 4477 

641002 


LACQ 




XBOX0370 

014500 

744000 


CLL 




XBOX0380 

014501 

354755 


tad 

BOX T 



XBOX0390 

014502 

0547S2 


OAC 

BOXL 



X80X0400 

014503 

/41 400 


SZL 




XB0X04 1 0 

014504 

45476! 


1SZ 

BOXH 



XBOX0420 

014505 

777777 


LAW 

-1 



X80X0430 

014506 

054757 


DAC 

80XS 



X80X0440 

014507 

214760 


LAC 

BOXH- 1 



XBOXC4SO 

014510 

604234 


JMP 

PINRET 



XBOX0460 

014511 

454756 

BOXA 

ISZ 

BOXAS 

/ 

COUNT THE ASTR1XS 

XROXG470 

014512 

214756 


LAC 

BOXAS 



X0OXO48O 

014513 

5564 1 3 


SAO 

(2) 

/ 

SECOND 

X80X0490 

014514 

614523 


JMP 

B0XA2 

/ 

YES 

XBOX0500 

014515 

556335 


SAO 

( 31 

/ 

THIRD 

XBOX05I 0 

014516 

614537 


JMP 

90XA3 

/ 

YES 

XBOX0S20 

01 45 I 7 

2 1 452 I 


LAC 

BOX AA- 1 

/ 

FIRST 

XB0X053C 

01 4520 

6 1 4562 


JMP 

BOXR* 2 



X80X0540 

014521 

4 1 4522 


XCT 

. ♦ 1 

/ 

DESIGNATES SINGLE PRECISION ® TO NG 

X80X0550 

0 1 4522 

OGOOOO 

0OXAA 

0 




X80X0560 

014523 

454757 

90XA2 

ISZ 

BOXS 



X80X0570 

0 1 4524 

614535 


JMP 

.♦11 



XBOX05B0 

0 1 4525 

777763 


LAW 

-15 



X0OXO59O 

014526 

354762 


TAD 

BOXL 

/ 

- NUMBER IN LIST . 

X80X0600 

014527 

741400 


SZL 


/ 

legal??? 

X80X061 0 

014530 

614535 


JHP 

♦ 5 

/ 

NO 

X80X0620 

014531 

214762 


LAC 

BOXL 

/ 

YES 

X80X0630 

014532 

054522 


OAC 

BOX AA 



XBOXQ640 

014533 

35-*' 7 64 


TAG 

BOX AL 

/ 

ADDRESS Li ST 

X80X065P 

014534 

054763 


DAC 

80XPT 



X0OXO66O 

014535 

234763 


LAC* 

BOXPT 



XBO*G'670 

014536 

614562 


JMP 

BOXR* 2 



XBOX0680 

014537 

454757 

BOX A 3 

ISZ 

BOXS 



XOOX0690 

014540 

614560 


JMP 

BOXR 



X0OXO7OO 

014541 

234763 


LAC • 

BOXPT 



XBOX07 1 0 

014542 

516420 


ANO 

(37777) 



X0OXO7-2O 

014543 

054757 


OAC 

BOXS 

/ 

SAVE TEMPORALLY 

X80X0730 

0 I 4544 

234763 


LAC* 

fr.QXPT 



XBOX0740 

014545 

503323 


ANO 

CNOP 

/ 

SINGLE OR DOUBLE? 

X0OXO75O 

014546 

556557 


SAO 

< 440000 1 



XBOX0760 

014547 

614556 


JMP 

. ♦ 7 

/ 

SINGLE 

X80X07" , 0 

014550 

543323 


SAO 

CNOP 



X80X0780 

014551 

741000 


SKP 




X80X0790 

014552 

614560 


JMP 

BOXR 



X80X0800 

014553 

214761 


LAC 

BOXH 

/ 

LOAD HIGH 

XBOXO0I 0 

0,^554 

C74757 


OAC* 

BOXS 



*80X0880 

014555 

454757 


ISZ 

30XS 



X80X0830 

034556 

214762 


LAC 

BOXL 

/ 

LOAD LOW 

X80X0840 

014557 

074757 


OAC* 

80XS 



X80X0850 

014560 

214765 

BOXR 

LAC 

BOXAL ♦ 1 

/ 

TURN NUMBER GENERATOR OFF 

X80X0860 

014561 

154756 


OZM 

BOXAS 



X80X0870 

014562 

154761 


OZM 

BOXH 



X80X0880 

0 1 4563 

154762 


DZM 

BOXL 



X80X0890 


V3T-! 
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014564 

154757 


02M 

014565 

60423-r 


JMP 

0 i 4566 

214754 

80XRQT 

LAC 

014567 

556453 


SAO 

0145*70 

614622 


J PIP 

01457! 

556454 


SAD 

014572 

614624 


JMP 

014573 

556560 


SAD 

014574 

614627 


JMP 

Cl 4575 

556561 


SAD 

0 1 4576 

614734 


JHP 

014577 

55651 1 


SAO 

014600 

614741 


JHP 

014601 

556333 


SAO 

014602 

614746 


JHP 

014603 

556427 


SAD 

014604 

605413 


JHP 

014605 

516533 


ANO 

014606 

054754 


OAC 

014607 

74 1200 


SNA 

014610 

605055 


JHP 

014611 

214753 


LAC 

014612 

050254 


DAC 

014613 

214754 


LAC 

014614 

556374 


SAO 

014615 

605405 


JHP 

014616 

S05400 


JHP 

014617 

204337 

8RST 

LAC 

014620 

050254 


OAC 

014621 

605055 


JHP 

014622 

216446 

00X3 1 

LAC 

014623 

741000 


SKP 

014624 

204337 

BOXR2 

LAC 

0 1 4625 

054753 


OAC 

014626 

605055 


JHP 

014627 

205477 

R8ANG 

LAC 

014630 

741200 


SNA 

014631 

514724 


JHP 

014632 

204336 


LAC 

014633 

544313 


SAD 

01 4634 

61464 1 


JMP 

014635 

210304 


LAC 

014636 

740001 


CMA 

014637 

347680 


TAD 

014640 

741000 


SKP 

014641 

21 1073 


LAC 

014642 

350407 


TAD 

014043 

354673 


OAC 

014644 

234673 


LAC* 

u I 4645 

1 I 3476 


JMS 

014646 

i 12274 


JMS 

014647 

054673 


OAC 

014650 

614731 


JHP 

014651 

000000 

CR8ANG 

0 

0 1 4652 

70QC02 


IOF 

014653 

200063 


LAC 

014654 

054673 


OAC 

014655 

204.346 


LAC 


ASSEMBLY LISTING ••• 


PAGE NO. 123 


80XS 


XBOX0900 

PINRET 


XBOX09I 0 

BROT 

/ CONTROL ROTATION FROM BOX 

X80X092C 

120000) 

/ SET CONTINUOUS ROTATE 

XBOX0930 

POXR1 


X0OXO94O 

( 10000! 

/ SET INCREMENT ROTATE 

X80X0950 

80XR2 


X80X0960 

( 4000 ) 


X80X0970 

RBANG 

/ GET SPECTRUM CONTENTS 

X80X0980 

(2000) 


X80X0990 

8VER 

/ VERTICAL MARKER 

XBOX 1000 

c 1000) 


X90XI010 

8HOR 

/horizontal MARKER 

XBOX 1 020 

(400) 


XBOX 1 07 0 

8SPC 

/ SPECTRUM OR ZZERO 

X80X i 0'«0 

(200J 


XBOX 1 050 

RINIT 

/ INITIALIZE 

XBOX 1 060 

(240000) 

/ LEFT OR RIGHT? 

XBOX 1 070 

BROT 


XBOX 1080 
XBOX 1 090 

PANRET 

/ NO 

XBQXI .00 

8R0TC 


XBOX 1 I 10 

MOVAOD 


XBOX 1 120 

BROT 


XBOX i 130 

(200000) 


xsoxi mo 

RLEFT 

/ LEFT 

xeox 1 I5G 

RRIGHT 

/ RIGHT 

XBOX 1 160 

ROTPTI 


XBOX! 170 

MOVAOD 


XBOX 1 180 

PANRET 


XBOX ! 1 90 

* RTHPl 


XBGXI200 
XBOX 1210 

ROTPTI 


XBOX 1220 

BROTC 

/ SET ROTATE CONTROL 

XBOX 1 230 

PANRET 


XBOX 1 240 

DHODE 

/CONT.OUR? 

XBOX 1250 



XBOX 1260 

CR8R 

/YES 

XBOX 1 2 TO 

ROTPT 

/IS IT MARKER ROTATION 

XBOX 1280 

ROTSEL +6 


XBOX 1290 

. *5 

/YES 

XBOX 1 300 

BOOT 

/NO-SPEC T RUM ROTATION 

XBOX 1310 
XBOX 1320 

0 1 SAOD 


XBOX 1330 
XBOX I 390 

HV 


XBOX 1 350 

D 1 SONE 


XBOX 1 360 

CRB 

/COMPUTE CONTENT 

XBOX 1 370 

CR8 


XBOX 1380 

STRPC.H 

/ SKIP IF NOT IN STRIP. 

XBOX 1 390 

SCI A 


XBOX moo 

CRB 


xbox m io 

CRBl 


XBOX 1420 
XBOX 1430 


/IOF BECAUSE TTY ANO FUNC BOX USE THIS. 

XBOX 1440 

CONX 


XBOX 1450 

CRB 


XBOX 1460 

CHOP 


XBOX I 470 
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oinese 

054662 


OAC 

. *4 


XBOX 1*460 

014657 

208314 


LAC 

HCROSS 


X0OX m90 

0 1 4660 

744000 


CLL 



X80XI500 

0 I 466 1 

653323 


I D I V 



XBOX 1510 

0 I 4662 

000000 


0 



XBOX 1520 

014663 

641002 


LACa 



XBOX 1530 

014664 

114715 


JMS 

CH50 


XBOX 15*40 

0 I 4665 

614671 


JMP 

.♦4 


XBOX 1550 

014666 

356315 


TAD 

< 1 1 


XBOX 1560 

0 1 4667 

054673 


OAC 

CRB 

/COMPUTE CONTOUR AOORESS AT CROSS OF HOR I ZX60X 1 570 

0 I 4670 

356337 


TAD 

<-l > 

/MARKER AND VERTICAL MARKER 

X80XI580 

0 I 467 I 

744000 


CLL 



XBOX 1590 

0 1 4672 

653122 


MUL 



XBOX 1600 

014673 

000000 

CRB 

0 



XBOX 16 10 

014674 

64 1 002 


LACQ 


/ A* ( Y ( Y- 1 1 >/2«X-l 

XBOX !620 

0 I 4675 

1 14715 


JMS 

CH50 


XBOX 1 6'i0 

0 1 4676 

741000 


SKP 



XBOX 16*40 

0I4S77 

744020 


CLLIRAR 



XBOX 1650 

014700 

054673 


OAC 

CRB 


XBOX 1 660 

014701 

204352 


LAC 

CVER 

» 

XBOX 1670 

014702 

054706 


OAC 

. +4 


XBOX 1680 

014703 

201310 


LAC 

VCROSS 


XBOX 1690 

014704 

744000 


CLL 



XBOX 1700 

014705 

653323 


IC1V 



XBOX 1710 

014706 

000000 


0 



XBOX 1 720 

014707 

641002 


LACQ 



XBOX 1730 

014710 

354673 


TAO 

CRB 


XBOX 1 7*40 

0 1 47 I I 

340234 


TAO 

FSTCO! 


XBOX 1 750 

014712 

054673 


OAC 

CRB 

/AOORESS 

XBOX 1760 

014713 

700042 


ION 



XBOX 1770 

014714 

634651 


JMP* 

CRBANG 


XBOX 1780 

014715 

000000 

CH50 

0 



XBOX 1 790 

014716 

652000 


LMQ 



XBOX 1800 

014717 

201303 


LAC 

CECMF G 


XBQX18I0 

014720 

741 100 


SPA 


/ 50507 

XBOX 1820 

014721 

454715 


ISZ 

CH50 

/ NO 

XBOX 1830 

014722 

641002 


LACQ 



XBOX 18*40 

014723 

634715 


JMP* 

CH50 


XBOX 1850 

014724 

1 I 465 1 

CR9R 

JMS 

CRBANG 


XBOX 1860 

0 1 4725 

234673 


LAC* 

CRB 

/CONTENT 

XBOX 1870 

014786 

1 1 3476 


JMS 

STRPCH 

/ SKIP IF NOT IN STRIP. 

XBOX 1680 

014787 

1 12274 


JMS 

SC l A 


XBOX 1 890 

014730 

054673 


OAC 

CRB 


XBOX 1900 

014731 

2 ! 4733 

CRB 1 

LAC 

CRB2 


XBOX 1910 

014732 

604234 


JMP 

PINRET 


XBOX 1920 

014733 

414673 

CRB2 

XCT 

CRB 

/“0 MEANS SINGLE PRECISION 

XBOX 1930 






/NON CHANGEABLE 

XBOX 19*40 

014734 

205477 

BVER 

LAC 

OMOOE 

/EITHER CONTOUR OR SPECTRUM VERTICAL 

XBOX 1950 

014735 

740200 


SZA 



XBOX I960 

^ 14736 

216413 


LAC 

( 2 > 

/ SPECTRUM 

XBOXig’O 

0 1 473" 7 

356335 


TAO 

t 3 i 

/ CONTUR 

XBOX I960 

014740 

604305 


JMP 

ROTSEL 


XB0X2010 

01474! 

205477 

BHOR 

LAC 

OMGOE 

/HORIZONTAL 

XB0X2020 

014748 

740200 


SZA 



XBOX2030 

0 1 4743 

216413 


LAC 

<2> 

/ SPECTRUM 

X80X20*40 

01 4744 

3564 1 3 


TAD 

121 

/ CONTUR 

X80X2050 

014745 

604305 


JMP 

ROTSEL 


XBOX2080 

0 1 4746 

805477 

BSPC 

LAC 

OMOOE 


XBOX2090 
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0 1 4747 740200 
014750 215346 
014751 356315 
014752 604305 
014753 005431 


014754 000000 
014755 000000 
014756 0Q0000 
014757 000000 
014760 754761 
014761 000000 
014762 000000 


014763 014765 
014764 014765 
014765 107756 
014766 767777 
0 1 4767 447660 
014770 450344 
014771 444342 
014772 444356 
014773 440250 
014774 441340 
014775 440237 
014776 451077 
014777 451374 
015000 411373 
015001 412712 
015002 000000 
015003 000000 


015004 2)6315 
015005 356315 
015006 741000 
015007 112461 
015010 II 51 45 
015011 055413 
015012 112366 
015013 556352 
015014 615024 
n 150 1 5 I I 305 1 
015016 11 3666 
015017 115202 
015020 035413 
015021 11311c 
01502c 212714 
015023 741000 
015024 I 12366 
015025 556346 
015026 615206 
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SZA 

«-AC (5) / SPECTRUM 

TAO <11 / ZZERO 

JMP ROTSEL 

bROTC RTMP 

E8SK-705001 
FBCM-705004 
EBRD-705012 
8RGT 0 

BOXT 0 

BOXAS 0 

80XS 0 

OPRlBOXH 
BOXH 0 

BOXU 0 

/ 40 SINGLE NOT CHANGEABLE 
/ 44 SINGLE CHANGEABLE 
/ 70 DOUBLE NOT CHANGEABLE 
/ 74 DOUBLE CHANGEABLE 


XB0X2 1 00 
X80X21 10 
XBOX2I20 
XB0X2I50 
XBOX2160 
XB0X2170 
X80X2 1 80 
X80X219C 
XBOX2200 
X80X22 1 0 
XBOX2220 
X80X2230 
XBOX2240 
X80X2250 
XBOX22SO 
X80X2270 
X80X2280 
X80X2290 
X80X23Q0 


BOXPT . *5 

BOXAL . ♦ 1 

UMS NGNON 

OPR I EXP 1 OH 
ISZ OISAOD 

ISZ NOCD 

ISZ ZZER 

I S? HOR 

ISZ ZTEMP 

ISZ DELR 

ISZ OELCNT 

ISZ MH 

ISZ MTRCLM 

XCT MTRCCT 

XCT TELPT 

0 

STRPIJ 0 

/REG I STAR COHMANDS 

/ R I AND R 2 CONMANDS + 

/ RG COMMAND 


LAC 

( 2 ) 

TAC 

< I } 

S KP 


JMS 

DEC IN 

JMS 

RGNUM 

OAC 

RRR 

JMS 

REAO 

SAO 

(53) 

JMP 

.♦10 

JMS 

F I NT 

JMS 

FCLA 

JMS 

f mode 

FDAC • 

RRR 

JMS 

TEXT 

LAC 

SKP 

TC 

JMS 

REAO 

SAO 

(5) 

JMP 

XPiOC 


/ 44-S 1 NG-CHAK'GE 

/ 44 ZZER SPEEO 
/ 44 HORIZONTAL MARKER 
/ 44 2ZER0 
/ 44 RAISING 
/ 44 THICKNESS 


/ STRP I 1 MUST BE ON LAST 


/ R2 
/ R I 

/ RG RE AO REGISTER #. 
/ ADR OF REGISTER. 

/ + 


/ SET DATA MODE 2 OR 3. 
/ ZERO CURRENT VALUE IF 


/ E EXP 1 D 


X80X2310 

X8OX23c0 

X80X2330 

X80X2340 

X80X2350 

XBOX2360 

X0OX237O 

SPEEO X80X2380 

X80X2390 
XBOX2400 
XB0X24 1 0 
X80X2420 
X80X2430 
X80X2440 
X80X2450 
XB0X2460 

INSTR. X80X2470 

STRPOOOO 
STRPOO I 0 
STRP0020 
STRP0030 
STRP0040 
STRP0050 
STRP0060 
STRP0070 
STRP0080 
STRP0090 
STRPOIOO 
STRP01 10 
STRP0I20 
STRPOl 30 
STRP0140 

NOT ♦ . STRP0I50 

STRP0160 
STRP0I70 
STRP0180 
STRPOl 90 
STRP0200 
STRP02I 0 
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0 15027 

556413 


SAD 

(2) 

/8 BANG 

STRP022Q 

015030 

615100 


JMP 

R8AN6R 


STRP0230 

015031 

556464 


SAD 

(ID 

/I INPUT 

STRP0240 

015032 

615062 


JMP 

RNAREA-3 


STRP0250 

015033 

556562 


SAD 

(22) 

/ R REGISTER 

STRP0260 

0 15034 

615132 


JMP 

REG 


STRR0270 

015035 

556335 


SAD 

(0^) 

/ C CONCENTRATION 

STRP0280 

015036 

615174 


JMP 

PESO-3 


STRP029Q 

015037 

556563 


SAO 

(27) 

/ U WEIGHT 

STRP0300 

015040 

615177 


JMP 

PESO 


STRP03I0 

oisom 

556564 


SAO 

(24) 

/T LIVE TIME 

STRP0320 

015042 

615057 


JMP 

T 


STRP033O 

015043 

215046 


LAC 

JMP4 


STRP0340 

015044 

054065 


OAC 

CARE At 

/ SET TO RETURN AT JMP4+1 

STRPG350 

015045 

614027 


JMP 

CAREA 


STRP0360 

015046 

615047 

JMP 4 

JMP 

.♦1 


STRP037C 

015047 

214173 


LAC 

JMSMIO 

/ RESTORE CAREA l 

STRP03B0 

015050 

054065 


OAC 

CAREA 1 


STRP0390 

01505! 

212714 


LAC 

TC 


STRP0400 

015052 

556315 


SAO 

•t 1 ) 

/ A AREA 

STRP0410 

015053 

615070 


JMP 

RAREA 


STRP0420 

015054 

556565 


SAO 

( 16) 

/ N NET AREA 

STRP0420 

015055 

615065 


JMP 

RNAREA 


5TRP044U 

015056 

606746 


JMP 

QUARK 


STRP0450 

015057 

1 13051 

T 

JMS 

PINT 


STRP0460 

015060 

276472 


PLAC 1 S* 

(LIVETM+ 

400 

STRP0470 

015061 

615072 


JMP 

RAREA+2 


STRP0480 

015062 

1 12461 


JMS 

OECIN 


STRP0490 

015063 

113051 


JMS 

PINT 


STRP0500 

015064 

615072 


JMP 

RAREA+2 


STRP05 1 0 

015065 

113051 

RNARE A 

JMS 

PINT 


STRP0520 

015Q66 

214373 


FLAC 

NETA 


STRP0530 

015067 

615072 


JMP 

RAREA+2 


STRP0540 

015070 

1 13051 

RAREA 

JMS 

PINT 


STRP0550 

015071 

214376 


f LAC 

ARSUM 


STRP056C 

015072 

115202 


JMS 

PHOOE 


STRP0570 

015073 

335413 


FAOO* 

RRR 


STRP0580 

015Q74 

035413 


POAC • 

RRR 


STRP0590 

015075 

1 14324 


JMS 

PPRIN 


STRP060C 

015076 

113112 


JMS 

PEXT 


STRP0610 

015077* 

606257 


JMP 

RETC 


STRP0620 

015100 

205477 

R8ANGR 

LAC 

OMOOE 

/SPECTRUM OR CONTOUR 

STRP0630 

01510! 

741200 


SNA 



5TRP0640 

015102 

615125 


JMP 

R9ANGI 

/CONTUR 

STRP0650 

015103 

21 !073 


LAC 

MV 


STRP0660 

015104 

350407 


TAD 

0 1 SONE 

/COMPUTE AOORESS 

STRP0570 

015105 

054673 


OAC 

CRB 


STRP0680 

015106 

205477 


LAC 

OMOOE 


STRP0690 

015107 

556346 


SAO 

(5) 

/PM MOOE ? 

STRP0700 

0151 10 

741000 


SKP 


/YES 

STRP07I0 

0 ! 5 1 1 I 

615126 


JMP 

RBANG 1 + 1 


STRPQ72') 

0151 S 2 

21 1073 


L.AC 

MV 


STRP0730 

0151 13 

350410 


TAO 

D1STWO 


5TRP0740 

0151 14 

107072 


JMS 

L AC 1 

/ GET CONTENTS OP ADR IN AC. 

STRP075G 

0151 15 

055436 


OAC 

SCOMBS 

/ M SIOE 

STRP076C 

0151 16 

234673 


LAC* 

CR8 


STRP0770 

015117 

054673 


OAC 

CRB 

/ P SIDE 

STRP0780 

015120 

1 13051 


JMS 

PINT 


STRP0790 
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0IS121 

015122 

015123 

015124 

015125 

015126 

015127 

015130 

0ISI31 

015132 

015133 

015134 

015135 

015136 

015137 

015140 

015141 

015142 

015143 

015144 

015145 

015146 

015147 

015150 

01SI5I 

015152 

015153 

015154 

015155 

015 I 56 

015157 

015160 

015161 

0151 62 

015163 

015164 

015165 

015166 

015167 

015170 

0131 7 I 

015172 

015173 

015174 

015175 

0*5176 

015177 

015200 

015201 

0's202 

015203 

015204 

0152(05 

015206 

015207 

0I52I0 

01521 1 

015212 


254673 
355436 
756413 
615072 
114651 
234673 
1 1347| 
113051 
615072 
215221 
055436 
112461 
115145 
055145 
113051 
115202 
255436 
055221 
235145 
615072 
000000 
741300 
606746 
652000 
356566 
740300 
606746 
64 1 002 
356337 
745200 
744002 
556315 
744002 
055221 
740400 
615167 
155221 
741000 
356315 
740200 
740010 
3554 1 4 
635145 
i 13051 
276567 
615072 
II 3051 
276570 
615072 
030000 
215221 
055220 
635202 
236571 
054373 
236365 
054374 
216361 


RB'NG 

REG 


RGNUM 


PESO 

PHOOE 

XPIOC 
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STRP0800 

STRP08 1 0 

STRP0820 

STRP0830 

STRP0840 

STRP0850 

STRP0860 

STRP0870 

5TRP0860 

STRP0890 

STRP0900 

STRP09I 0 

STRP092G 

STRP0930 

S T RP0940 

STRP0950 

STRP0960 

STRP097Q 

STRP0980 

STRP0990 

STRPl OOl 

STRPIOIO 

STRPI020 

STRPI030 

S1RPI040 

STRP1050 

STRPl 060 

STRP1070 

STRPl 080 

STRPl 090 

STRP1 100 

STRPl l JO 

STRPl :20 

STRPl 130 

STRPJ J40 

STRPl t50 

STRPl ISO 

STRPl 170 

STRPl ISO 

STRPl 190 

STRPI200 

STRPI2J 0 
STRPI220 
STRPl 230 
STRP|2 'iO 
STRPl 250 
STRPI260 
STRP1270 
STRP1280 
STRP1290 
STRPl 300 
STRPl 310 
STRPl 320 
STRPl 330 
STRPJ 340 
STRPl 350 
STRPl 360 
STRPJ 370 
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015813 

0152 m 

015215 

015216 

015217 

015220 

015221 

015222 

01 5223 

0 1522*4 

015225 

015226 

015227 

015230 

015231 

015232 

015233 

0 1 523 ** 

015235 

015236 

015237 

0 1 52*40 

0152*4 1 

0152*42 

0 1 52*43 

0 1 52 * 4*4 

0152*45 

0 1 52*46 

0152*47 

015250 

015251 

0 1 5252 

015253 

0 1 525*4 

0 1 5255 

015256 

015257 

015260 

01526 ! 

015262 

015263 

0 1 526*4 

015265 

015266 

055267 

015270 

015271 

015272 

0.5273 

0 1 527*4 

015275 

015276 

015277 

015300 

015301 

015302 

015303 


05 H 375 


OAC 

1 13051 


JHS 

2 IH 373 


FLAC 

I 1 3 H 26 


JMS 

615073 


JMP 

000000 

DM 

0 

nooooo 

M 0 D 23 

0 


/PRINT 

RESIDUALS 

! 1 1625 

RESC 

JMS 

015265 


MESSAL 

3153 H 7 


flt 

Cl 5276 


HESSF 

315360 


FLT 

015301 


HE SSM 

315371 


flt 

0 I 530 H 


MESSC 

315 H 02 


flt 

015270 


MESSAB 

315352 


FLT 

015276 


HESSF 

315363 


flt 

015301 


MESSM 

31537*4 


FLT 

0 I 530 H 


MESSC 

3 I 5 H 05 


flt 

015273 


MESSSG 

315355 


FLT 

015276 


HESSF 

315366 


flt 

015301 


HESSM 

315377 


flt 

01530 H 


MESSC 

31 EH 1 0 


flt 

215261 


LAC 

7 H 0200 


SZa 

606257 


JHP 

775262 


LAN 

10677 H 


JHS 

606257 


JMP 

777777 

OVERFL 

- I 

1 72622 

MESOVF 

i 72622 

06 1 H 1 7 


oem I 7 

000000 


0 

01 1 H 07 

messal 

01 1*07 

02 H 023 


02 * 02 / 

000000 


0 

010223 

MESSAB 

01 0253 

21 -.H 023 


26*023 

COOOOO 


0 

232125 

MESSSG 

232125 

22 H 023 


22*023 

000000 


0 

HOHOHO 

messf 

* 0 * 0*0 

H 0 H 006 


* 0*006 

000000 


0 

HOHOHO 

MESM 1 

* 0 * 0*0 

HOHOli 


* 0*015 

000000 


0 


RT *2 
f INI 
RT 
NOR 

RAREA «3 


NIO 

ALGS 

ALOE 

ALGN 

ALOC 

A 8 SS 

A 8 SP 

ABSM 

A 8 SC 

SOS 

sor 

SQM 

SQC 

OVEREL 

/RESIDUAL OVERELOW? 
RETC /NO 

MESGVE /yes 

MESAGE 

RETC 


/OVR 

/ELO 

/ ALG 
SB S 

/ABS 
/V S 

/ SOU 
/ R S 

/ SPACE 
/ E 


/ M 


J 28 


STRPI 380 
STRP 1390 
STRPt HOC 
STRPIHIO 
STRP 1 H 20 
STRPJH 30 
STRPIHHO 
STRPIH 50 
STRPJM 60 
STRPIH 70 
STRP 1 H 80 
STRPIH 90 
STRPlSOO 
STRPiSlO 
STRP 1520 
STRP 1 530 
STRP 15 H 0 
STRP 15 S 0 
STRPl 560 
STRP 1570 
STRPl 580 
STRPl 590 
STRPJ 600 
STRP 1610 
STRP 1620 
STRP 1 630 
STRPJ 6 H 0 
STRP 1 650 
STRP ! 660 
STRP 1670 
STRP 1680 
STRPl 690 
STRPl 700 
STRPJ 7 | 0 
STRP I 720 
STRPl 730 
STRP 17 H 0 
STRP 1750 
STRP | 760 
STRP | 770 
STRPl 780 
STRP I 790 
STRPlSOO 
STRP 1810 
STRP | 820 
STRP 1830 
STRP 1 8*4 0 
STRP l 850 
STRPI 860 
STRP | 870 
STRPl 880 
STRP 1890 
STRP 1900 
STRPI 9 I 0 
STRP 1 920 
STRP 1930 
STRP 19 H 0 
STRP 1 950 
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015304 

404040 

-nsic 

015305 

404003 


015306 

000000 


015307 

oooooc 

8LIM 

015310 

215316 


01531 1 

741200 


015312 

635307 


0153 13 

455316 


C 1 53 1 4 

61 5504 


015315 

815504 


015316 

000000 

LIMCT 

015317 

000000 

CLIMC 

015320 

215421 


015321 

740001 


015322 

356315 


015323 

055423 


015324 

215421 


015325 

744020 


015326 

055422 


015327 

055333 


015330 

356337 


015331 

744000 


015332 

653122 


015333 

000000 

CL 

015334 

641002 


015335 

744020 


015336 

055333 


015337 

215422 


015340 

355333 


015341 

356337 


015342 

740001 


015343 

055422 


015344 

635317 


0 1 5345 

015347 

RESPTS 

015346 

000000 

RESPT 

015347 

000000 

ALGS 

015350 

000000 


015351 

000000 


015352 

000000 

ABSS 

015353 

OGOOOO 


015354 

000000 


015355 

000000 

SQS 

015356 

000000 


015357 

000000 


015360 

000000 

ALGF 

015361 

000000 


015362 

000000 


015363 

000000 

ABSF 

015364 

000000 


C 15365 

OCOOOO 


0153)66 

000000 

SQF 

u 15367 

000000 


01 5370 

000000 


015371 

000000 

ALGh 

015372 

000000 


015373 

000000 


015374 

000000 

ABSM 

015375 

000000 



P0P9/15 ASStHBLY LISTING ••• 


404040 


404003 

/ C 

0 


0 


LAC 

LIMCT 

SNA 


JMP* 

01 1M 

1SZ 

LIMCT 

JMP 

SCOM04*! 

JMP 

SC0MB4* 1 

0 


0 


LAC 

LLIM 

CMA 


TAO 

c l ) 

OAC 

SLIM 

LAC 

LLIM 

CLL1RAR 


OAC 

CL IM 

OAC 

CL 

TAD 

c - 1 ) 

CLL 


•1UL 


0 


LACQ 


CLLIRAR 


OAC 

CL 

LAC 

CL 1 M 

TAO 

CL 

TAD 

i-l * 

CMA 


OAC 

CL I M 

JMP* 

CL IMC 

ALGS 



0 

0 

G 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Q 

0 

0 

0 
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STRP196C 
STRP1970 
5TRPI90O 
STRPIS90 
STRP2000 
STRP2010 
STRP2020 
STRP2030 
STRP2Q4G 
STRP2050 
STRP2060 
5TRP2070 
STRP20B0 
STRP2090 
STRP2I00 
STRP2 1 10 
STRP2I8G 
STRP2I30 
STRP214Q 
STRP2150 
5TRP2I60 
STRP2I70 
STRP2I30 
STRP2I90 
S7RP2200 
STRP22I0 
STRP2220 
STRP2230 
STRP2240 
STRP22§0 
STRP2260 
STRP2270 
STRP2280 
STRP2290 
STRF2300 
STRP23 1 0 
STRP2320 
STRP2330 
STRP2340 
STRP2350 
STRP2360 
STRP2370 
STRP2380 
STRP2390 
5TRP240G 
STRP2410 
5TRPc420 
STRP2430 
STRP2440 
STRR2450 
STRP2460 
STRP2470 
STRP2480 
STRP2490 
STRP2500 
STRP2510 
STRP2520 
STRP2530 
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015376 

000000 

015377 

OOOOOC 

015400 

000000 

015401 

000000 

015402 

300000 

015403 

000000 

015404 

000000 

015405 

000000 

015406 

000000 

015407 

000030 

0I541Q 

000000 

01541 1 

300000 

015412 

000000 

015413 

000000 

0I5HIH 

016600 

015415 

215320 

015416 

1 12250 

015417 

1 15317 

015420 

606257 

015421 

000000 

015422 

000000 

015423 

000000 

015424 

000000 

015425 

ooooco 

015426 

000003 

015427 

000000 

0 1 S'* 30 

000000 

015451 

000000 

0 1 5*432 

000000 

015433 

0G0000 

315434 

000000 

0 15*« 35 

000000 

015*436 

000000 

015*437 

0*426*40 

015*4*40 

205717 

0 1 5*4*4 1 

35553*4 

015*4*42 

0426*4 1 

015*4*43 

442606 

015*4*4*4 

205717 

0 1 5*4*45 

1G2600 

015*4*46 

740200 

015*4*47 

606257 

015*450 

777400 

015*451 

042637 

015*452 

215533 

015*453 

055535 

J 15*45*4 

l 15571 

OV, 5*455 

1 13051 

015*456 

26264 1 

015457 

44264 ; 

015*480 

515536 

015*461 

335535 

015*462 

035535 

015*463 

1 15544 

0 1 5*46*4 

015535 


• • • 


0 

son o 

o 
o 

>’_OC o 

o 

o 

ABSC 0 

0 
0 

SQC o 

0 
0 

RRR 0 

ONUM1* 18600 


PNOH1 * 16603 


RIA 

ONUM1 


/LOWER 

LIMIT ON RESIOUALS 

LLtMC 

LAC 

CL 1 MC ♦ 1 


JHS 

N10 



CLIMC 


JHP 

RETC 

LLIM 

0 


CLIM 

0 


SLIM 

0 


RFLG 

0 


ALORES 

0 



0 



0 


ABSRES 

0 



0 



0 


SORRES 

0 



0 



0 


SCOMBS 

0 



OAC 

OTTS 


LAC 

01 RONE 


TAD 

FBUFA 


OAC 

DTTSI 


IS Z 

R08LK 


LAC 

01 RONE 


JHS 

RT APE 


SZA 



JMP 

RETC 

SCOMBC 

LAW 

-400 


OAC 

OTCT 1 


LAC 

FBUF 


OAC 

FOTPI 


JHS 

FRO 1 SK 

SCOMBt 

JHS 

F INT 


FL AC ! S • 

DTTSI 


1SZ 

OTTS! 


FMUL 

ffact 


F ADO* 

FOTPI 


FOAC • 

FOTPI 


JHS 

ISZ3 


FOTPi 



/ GET AOR OF LLlM 


/USED TO WIN* Rl i M WHEN READ I NO TAPE 


/SPECTRUM ADORE SS 

/SPECTRUM INPUT BUFFER 

/LOAD BUFFER 
/ERROR 


STRP2540 

STRP2550 

STRP2560 

STRP2570 

STRP25B0 

STRP2590 

STRP2600 

STRP26 1 0 

STRP2620 

STRP2630 

STRP2640 

STRP2650 

STRP2660 

STRP2670 

STRP26PQ 

STRP2690 

STRP2700 

STRP27I0 

STRP2720 

STRP2730 

STRP2V40 

STRP2750 

STRP2760 

STRP2770 

STRP2780 

STRP2790 

STRP2800 

STRP28I0 

STRP2820 

STRP2930 

STRP2840 

STRP2850 

STRP2860 

STRP2870 

STRP280O 

STRP2890 

STRP2900 

STRP2910 

STRP2920 

STRP2930 

STRP2940 

STRP2950 

STRP2960 

STRP2970 

STPP2980 

STRP2990 

STRP3000 

STRP30 1 0 

STRP3020 

STRP30.,0 

STRP3040 

STRP3050 

STRP3060 

STRP3070 

STRP3080 

STRP3090 

STRP3I00 

STRP3I 10 
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0 1 5465 

015466 

0 1 3467 

015470 

0 1 547 1 

0 1 5472 

015473 

015474 

0 1 5475 

015476 

015477 

015500 

015501 

015508 

015503 

0)5504 

015505 

015506 

015507 

015510 

01 55 1 I 

015512 

015513 

015514 

015515 

0 1 55 1 6 

015517 

0 1 5520 

015521 

0 1 5522 

015523 

0 I 552** 

015525 

0 1 5526 

0 1 5527 

015530 

015531 

015532 

015533 

01553** 

015535 

0 1 5536 

015537 

0IS54Q 

0155m 

0 1 55**2 

015543 

015544 

015545 

U 1 5546 

015547 

0 1 5550 

015551 

015552 

0 1 5553 

015554 

0 1 5555 
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015541 
1 15635 
I 15307 
215541 
315425 
015425 
215541 
1 I 3726 
315430 
015430 
215541 
515541 
315433 
015433 
113112 
442637 
615455 
1 15503 
635436 
I 1305! 
215425 
035346 
1 15544 
015346 
215430 
035346 

1 1 5544 
015346 
215433 
035346 
I 15544 
015346 
I 1 3666 
015425 
015430 
015433 
113112 
635436 
031200 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
453051 
233051 
055554 
235554 
356335 
075554 
635544 
000000 

215567 


SC0MB4 


SCORE T 

FBUF 

FBUFA 

FOTPl 

FFACT 


PTEMP 


1SZ3 


POAC 

PTEMP 

JHS 

RPS 

JMS 

BUM 

PLAC 

PTEMP 

PAOO 

Ai GRES 

POAC 

ALGRES 

PLAC 

PTEMP 

JMS 

ABS 

PAOO 

A8SRES 

FDAC 

ABSRES 

PLAC 

PTEMP 

PMUL 

PTEMP 

PAOO 

SQRRES 

POAC 

SQRRES 

JMS 

TEXT 

ISZ 

OTCTI 

JMP 

SCOMB 1 

JMS 

FMOISK 

JMP* 

SCOMBS 

JMS 

PINT 

"LAC 

ALGRES 

POAC* 

RESPT 

JMS 

ISZ3 

RESPT 

PLAC 

ABSRES 

POAC • 

RESPT 

JMS 

ISZ3 

RESPT 

PLAC 

SQRRES 

POAC* 

RESPT 

JMS 

I SZ3 

RESPT 

JMS 

P CL A 

FDAC 

ALGRES 

FOAC 

ABSRES 

FOAC 

SQRRES 

JMS 

PEXT 

JMP* 

SCOMBS 

31800 


•'LOG MOO 
S3 


0 

0 

0 

0 

0 

0 

0 

0 

0 

ISZ 

LAC* 

DAC 

LAC* 

TAD 

DAC* 

JMP* 

0 

LAC 


/NO 
/ YES 


ZERO RESIDUALS 


PINT 

PINT 

. *5 

. *4 

<31 

. *c 

ISZ3 


mc lg 


f I NCR ADR BY 1 
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STRP3I20 

STRP3I30 

STRP3I40 

S1RP3150 

STRP3I60 

STRP3170 

STRP3180 

STRP3190 

STRP3200 

STRP32I0 

STRP3220 

STRP3230 

STRP3240 

STRP3250 

STRP3260 

STRP3270 

STRP3280 

STRP3290 

STRP3300 

STRP331Q 

STRP3320 

STRP3330 

STRP3340 

STRP335C 

STRP3360 

STRP3370 

S TRP330O 

STRP3390 

STRP3400 

STRP3i* | o 
STRP3W2Q 

STRP34Z0 

STRF3440 

STRP3450 

STRP34S0 

STRP3W70 

STRP3**qo 

STRP3490 

5TRP3500 

STRP35I0 

STRP3520 

STRP3530 

STRP3540 

STRP3550 

STRP3560 

STRP3570 

STRP3580 

STRP3590 

STRP3600 

STRP36I0 

STRP3620 

STRP3630 

STRP3640 

STRP3650 

STRP3660 

STRP3670 

STRP3680 

STRP3700 
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0 1 5556 
0 I 5557 
015560 
0 1 556 1 
01556? 
015563 
0 I 556*4 
015565 
0 l 5566 
055567 
015570 
015571 
01557? 
015573 
015574 
015575 
015576 
015577 
015600 
015601 
015602 
015603 
015604 
015605 
015606 
015607 
015610 
0156! I 
015612 
015613 
015614 
015615 
015616 
015617 
015620 
015621 
015622 
015623 
Cl 5624 
0 l 5625 
015626 
015627 
015630 
015631 
015632 
015633 
015634 
015635 
015636 
j I 5537 
015640 
015641 
015642 
015643 
015644 
015645 
015646 
015647 


1 32 


741200 


SNA 

615564 


JMP 

21 1022 


LAC 

740001 


CMA 

356315 


TAD 

741000 


SKP 

211022 


LAC 

155567 


DZM 

630627 


JMP* 

000000 

MFLG 

0 

000400 

FBLKSV 

hOG 

OOOOCO 

FRDiSK 

0 

1 15703 


JMS 

1364 14 


JMS* 

000000 


0 

776400 


- 1400 

031200 


31200 

000000 

FBLK 

0 

000003 


3 

700042 


ION 

635571 


LIP* 

000000 

FWDISK 

0 

215577 


LAC 

055612 


DAC 

415573 


XCT 

000000 


0 

776400 


- & 400 

031200 


31200 

000000 


0 

000005 


5 

**55577 


1SZ 

455577 


IS Z 

455577 


1SZ 

740200 


SZA 

606257 


JMP 

215711 


LAC 

041135 


DAC 

635603 


JMP* 

203533 

DISK 

LAC 

055573 


DAC 

216333 


LAC 

615633 


JMP 

203574 

TAPE 

LAC 

055573 


DAC 

2 ’ 63 1 5 


LAC 

055570 


DAC 

606257 


JMP 

GOOOQO 

RF S 

0 

1 13506 


JMS 

213416 


LAC 

745100 


SPAICLL 

453415 


ISZ 

213417 


LAC 

741200 


SNA 

615655 


JMP 

2! 3415 


LAC 

74H00 


SPA 

6 i 5655 


JMP 


. *5 

MANT IS 
< 1 ' 

MANTIS 

MFLG 

LOGAR 


UNITS / CHANGE TO UNIT 5. 

(DISK10) 

/ WC 

CA 

/ READ 

FRD13K 

F8LK 
. *5 

ERCI5 k*2 

/ WC 
/ C A 

/ WRITE 

FBLK 

fblk 

FBLK 

RETC / ERROR. 

UN1TSV / RESTORE UNIT 

UNIT 

FWDISK 

COPY 1 

FRO 1 SK*2 

(4001 

. ♦ 4 

DEC 10 

FRDISK+2 

i : ) 

FBLKSV 

RETC 

FF IX 
0C ♦ 3 

/ROUND OFF 
BC ♦? 

AC 

/MINUS? 

RF SR /NO 

BC*2 

/# TOO LARGE? 

RF SR /YES 


STRP3710 

STRP3720 

STRP3730 

3 T RP3740 

STRP3750 

STRP3760 

STRP3770 

STRP3780 

5TRP3790 

STRP3800 

STRP302O 

STRP3830 

STRP3840 

STRP3850 

5TRP386f 

STRP3870 

STRP3880 

STAP3890 

STRP3900 

STRP3910 

STRP3920 

5TRP3930 

STRP3940 

STRP3950 

STRP3960 

5TRP3970 

3TRP3980 

STRP3990 

STRP4000 

STRP4010 

STRP4020 

STRP4030 

STRP4040 

STRP4050 

STRP4060 

STRP4070 

STRP40Q0 

STRP4090 

STRP4 1 00 

S7RP41 1 0 

STRP4 i 20 

STRP4I 30 

STRP4 i 40 

STRP4150 

STRP4 1 60 

5TRP4 1 70 

STRP4 100 

STRP4190 

STRP420Q 

STRP42 1 

STRP4220 

STRP4230 

STRP4240 

STRP4250 

STRP4260 

STRP4270 

STRP4280 

STRP4290 
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0 i 5650 

740001 


015651 

356313 


015652 

062640 


015653 

442640 


0 1 565*4 

635635 


015655 

213415 

RF SR 

015656 

740500 


015657 

6 1 5652 


0 1 5660 

-’50000 


015661 

555316 


015662 

055261 


015663 

615652 


01566*4 

215570 

INI T 

0 1 5665 

055577 


0 t 5666 

215533 


015667 

040255 


015670 

776400 


015671 

101636 


015672 

777735 


0 15673 

055702 


015674 

1 15703 


01 5675 

055261 


015676 

1 15603 


015677 

455702 


015700 

615674 


015701 

606257 


015702 

000000 

ICNT 

015703 

000000 

UNITS 

015704 

201135 


015705 

05571 1 


015706 

216346 


015707 

041135 


015710 

635703 


015711 

000000 

UNI TSV 

015712 

2 I 6572 


015713 

741000 


0 15714 

216573 

REAOPT 

015715 

056051 


015716 

200054 


015717 

7.1200 


015720 

606746 


015721 

216574 


015722 

051565 


015723 

101564 


015724 

101573 


015725 

101602 


015726 

777701 


015727 

042637 


0 ! 5730 

20021 3 


0 i 5731 

042640 


U 1 5732 

1 16006 


015733 

062640 


015734 

653323 


015735 

000074 


015736 

64 1002 


015737 

076472 


015740 

076471 


015741 

076500 
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CMA 

TAO 

c 1 ) 

OAC € 

OTTS 

ISZ 

OTTS 

JH P* 

RFS 

LAC 

8C+ ^ 

SMA 1 SNL 
JMP 

RFSR-3 

CLA 


SAD 

LIMCT 

OAC 

OVERFL 

JMP 

RFSR-3 

LAC 

F8LKSV 

OAC 

FBLK 

LAC 

F8UF 

OAC 

ZERTEM 

LAW 

-1400 

JMS 

ZEROUT 

LAW 

-43 

OAC 

ICNT 

JMS 

UNITS 

OA. 

OVERFL 

JMS 

FWOISK 


/STORE «. 


/SKIP IF QVCRFLOW • 


/SET OVERFLOW FLAG. 


/ ZERO OUT BUFFER 


/SET TO NO OVERFLOW. 



STRP4300 

STRP43I0 

STRP4320 

STRP4330 

S 1RP4340 

STRP4350 

STRP4360 

STRP4370 

STRP4380 

STRP4390 

STRP4400 

STRP441C 

STRP4420 

STRP4430 

STRP4440 

S‘i RP4450 

STRP4460 

STRPH470 

STRP4480 

STRP4490 

STRP450P 

STRP4510 

STRP4520 

STRP4530 

STRP454Q 

STRP4550 

STRP4560 

SIRP4S70 

STRP4580 

STRP4590 

STRP4600 

STRP461 C 

SYRP4620 

S1RP4630 

F I F T 0000 

FIFTOOIO 

F I F T 0020 

F IFT0030 

F IFTQ034 

F IFT0035 

F I F T 00 36 

FIFTOOIO 

F SFTOOSO 

F I F T 0060 

F IFT0070 

F I F T 0080 

F I F T 0090 

F I F TO 1 00 

FIFTOI 10 

F I F T 0 I 2 0 

F IFTOI 30 

F IFT01 40 

F IFT0I50 

F I F TO I 60 

F SFT0I70 

F I F TO 1 80 

F 1FT0I90 

F 1 F T 0200 




E-135 




03/02/73RALPH RIC C. DAVIES POP-9 


015742 

176477 


015743 

176518 


015744 

176475 


015745 

176476 


015746 

1 16006 


015747 

44864G 


015750 

068640 


015751 

448637 


0 1 5755 

615746 


015753 

800814 


015754 

048640 


Cl 5755 

800834. 


015756 

356316 


015757 

048641 


015760 

155708 


015761 

) ioGGS 


U 15762 

448640 

LOOP 

015763 

068640 


015764 

800818 


015765 

455708 


015766 

355708 


015767 

048535 


0 i 5770 

777700 


015771 

048637 


015778 

750000 


015773 

06864 1 


015774 

448641 


015775 

368535 


015776 

062535 


015777 

448535 


016000 

- 1 16006 


016001 

448637 


016002 

615773 


016003 

615768 


016004 

000000 

TEMP 

016005 

000000 

IMP l 

016006 

COOOOO 

PTRD 

016007 

148636 


016010 

156004 


01601 1 

1 16047 


016012 

516530 


01601? 

741200 


016014 

616010 


016015 

556347 


016016 

616048 


016017 

356536 


016020 

745100 


016021 

6 i 60 33 


016022 

056005 


0;b023 

816004 


016024 

653188 


016085 

000018 


016026 

641002 


016027 

356005 


016030 

056004 


016031 

448636 


016032 

6160 1 1 


016033 

202636 

TERM 
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OZM* 

ll i VELO+^OOl 

F 1 F T 02 1 0 

OZM* 

(REALTM* 

‘♦001 

F 1 F T 0220 

DZM* 

(REALLO*HOO> 

F I F T 0230 

DZM # 

( REALH i ♦LOO 1 

F ! F T 024 0 

JMS 

PTRD 

/ READ A * . 

F I F T 0250 

1SZ 

OT T j 


r 1FT0260 

DAC • 

OTTS 

/ STORE r . 

F IFT0270 

1SZ 

DTCT 1 


F I F T 0280 

JMP 

. -4 


FIFT029Q 

LAC 

MSTRIP 

/ M SINGLES 

F 1 F T 0300 

OAC 

OTTS 


F1FT0310 

LAC 

FSTCOl 

/ COINCIDENCE 

F 1 F T 0320 

TAO 

MOO) 


F I F T 0330 

OAC 

OTTS1 


F I F T 0340 

DZM 

I CNT 


FIFT0350 

JMS 

PTRD 


F ! F T 0360 

ISZ 

OTTS 

/ INCREMENT BEFORE STORING 

F IFT0370 

OAC • 

OTTS 

/ STORE M 

F 1 F T 0380 

LAC 

STRSUM 


F IFT0390 

ISZ 

I CNT 


F 1FT0400 

TAO 

I CNT 


FIFT0410 

DAC 

OTRE1 


F IFT0480 

LAW 

-100 


F JFT0430 

OAC 

OTCT1 


F IFT0440 

CLA 



F I F T 0450 

OAC* 

DTTSI 

/ STORE COINC 

F 1 F T 0460 

ISZ 

DTTS1 


F 1 F T 0470 

TAO* 

DTREi 


F 1 F 7 0480 

OAC* 

DTREI 

/ STORE SUM 

FIFT0490 

ISZ 

OTRE 1 


FIFT0500 

JMS 

PTRD 


F 1FT0510 

ISZ 

DTCT I 

/DONE 64? 

F I F T 0520 

JI1P 

. -7 

/ NO 

F I F T 0530 

JMP 

LOOP 

/ YES 

F 1 F T 0540 

0 



F i F T 0550 

0 



F 1 F T 0560 

0 



F 1 F T 0570 

DZM 

DTCT 


F I F T 0580 

OZM 

TEMP 


f I F T 0590 

JMS 

REA050 


F 1 F T 0600 

AND 

(77) 

/ GET 6 BITS. 

F IFT0610 

SNA 



F 1 F T 0620 

JMP 

. -4 

/ LEADER- IF 0 OR 200. 

F 1 F T 0630 

SAO - 

( 4 ) 

/ 4? 

F IFT0640 

JMP 

PTEND 

/ YES-EOT 

F 1 F T 0650 

TAO 

t -60 ) 


F 1 F T 0660 

SPA ! CLL 



F 1 F T 0670 

JMP 

TERM 

/ TERMINATOR 

F I F T 0680 

OAC 

IMP 1 


F i F T 0690 

LAC 

TEMP 


F 1 F T 0700 

MUL 



F IFT0710 

12 



F I F T 0720 

LACQ 



T ‘FTQ730 

TAD 

TMPl 


F 1 F T 07 40 

DAC 

TEMP 


F 1 F T 0750 

ISZ 

DTCT 

/ COUNT # OF CHARS. 

F I F T 0760 

JMP 

PTRD* 3 


F 1 F T 0770 

LAC 

OVCT 


F IF T0780 
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016034 

745800 


SNAiCLL 


/ REAO any char? 

016035 

616007 


JHP 

PTRO* 1 

i NO 

016036 

556347 


SAO 

(4) 

/ V DIGIT #> 

016037 

616007 


JHP 

PTRD* 1 

/ YES 

016040 

816004 


LAC 

TEHP 


oi6om 

636006 


JHP* 

PTRO 


C ! 6042 

816004 

PTEND 

LAC 

TEHP 


016043 

06864 1 


OAC • 

OTTSI 


016044 

705808 


705808 


/ CLEAR INTERFACE FLAG 

016045 

’05164 


705164 


/ DISABLE INTERFACE 

016046 

606857 


JHP 

RETC 

'DONE 

016047 

000000 

READ5G 

C 



016050 

705808 


705808 


/ CLEAR FLAG 

016051 

705161 


70516! 


/ ENABLE INTERFACE 

016058 

607436 


JHP 

RET 

016053 

705804 


705804 


/SET BUFFER 

016054 

705178 


705178 


/ REAO BUFFER 

016055 

636047 


JHP* 

REA050 


016056 

000000 

0UT8 

0 



016057 

70516! 


705161 



016060 

705306 


705306 


/ SEND 

01606! 

607436 


JHP 

RET 

016068 

7053C8 


705308 


/ CLEAR 

016063 

636056 


JHP* 

OUT 8 


0160S4 

000000 

INCHAN 

0 



016065 

658000 


LHQ 


/SAVE AC 

016066 

800054 


LAC 

FG505Q 


016067 

741800 


SNA 


/ 5050 SYSTEM? 

016070 

456064 


IS2 

! NCHAN 

/ NO 

016071 

641008 


LACQ 


/RESTORE AC 

016078 

636064 


JHP* 

INCHAN 


016073 

816380 


LAC 

( 80 > 

/ EXTEND 20 

016074 

056064 


OAC 

INCHAN 


016075 

816046 


LAC 

REA050 *1 


016076 

6161 18 


JHP 

PROGRH+6 


016077 

356380 


TAO 

( 80 J 


0161G0 

356380 


TAO 

<801 


016101 

356380 


TAO 

(801 

/ FORMAT 2**0 

016108 

356380 


TAO 

(801 

/ INVERT 220 

016103 

356380 


TAO 

(801 

/ FOCAL 200 

016104 

356380 

PRCGRH 

TAO 

(80! 

/ PLOT 160 

016105 

356380 


TAO 

( 80 i 

/ SING 1 VO 

016106 

356380 


TAO 

(80! 

/ SEARCH 1 20 

016107 

356316 


TAO 

(1001 

/ LIB 100 

016110 

056064 


OAC 

INCHAN 

/ STARTING BLOCK • 

0151 1 1 

816186 


LAC 

PLOTGO-I 


016! 18 

040105 


OAC 

105 


016113 

816460 


wAC 

i ! 7777 1 


016114 

057640 


OAC 

17640 

/ CA-I OF OVERLAYS 

016115 

816064 


LAC 

1 NCHAN 

C 1 6 : 1 6 

557637 


SAO 

1 7637 

/ ALREADY IN CORE ? 

0161 17 

606857 


JHP 

RETC 

016180 

057637 


OAC 

17637 


016181 

770008 


LAM 

7776 


016188 

05764 1 


OAC 

17641 

/ WC* -WK 

016183 

617663 


JHP 

17663 


016184 

816333 


LAC 

(4001 


016185 

60104! 


JHP 

BKG*8 



r ITT0790 
F I F T 0800 
F1FTO0IO 
F I F T 0820 
F IFT0830 
F I F T OSLO 
F I F T 0850 
F 1 F T 0860 
F I F T 0870 
F I F T 0880 
F I F T 0890 
F I F T 0900 
F IFTOSIO 
F I F T 0920 
FIFT0930 
F IF T0900 
F I F T 0950 
F I F T 0960 
F I F T 0970 
F IF T 0980 
F IFT0990 
FIFTIOOO 
FIFTIOIO 
F IFT I 020 
F I FT 1 030 
FIFTI040 
F IFT I 050 

f:fti060 

FIFTI070 

FiFTlOSO 

F IF T 1090 

OVLYOOOO 

OVLYOOIO 

OVLY0020 

OVLY0030 

OVLY003V 

OVL Y0035 

OVLY0036 

OVLY0037 

OVLYOOIO 

OVLYOOSO 

0VLY0060 

OVLY0070 

OVL Y0080 

OVLY0090 

OVLYOIOO 

OVL YO I 10 

OVL YO I 20 

OVLY0I30 

OVLYOIOO 

OVL YO I 50 

OVL YO 1 60 

OVLYOI 70 

CVLY0I80 

OVL YO 1 90 

OVL Y0200 

OVLY02I0 

OVLY0220 
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016126 

616! 2* 


jriP 

.-2 

OVLYQ230 

016127 

00000* 

PLOTGO 

0 


OVLY0240 

016130 

607*36 


JMP 

RET 

0VLY0250 

016131 

702*02 

plottr 

702*02 

/ PLcr 

OVL Y0280 

016132 

200006 


LAC 

STPOUT 

OVLY0290 

016133 

7H0200 


SZA 


0VLY030C 

0I613H 

6Q7*0* 


JMP 

INCON 

0VLY0310 

016135 

7000*2 


ION 


OVLY0320 

QI6I36 

636127 


JMP 3 

PLOTGO 

OVL Y0330 

016137 

750001 


CLC 


OVLY03H0 

0 1 6 1 HO 

356265 


TAO 

0 1 PT 

OVLY0350 

0 161 HI 

056265 

OIOA 

OAC 

QSPT 

OVL Y0360 

0I6IH2 

156266 


OZM 

Oi OAC 

OVLY0370 

0I6IH3 

106737 


JMS 

CRLF 

OVL Y0380 

0I6IHH 

216265 


LAC 

OIPT 

OVL Y 0390 

0I61H5 

116267 


JMS 

OOUT 

OVLYOVOO 

0I6IH6 

236265 


LAC* 

OIPT 

OVLYOHIO 

0I6IH7 

1 16267 


JMS 

OOUT 

OVLY0H20 

016150 

l 12376 

010 

JMS 

READ! 

OVLY0H30 

016151 

1 16303 


JMS 

M|UCH 

OV'I.YOHHO 

016152 

00Q2V3 


2*0 


OVLYu <50 

016153 

61622* 


JMP 

01LF 

OVLYOH6U 

0I6I5H 

0003 1 * 


31* 


OVLY0H70 

016155 

616222 


JMP 

OILO 

0VLY0H80 

016156 

000316 


316 


OVLY0H90 

016157 

616220 


JMP 

OINX 

OVLY0500 

016160 

000307 


307 


OVLY05I 0 

016161 

616237 


JMP 

0 1 GO 

OVLY0520 

016162 

000323 


323 


0VLY0530 

016163 

616226 


JMP 

OI JMS 

0VLY05H0 

0I6I6H 

000302 


302 


OVLY0550 

016165 

6162** 


JMP 

01 OB 

OVLY0560 

016166 

000322 


322 


OVLY0570 

016167 

616252 


JMP 

0 1 OBRS 

GVLY0580 

0161 70 

000325 


325 


OVL Y 0590 

016171 

616137 


JMP 

OIOA-2 

OVLY0600 

016172 

000320 


320 


OVLY061 0 

016173 

616207 


JMP 

01 PRO 

OVL Y0620 

01617** 

000215 


215 


OVLY0630 

016175 

606257 


JMP 

RETC 

OVLY06H0 , 

016* 76 

000000 


0 


OVLY0650 

016177 

206725 


LAC 

TS1 

OVLY0660 

016200 

5163** 


AND 

17) 

OVLY0670 

016201 

056217 


OAC 

T SS 1 

OVLY0680 

G 16202 

216266 


LAC 

0 I OAC 

OVL Y0690 

016203 

6*0703 


ALS 

3 

OVL Y0700 

01620H 

356217 


TAO 

TSS 1 

OVLY071 0 

016205 

056266 


OAC 

OiOAC 

OVLY0720 

016206 

616150 


JMP 

010 

OVLY0730 

n 16207 

216263 

0 1 PRO 

LAC 

L 1NSV 

OVLY0740 

016217 

7*0020 


RAR 


OVLY0750 

01621 1 

2 1 626* 


LAC 

MQSV 

OVLY0760 

016212 

6520H0 


LMQ 


OVLY0770 

016213 

216262 


LAC 

ACSV 

OVL Y0780 

0 1 62 1 H 

7000*2 


ION 


OVL Y 0790 

016215 

*16257 


XCT 

0108SV 

OVLY0800 

016216 

620020 


JMP* 

20 

OVLY0810 

016217 

000000 

T SS 1 

0 


OVLY0820 
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016220 

216266 

016221 

61614! 

016222 

216266 

016223 

076265 

0 1 622*4 

456265 

016225 

616142 

016226 

1 36266 

016227 

056262 

016230 

750010 

016231 

056263 

016232 

641002 

016233 

056284 

01623** 

216261 

016235 

056265 

016236 

616224 

016237 

216255 

0 16240 

740020 

016241 

216256 

0 1 6242 

700042 

01 62 *<3 

636266 

0162*4*4 

236266 

016245 

056257 

0I62H6 

216266 

016247 

056260 

016250 

176266 

016251 

616224 

016252 

2 1 6257 

016253 

076260 

016254 

616224 

016255 

000000 

016256 

000000 

016257 

000000 

016260 

000000 

0 1 626 1 

0*6261 

016262 

000000 * 

016263 

000000 

016264 

000000 

016265 

000000 

016266 

000000 

016267 

000000 

016270 

652000 

016271 

777772 

016272 

046737 

016273 

760026 

016274 

640603 

016275 

1 06752 

016276 

4*6737 

016277 

616273 

016300 

"*60240 

016301 

1 06752 

01 6302 

636267 

016303 

000000 

016304 

236303 

016305 

456303 

016306 

745200 

016307 

636333 

016310 

546725 

01631 1 

636303 
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c:*« LAC OIOAC 

JHP OIOA 

OILO LAC OIOAC 

OAC* OIPT 

OILF I SZ OIPT 

JHP OIOA+ I 

GlJHS JMS* 01 ‘"‘AC 

D8RT - OAC ACSV 

GLK 

OAC LINSV 

LACO 

OAC MOSV 

LAC ACPT 

OAC OIPT 

JHP OILF 

O I GO LAC L 1 NK 

RAR 

LAC ACSET 

ION 

JHP* OIOAC 

OIOB LAC* OIOAC 

OAC OIDBSV 

L..C OIOAC 

OAC OIOBAO 

OZH* OIOAC 

JHP OILF 

0I08RS LAC OIDBSV 

OAC* OIOBAO 

JHP OILF 


LINK 0 

ACSET 0 

OIDBSV 0 

OIOBAO 0 

ACPT ACPT 

ACSV 0 

LINSV 0 

HOSV 0 

OIPT 0 

OIOAC 0 

00‘JT 0 

LHQ 

LAN -6 

OAC CRLF 

LAN 26 

LLS 3 

JMS PR | NT 

ISZ CRLF 

JHP .-4 

LAM 240 

JHS PRINT 

JHP* OOUT 

H*TCH 0 

LAC* MATCH 

ISZ MATCH 

SNA I CLL 

JHP* MATCH 

SAO TSI 

JHP* MATCH 


OVLY0830 

ovLYoem) 
OVLY0850 
OVLY0860 
OVLY087Q 
OVLY0880 
OVLY0890 
OVLYOROO 
OVLY09I 0 
OVLY0920 
0VLY0930 
OVLY09H0 
OVLY0950 
OVLY0960 
OVLY0970 
OVi_ Y0980 
OVLY099C 
OVLY I 000 
OVLYIOIO 
OVLY I 020 
OVLY 1030 
OVLY I 040 
OVLY I 050 
OVLY I 060 
OVLY I 070 
OVLY 1080 
OVLY I 090 
0VLY1 100 
OVLY I I 10 
OVLY 1 120 
OVLY! I 30 
OVLY I 1 40 
OVLY 1 150 
OVLYI 160 
OVLY 1 170 
OVLYI 130 
OVLYI 190 
OVLY I 200 
OVLY I 210 
OVLY 1220 
OVLY! 230 
OVLY 1 240 
OVLY 1250 
OVLY 1260 
OVLY 1270 
OVLY 1280 
OVLY l 290 
OVLY I 300 
OVLYI 310 
OVLY 1320 
OVLY I 330 
OVLY I 3**C 
OVLY I 350 
OVLY 1360 
OVLYI 370 
OVLY >380 
OVLYI 390 
OVLYlwOO 
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136 


016312 

456102 


1SZ 

0)6313 

616304 


JH P 

0I63IH 

000000 

U10UT 

0 




.END 

016314 

400000 



016315 

00000! 



016316 

000100 



056317 

001760 



016320 

000020 



016321 

000026 



016322 

000032 



0IS323 

777773 



016324 

000130 



016325 

006262 



016326 

00627* 



016327 

01 1377 



016330 

006344 



016331 

000045 



016332 

0000)7 



016333 

000400 



01633* 

000177 



016335 

000003 



n 16336 

000054 



016337 

777777 



016540 

001777 



0161*1 

000010 



016342 

060000 



016343 

040000 



016344 

000007 



016345 

000006 



016346 

000005 



016347 

0000U4 



016350 

030035 



016351 

030036 



0)6352 

000053 



016353 

000055 



016354 

000040 



016355 

000076 



016356 

000052 



0 1 6357 

000057 



016360 

000300 



016361 

000043 



016362 

030037 



016363 

027777 



016364 

030437 



016365 

030377 



0163am 

% 77770 



016367 

602713 



j 16370 

002730 



016371 

602671 



016372 

603464 



016373 

74662C 



016374 

200000 



016375 

140000 



016376 

600000 



016377 

030030 



016400 

030016 



01 640 I 

03C020 




MATCH 
MATCH* I 


ovLrmio 

OVLYI«*20 
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* • • 
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01640 a 

777401 

0 16*403 

000377 

016404 

057600 

0 1 6*4 05 

030022 

01**0* 

030024 

016407 

030026 

016410 

000215 

0I6H I I 

? 45500 

016412 

000551 

016413 

000002 

o:6«tiH 

003421 

G16*#I5 

603637 

016*416 

006426 

016HI7 

310000 

016*420 

037777 

016*421 

700000 

016*422 

377777 

0 16*423 

720000 

0 I6h2*4 

160000 

0 16*425 

030032 

016*426 

777400 

016*427 

000200 

016*430 

030033 

016*431 

030031 

0 16*432 

001055 

016*433 

030003 

016H3H 

007020 

0 16*435 

030004 

0 16*436 

030001 

016*437 

00034! 

016*4*40 

030002 

016*4*4! 

030006 

0164*42 

030010 

016443 

030012 

016444 

030014 

016445 

000070 

016446 

00543! 

016447 

100000 

016450 

007700 

0*6451 

000550 

016452 

041400 

0 1 6453 

020000 

016454 

01 0000 

016455 

500000 

018456 

420000 

016457 

000260 

016460 

017777 

018461 

777740 

016462 

000240 

016463 

212215 

016464 

00001 1 

016465 

030445 

016466 

777520 

018467 

660502 

016470 

00003! 

01647! 

030436 

016472 

030430 

016473 

030434 


m-a 


03/02/73RALPH R!C C. 


OAVIES POP-? 


•• POPS)/ 15 ASSEMBLY LISTING •** 


PAGE NO. 


016474 

030435 

016475 

030404 

016476 

030403 

016477 

030402 

01 6500 

030401 

016501 

00002! 

016502 

000144 

016503 

776000 

016504 

777750 

016505 

000012 

016506 

001750 

016507 

023430 

016510 

303240 

01651 ! 

001000 

016512 

030431 

016513 

044500 

016514 

377600 

016515 

120000 

01 6516 

01 1000 

016517 

010200 

016520 

446500 

016521 

040500 

016522 

046500 

016523 

041500 

C ; 6524 

031000 

016525 

031076 

016526 

034377 

016527 

030777 

016530 

000077 

016531 

300000 

OS 6532 

760000 

016533 

240000 

016534 

640500 

016535 

770000 

016536 

777720 

016537 

777766 

0165«*0 

000203 

016541 

000225 

016542 

000220 

016543 

000212 

016544 

000273 

016545 

0003-*6 

016546 

000274 

016547 

777000 

016550 

000777 

016551 

660500 

016552 

000044 

016553 

660600 

016554 

166712 

01 o555 

7**7776 

0 i 6556 

777744 

016557 

440000 

016560 

004000 

0 1 656 1 

002000 

016562 

000022 

016563 

000027 

016564 

000024 

016565 

000016 


mo 
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016966 777364 
016567 030626 
016570 030443 
016571 030400 
016572 705161 
016573 700104 
016574 016012 


• • • 
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PAGE NO. : *♦! 


r. 
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020000 
02000 ! 
020002 
020003 
020004 
020005 
020006 
020007 
020010 
0200 ! 1 
C200I2 
020013 
020014 
020015 
020016 
020017 
020020 
020021 
020022 
020023 
020024 
020025 
020026 
020027 
020030 
C20031 
020032 
020033 
020034 
020035 
020036 
020037 
020040 
020041 
020042 
020043 
020044 
020045 
020046 
020047 
020050 
02005! 
020052 
020053 
020054 
020055 
C20056 
020057 
020060 
020061 
020062 
020063 
020064 
020065 
020066 


POP -9 

• M 

PDP9/ 1 5 
•title 

• LOC 

• LIT 

513000 


515000 

020*56 


r 

533230 


553230 

020*56 


F 

25*673 


25*673 

020*56 


F 

560600 


560600 

020*56 


F 

727000 


727000 

020337 


GETUIN 

35*0*0 


35*0*0 

020306 


OECPUT 

*57070 


*57070 

0200** 


GET 

*7*3*2 


*7*3*2 

0200*3 


GET - I 

35**22 


35**22 

020*06 


GETPT 

0*1522 


0*1322 

020*00 


GETPT-6 

*0*152 


*0*152 

020*0* 


GETPT-2 

761332 


761332 

020375 


SSING 

761330 


761330 

02037* 


SSING- 1 

352220 


352220 

020**6 


RES 

000000 


0 

000000 


0 

000000 

GETNUM 

0 

000000 

GETDIV 

0 

000000 

I 

0 

000000 


0 

000000 


0 

751000 


SKPICLA 

777777 

GET 

LAN 

0*0303 


OAC 

10036* 


JUS 

120*57 


JHS* 

1 20*60 


JUS* 

060*6! 


OAC* 

220*62 


LAC* 

060*63 


OAC* 

220*6* 


LAC* 

7*1200 


SNA 

6002*6 


JHP 

5*0*65 


SAO 

600070 


JHP 

5*0*66 


SAO 

600070 


JHP 

3*0*67 


SAO 

6002*6 


JHP 

5*0*70 


SAO 

6002*6 


JHP 


ASSEMBLY LISTING ••• 

SINGLES ROUTINE. . . 
£0000 
f ♦ 1 

/ H 
/ SUN 
/ CON7UR 
/ EH 

/ WINDOW 
/ DEC 
/ GET 
y ROSLOT 
/ ROTMC 
/ REA08 
/ REAOPT 
/ SSING 
/ CSING 
/RES 


/ temp location 

/ TEMP LOCATION 
/ TEHR LOCATION 
/ ROSLOT COMMAND 


-1 

/ 

GET COHHAND 

GETSM 
GET 10 
IADCCHK 
(DEC IN) 

(0TRE2) 

/ 

LOW 

<BC* I ! 

/ 

HIGH ORDER 

•OTRE1 I 

1 TCI 

/ 

CHECK TERH CHAR 

GET 3 

/ 

ID * 

1531 

f 

♦ SIGN? 

GET 4 

/ 

YES 

<55! 

/ 

- SIGN? 

GET 4 

/ 

YES 

140! 

/ 

SPACE? 

GETS 

/ 

YES 

<761 

/ 

ALT NODE? 

GET 3 


PAGE NO. 
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020067 620*47 1 

020070 0*40305 

020071 120460 

020072 *<60*472 

020073 7*41000 

02007s 600117 

020075 060*473 

020076 0*<0036 

020077 200*t7*4 

020100 oeov^s 

020101 0*40037 

020102 220*46*4 

020 1 03 5*40*476 

02010*4 600125 

020105 5*40*477 

020106 7*4 1000 

020107 620*471 

020110 I20*<60 

0201 11 060*475 

020112 0*40037 

020113 220*46*4 

0201 l«< 5*40*476 

020115 600125 

020116 620*471 

02C I 1 7 7S000I 

020120 0*4030*4 

020121 120500 

020122 220501 

020123 720502 

02012*4 600131 

020125 1*4030*4 

020126 120500 

020127 2*40036 

020130 7*40037 

020131 020503 

020 1 32 12030*4 

020133 020505 

020 1 3*4 020506 

020135 020507 

020136 120510 

020137 200305 

0201*40 5*40*465 

0201*4 1 6001*45 

020 1 *42 220511 

0201*43 3**0512 

020 1 *4*4 0605 1 1 

0201*45 220513 

0201*46 C605l*4 

0201*47 *4*40303 

jdO 1 50 600275 

P20I5I 120*460 

020152 060*461 

020153 220*462 

02015*4 060*463 

020155 120515 

020156 7*40800 

020157 620516 

020160 120517 


••• PDP9/15 ASSEMBLY LISTING *** 


PAGE NO. 1*43 



E-145 


03/G2/73RALPH RIC C. OAVIES PDP-9 


Of 0 163 220920 

020162 710200 

020163 620171 

020161 220521 

020165 060522 

020166 220165 

020167 710200 

020170 600206 

020171 200305 

020 1 72 510165 

020173 120523 

020171 777760 

020175 010010 

020176 200271 

020177 010011 

020200 120521 

020201 200011 

020202 310525 

020203 110010 

020201 600177 

020205 620526 

020206 110301 

020207 600216 

020210 120500 

020211 220501 

020212 120527 

0202 i 3 220502 

020211 120527 

0202 1 5 1 205 1 0 

020216 220530 

020217 060531 

020220 220532 

020221 06053? 

020222 777100 

020223 060531 

020221 777761 

020225 010010 

020226 200271 

020227 010011 

020230 220535 

02023 1 060536 

020232 200011 

020233 120537 

020231 200011 

320235 310525 

020236 110010 

020237 600227 

G20210 P.1001 1 

02021 I 200510 

'--f 0212 060531 

020213 200011 

020211 120537 

020215 620526 

020216 110303 

020217 600300 

020250 120515 

020251 710200 

020252 620516 


•• P0P9/I5 ASSEMBLY LISTING 


9 9 9 


PA GE NO. it MH 


GET9 


GETS 


GET3 


LAC* 

lomrLGi 


SZA 
J MP* 

t QMAftK ) 

/ 10 NOT FOUND. 

LAC* 

(BLXNOI 

/ PUT EXP BLOCK* 

DAC* 

(RDBLK > 

/ IN ROBLK . 

LAC* 

(S'.RPFG) 


SZA 


/ SINGLES OR SINGLES 

JMP 

GETS 

t STRIP. 

LAC 

GETS 


SAD 

*53 ) 

' IF ♦ UPDATE TIMES. 

JMS* 

* SC0M85 1 

LAW 

-20 


OAC 

f 


LAC 

GET 1 


OAC 

I ♦! 


JMS* 

(SC0M8) 


LAC 

I ♦ 1 


TAD 

(1001 


ISZ 

I 

/ OONE 1096 CHANNELS? 

JMP 

.-5 

t NO 

JMP* 

(ROSl-61 


IbZ 

GFLG 

/ PRINT R 1 l R27 

JMP 

. *7 

/ NO 

JMS* 

(FI NT l 


EL AC* 

(ONUMI 1 


JMS* 

(FPRIN) 

/ PRINT R| 

EL AC* 

t DN0M1 1 

JMS* 

(FPRIN) 

/ PRINT R2 

JMS* 

IFEXTI 


LAC* 

1SC0RET) 


OAC* 

( SC0MB1.1 ) 

LAC* 

< RESPTS ) 


OAC* 

<RESPT) 


LAM 

-MOO 


OAC* 

( SCOMBC > 


LAM 

-17 


OAC 

I 


LAC 

GETt 

/ FSTRIP 

DAC 

1*1 


LAC* 

<SLIM> 

/ SET LIMIT COUNTED 

OAC* 

<L1MCT ) 


LAC 

l ♦ 1 


JMS* 

tSCOMBSl 

/ STRIP DATA. 

LAC 

! ♦ 1 


TAD 

(MOO) 


ISZ 

I 

f DONE 1096 CHANNELS? 

JMP 

.-to 

f NO 

DAC 

1 ♦ 1 


LAC 

< 7MOOOO) 

/ STORE RESIDUALS. 

OAC* 

«SCOMBH*M) 


LAC 

1*1 


JMS* 

CSCOMBSi 


JMP* 

CRDSL-6) 


ISZ 

GE TSM 


JMP 

GETSL 



JMS* 
SZA 
JMP * 


(R0D1R) 

tRETO 


' read DIRECTORY 
/ DEC TAPE ERROR? 

/ YES 


9n-a 
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020253 I 205 1 7 

020254 220520 

020255 740200 

020258 620471 

020257 220521 

020260 060522 

020261 200541 

020262 1 20542 

020263 220522 

020264 340474 

020265 040272 

020266 420543 

020267 0C0000 

020270 770000 

020271 037400 

020272 000000 

020273 000003 

020274 620526 

020275 120460 

020276 1 20544 

020277 600165 

020300 220461 

020301 120544 

020302 600260 

020303 000000 

020304 000000 

020305 000000 

020306 120457 

020307 | 00364 

020310 120515 

020311 740200 

020312 G205S6 

020313 120545 

020314 220520 

020315 740200 

020316 620516 

020317 120546 

020320 740200 

020321 620516 

020322 220521 

020323 060547 

020324 040334 

020325 200541 

020326 120550 

020327 440334 

020330 420543 

020331 000000 

020332 770000 

020333 037400 

027334 000000 

020335 000005 

020336 620516 

020337 120460 

020340 060551 

020341 120460 

020342 040040 

020343 220551 

020344 740001 


• • 


POP*/ 15 assembly listing 


• • • 


PAOC NO . 145 


OET I 


OETSL 


GETSW 

OFLG 

GETS 

DECPUT 


GETWIN 


jus* 

LAC* 

SZA 

JMP* 

LAC* 

DAC* 

LAC 

JMS* 

LAC* 

TAD 

DAC 

XCT • 

0 

-10000 

37400 

0 

3 

JMP* 
JMS* 
JMS* 
JMP 
LAC ' 
JMS* 
JMP 
0 
0 
0 

JMS* 

JMS 

JMS* 

SZA 

JMP* 

JMS* 

LAC* 

SZA 

JMP* 

JMS* 

SZA 

JMP* 

LAC* 

DAC* 

DAC 

LAC 

JMS® 

ISZ 

XCT* 

0 

-10000 

37400 

0 

5 

JMP* 

JMS* 

OAC* 

JMS* 

OAC 

LAC* 

CMA 


« SEARCH » / 

(DIRFLG) 

/ 

« OMARK I / 
(BLKNO) 

(ROB' K) 
(304001 / 

CRT APE) 
(ROBLK ) 

( 1 ) 

.♦5 

( JMS 1 0 I 


/ WC 
/CA 

/ BLK • 
/ READ 

(ROSL-6) 

( DEC I N ) 

(OK) 

0ET9 

(DTRE2) 

(OK) 

OETl-l i 


CADtCHK) 

OET 10 
(RDOIR) 

(RETC) 

(AOODIR) / AOO NEW ID. 

(OIRFLG) 

• TAPE ok? 

(RETC) / NO 

CHTOIRl 

/ WRITE DIRECTORY OK? 
(RETC) / NO 

(BLKNOI 
(0EC8LK) 

.♦10 

(30400) / 10 BLOCK ADR 

(HTOEC) 

. *5 

( JMS 1 0 ) 

/ HC 
/ CA 

/ BLK *. 

/ WRITE. 

(RETC) 

C0EC1N? / (ST CHANNEL 

( 0 1 SAOO ) / STORE AOO I NG FACTOR 

(DEC IN) / LAST CHANNEL 
I 

(01 SAOO) 


FIND 10 A DETERMINE BLK •. 

FIND 10? 

NO 

10 BLOCK AOR 
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020345 

340474 

020346 

340040 

020347 

741300 

020350 

620471 

020351 

*•40552 

029352 

740300 

020353 

620471 

020354 

340553 

020355 

060554 

020356 

740001 

020357 

340474 

020360 

060555 

020361 

770000 

020362 

060556 

020363 

620516 

020364 

000000 

020365 

200557 

020366 

060560 

020367 

060561 

020370 

200562 

020371 

060563 

020372 

060564 

020373 

620364 

020374 

751000 

Q20375 

750001 

020376 

060465 

020377 

620516 

020400 

200565 

020401 

040425 

020402 

200566 

020403 

6004 1 1 

020404 

200565 

020405 

74(000 

020406 

200567 

020407 

040425 

020410 

200570 

0204 l 1 

060571 

020412 

200572 

020413 

060573 

0204 14 

120574 

020415 

120575 

020416 

20027 1 

020417 

060576 

020420 

040040 

020421 

770000 

C20422 

040041 

020423 

120577 

020424 

653323 

020425 

000144 

0cU426 

050402 

020427 

64 l 002 

020430 

050436 

020431 

050401 

020432 

050432 

020433 

150403 

020434 

150404 

020435 

150431 

020436 

751000 


i • • 
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GETIO 


SSI NO 


GETPT 


GETPT i 


TAD 

TAD 

SPA I SNA 
JhP* 

TAD 

SMAlSZA 
J MP* 

TAO 
OAC • 

CMA 

TAD 

OAC* 

LAW 
OAC • 
JMP* 

0 

LAC 
OAC * 

DAC • 

LAC 

OAC* 

DAC* 

JMP* 

CLAISKP 

CLC 

DAC* 

JMP* 

LAC 

DAC 

LAC 

JMP 

LAC 

SKP 

LAC 

OAC 

LAC 

DAC* 

LAC 

DAC* 

JMS* 

JMS* 

LAC 

DAC* 

OAC 
LAW 
OAC 
IMS* 
i 0 1 V 
I 44 
OAC 
LACQ 
DAC 
OAC 
DAC 
OZM 
OZM 
OZM 

SKPiCLA 


( I ) 

I 

/ 1ST < LAST? 

< QMARK I 
(-7777) 

/ GREATER THAN 4K ? 
(QMARK) / YES 
( 10000) 

(NOCD) 

( 1 > 

( MNOCD ) 

-10000 
( MRAMP ) 

(RETC) 

t 2S ) 

(DSL0T44) 

(BLKCAL+4) 

(32) 

(UNS AMT ) 

(PULL ) 

GETIO 


CSTRPFG) 

(RETC) 

(74) / READ8 

GETPT I 
(705161 I 
OE TPT 4 3 

(74) / REAOPT 

(144) / TMC 

GETPT 1 
(700104) 

(REA0504S) 

( PTRD*4 ) 

( RPAPER 1 
(ERASE) 

(ERASC ) 

GET I 
(OTTS1 ) 

I 

- 1 0000 
!*| 

( PTRQ ) 

/ DIVIDE BY 100 
/ OR BY 60. 

L 3 VELO + 400 

/ INTEGER PART 

Li VEPH*4C0 
L I VEH I *400 
L I VETM4400 
REALM! *400 
REALLQ*400 
REALTM4400 
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020437 

080440 

020441 

020442 

020443 

020444 

020445 

020446 

020447 

020450 

020451 

020452 

020453 

020454 

020455 

020456 

020457 

020460 

020461 

020462 

020463 

020464 

020465 

020466 

020467 

020470 

020471 

020472 

020473 

020474 

020475 

020476 

020477 

020500 

020501 

020502 

020503 

020504 

020505 

02C506 

020507 

020510 

02051 1 

020512 

020513 

020514 

020515 

020516 

0Lu5 1 7 

020520 

020521 

020522 

020523 

020524 

020525 

020526 

020527 


120577 


JUS * 

060040 


DAC* 

440040 


1SZ 

460576 


ISZ* 

**40041 


ISZ 

600437 


JMP 

620516 


JMP* 

120600 

RES 

JMS • 

0 : 5265 


MESSAL 

315347 


flt 

015270 


HESSAB 

315352 


flt 

015273 


MESSSQ 

315355 


flt 

620601 


JMP* 

620602 

F 

JMP* 

.END 


tPTRO) 

i / STORE SINGLES DATA 

I 

(OTTSI J 

*♦! / DONE 

.-5 /NO 

1RETC) 
f M 1 0 ) 

ALGS 

A8SS 

SQS 

(OVEREL-6) 

(FCGMO 1 


004041 


012461 
002534 
013414 
002535 
012714 
000053 
000055 
000040 
000076 
006746 
000062 
002405 
000001 
002406 
000052 
000057 
013051 
016600 
016603 
015536 
0 l 3666 
015425 
015430 
015433 
013112 
015537 
400000 
015570 
C 1 5577 
0C-6054 
006257 
006141 
006303 
006305 
002606 
002407 
002261 
000400 
002553 
014324 
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029510 
020531 
020532 
020533 
0205m 
020535 
020536 
020537 
020540 
020541 
020542 
020543 
020544 
020545 
020546 
020547 
020550 
020551 
020552 
020553 
020554 
020555 
020556 
020557 
020560 
020561 
020562 
020563 
0205^4 
020565 
020566 
020567 
020570 
020571 
020572 
020573 
020574 
020575 
020576 
020577 
020600 
02060 ! 
020602 


I 46 


025532 
015507 
015345 
015346 
015450 
015423 
JI53I6 
015436 
740000 
030400 
002600 
001013 
002564 
005725 
006072 
006522 
006514 
007660 
770001 
01 0000 
010344 
007657 
010307 
000026 
004376 
006266 
000032 
001007 
005716 
000074 
705161 
000144 
700104 
016051 
016012 
011565 
001564 
001602 
002641 
OS 6006 
01 1625 
015253 
001645 
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020000 *l*3l* 

020001 020165 

020002 * 6 i*i* 

020003 020163 

02000* •*57'* I* 

020005 020075 

020006 •<55270 

020007 02025*o 

020010 256030 

020011 0203** I 

020012 *50*5? 

020013 020201 

0200 I* 652** 1 * 

020015 020030 

020016 *5**1* 

020017 020071 

020020 756*1* 

020021 020073 

020022 *57070 

020023 020125 

02002** *7*3*2 

020025 020 1 **2 

020026 000000 

020027 000000 

020030 120*15 LREN 

020031 060*«I6 

020032 220*17 

020033 060*20 

02003** 120*15 

020035 12C**21 

020036 100302 

020037 I20H22 

0200*0 7H0200 

0200** I 620*23 

020 O'* 2 I20**2*« 

0200H3 22 O'* 25 

0200** 7«*Q200 

0200*5 620*423 

0200**6 1 2 O '* 20 

0200*7 220**27 

020050 360**30 

020051 3**0*43l 

020052 0**0200 

020053 220*32 

02005* 360*30 

020055 3*0*31 

020056 0*0*12 

0200*7 220*17 

020U60 320*33 

020061 7*1200 

020062 620*3* 

020063 220*33 

02006* 060200 

020065 220*17 

020066 060*12 


W5/15 r L I SI I WO ••• 


RAOC MO 1*9 


l I Mart create routine.. 
20000 
LI5* I 

/ LAST 1 0 
/ LIMOCX 


/ LG£T 


/ OREEL 


/ XfER 


/ OUTPUT 


/ LREN 


t LOEL 


/ LNEH 


/ OET 


/ ROSLOT 


(OECINi 
10TRE2I 
<BC* I ) 
(OTREI I 
(OECINi 
i AOCCHK I 
U5 

IROOIR) 


RE AO OLO 10 


READ NEW 10 


READ 01 RECTORY 


( RE T C > 

(SEARCH) 

•OIRfLOi 

(RETC) 

( SETCNT l 
(01RTEM) 
(0IRCT2) 
(-11 
LASTC 
(OIRTI ) 
(0IRCT2) 
(-11 
CTM 
( BC ♦ I ) 
<BC»2> 


rtNO io? 


/ NOT TOUNO. 


/ determine aor or io. 


( OMARk I 

<ec«2i 

LASTC 
(8C« 1 ) 
CTN 


/ CHANGE 10. 
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ISO 
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020067 

I20H35 


JMS* 

CWTOIR) 

/ 

WRITE NEW OIRECTORY 

080070 

620H23 


JMP* 

CRETC1 



020071 

100302 

LOEL 

JMS 

U5 



020072 

620H36 


JMP* 

l REMOVE) 



020073 

100302 

LNEW 

JMS 

U5 



02007H 

620H37 


JMP* 

INEUDIRI 



020075 

120H15 

LGET 

JMS* 

lOECINl 

/ 

GE" 10 

020076 

060H16 


OAC* 

<0TRE2) 



020077 

220H17 


LAC* 

i BC+ 1 ) 



020100 

060420 


OAC* 

(OTRE1 1 



020 I 0 I 

120H2H 


JMS* 

i SE ARCH1 

/ 

SEARCH FOR 10 

020102 

220H25 


LAC* 

COIRFLG) 



0201 03 

740200 


SZA 


/ 

FIND 10? 

0201 OH 

620H23 


JMP* 

(RETCl 

/ 

NO 

020105 

200276 


LAC 

RBAS 



020106 

360H30 


TAD* 

(0IRCT21 



020107 

0H01 15 


OAC 

.♦6 



0201 10 

100302 


JMS 

U5 



020 1 1 1 

I20HH0 


JMS* 

(OECTRW1 

/ 

RE AO 10 8LK. 

020112 

000000 


0 




0201 13 

777H00 


-400 




0201 IH 

030HOO 


30400 




0201 15 

000000 


0 




0201 16 

000003 


3 




0201 17 

210H37 


l AC 

EXP I OF *H0Q 



020120 

050377 


OAC 

EXPIOH+HOO 



020121 

0H0251 


OAC 

ETH 



020122 

210H00 


LAC 

EXP 1 0*H00 



020123 

0H0252 


OAC 

ETL 



02012H 

620H23 


JMP* 

(RETO 

/ 

RETURN 

020125 

120H15 

GETT 

JMS* 

lOECIN) 

/ 

RE AO 10 * 

020126 

060H16 


OAC* 

CDTRE2I 

/ 

SAVE LOW 

020127 

220HX7 


LAC* 

C 3C ♦ 1 > 



020130 

060H20 


OAC* 

(0TRE1 ) 

/ 

SAVE HIGH 

020 1 3 1 

120H22 


JMS* 

1R005R) 

/ 

RE AO OIRECTORY 

020132 

7H0200 


SZA 




020133 

620H23 


JMP* 

(RETC1 



020 13H 

I20H2H 


JMS* 

(SEARCH) 

/ 

SEARCH FOR 10. 

020135 

220H25 


LAC* 

(OIRFLG) 



C20 1 35 

7H0200 


SZA 


/ 

FINO 10? 

020137 

620H23 


JMP* 

(RETC) 

/ 

NO 

020 1 HO 

220HHI 


LAC* 

(BLKNOl 



020 1 H I 

600 1HH 


JMP 

.♦3 



020 IH2 

120H15 


JMS* 

( DEC 1 N 1 

/ 

GET SLOT * 

.020 1H3 

H20HH2 


XCT • 

c JMS8LK1 



020 1HH 

OHO 15! 

GET IN 

OAC 

. *5 



020 I H5 

H20HH3 


XCT* 

( JMS I 0 ) 



020 1H6 

000000 


0 




0201H7 

"1 7H00 


-H00 




020150 

030H00 


30H00 




.20151 

000003 


0 




020152 

000003 


3 




020 153 

I50H37 


OZM 

EXP I OF ♦ H00 



020 15H 

150377 


OZM 

EXP!OH*HOO 



020155 

1H0251 


OZM 

ETH 



020156 

210H00 


LAC 

EXP 1 D* HOO 



020157 

0H0252 


OAC 

ETL 



020160 

213000 


LAC 

13000 




152 
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f 


020 16 t 
020162 

080163 
080 1 64 
080165 
080166 
080167 
080170 
080 1 7 | 
080178 
080173 
080 I 74 
080175 
080 1 76 
080 1 77 
080800 
080801 
080808 
0808Q3 
08080** 
080805 
080806 
080807 
080810 
08081 1 
080818 
080813 
0808 m 
080815 
080816 
08081 7 
080820 
080881 
080888 
020883 
08028** 
080825 
080886 
080887 
080830 
08083 1 
080838 
080833 
08083** 
080835 
080836 
080837 
080840 

n=>08<*| 

080848 

020843 

080844 

020245 

080846 

080847 

080850 

020851 

020858 
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050440 
680483 
100308 
680444 
800445 
060413 
200446 
360414 
777440 
040800 
880015 
060014 
440800 
600173 
680483 
000000 
880447 
741800 
680483 
210440 
040853 
180428 
740800 
680483 
800851 
060420 
800858 
060416 
180484 
280485 
740800 
680483 
880432 
040800 
810377 
060200 
880487 
040800 
210400 
060200 
800253 
050440 
053000 
180435 
88044 » 
040843 
‘•80443 
000000 
777400 
030400 
000000 
000005 
800446 
0604! 3 
800445 
600170 
000000 
000000 


L INDEX 


LASTC 

OUTPUT 


ETH 

etl 


OAC 

JMP • 

JMS 

JMP* 

LAC 

OAC • 

LAC 

OAC* 

LAW 

OAC 

LAC* 

OAC* 

ISZ 

JMP 

JMP* 

0 

LAC* 

SNA 

JMP* 

LAC 

DC 

JMS* 

SZA 

JMP* 

LAC 

OAC* 

LAC 

OAC* 

JMS* 

LAC* 

SZA 

JMP* 

LAC* 

OAC 

LAC 

OAC* 

LAC* 

OAC 

LAC 

OAC* 

LAC 

OAC 

CAC 

JMS* 

LAC* 

OAC 

XCT* 

0 

-400 

30400 

0 

5 

LAC 

OAC* 

LAC 

JMP 

0 

0 


PAGE NO. mi 


OCCNH«400 
(RETf I 
U5 

l INDEX! 

< 30437) 

L 1 4 

131837) 

L 15 

-340 

LASTC 

15 

14 

LASTC 

.-3 

(RETC) 

1UNITSV) 

IRE TC) 
OECNM+400 
REELS 
(RDDIR) 


RETURN 


' RESTORE id INPO. 


• RETURN 


t mag tape? 

f YES 


' READ DIRECTORY 


(RETC) 

ETH 

(OTREI l 
ETL 

f 0TRE2 ) 

(SEARCH) 

(OIRELGl 

(RETC) 
(OIRT 1 / 
LASTC 

EXPI0H*400 
LASTC 
‘OIRTEN) 
LASTC 
EXP | 0*400 
LASTC 
REELS 
OECNM+400 
13000 
(wroiR) 

( BLKNO ) 

. *5 

I JMS 1 0 l 


/ SEARCH TOR DUPLICATE 10. 


GET ADDRESS 


GET AOORESS 


/ reel 


(31237. 

L 14 

( 30437) 
LINDEX*5 



tf "ft 
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0202V 3 000000 

020254 100302 

020255 120415 

020256 060416 

020257 220417 

020260 060420 

020261 120422 

0202S2 740200 

020263 520423 

020264 120424 

020265 220425 

020266 740200 

020267 620423 

020270 220441 

020271 040276 

020272 120440 

020273 000000 

020274 777400 

020275 032^00 

020276 000000 

020277 000003 

020300 120450 

020301 620423 

020302 000000 

0203C3 200451 

020304 120452 

020305 200453 

020306 060454 

020307 200455 

020310 060456 

02031 I 620302 

020312 000000 

020313 040320 

020314 420443 

020315 000000 

020315 777400 

020317 031600 

020320 000000 

020321 000003 

020322 740200 

020323 620423 

020324 620312 

020325 000000 

020326 100302 

020327 120440 

020330 0P0000 

020331 777400 

020332 031600 

020333 030000 

020334 000005 

f .20335 740200 

020336 620423 

020337 440333 

020340 620325 

020341 120422 

020342 740200 

020343 620423 

020344 213000 


REELS 

GREEL 


• • * 


P0P9/15 ASSEMBLY LISTING 
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RBAS 

U5 


R5 


9X5 


W6 


8X0 


XFER 


0 


JHS 

U5 



JHS* 

(DEC IN) 



OAC • 

10TRE21 



LAC* 

»BC*1 ) 



OAC* 

10TRE1 t 



JHS* 

1RDDIR) 

/ 

READ DIRECTORY 

SZA 




JHP* 

1 RETCJ 



JHS* 

(SEARCH) 

/ 

search 

LAC* 

101RFLG 4 



SZA 


/ 

SUCCESSFUL? 

JHP* 

(RETCJ 

/ 

NO 

LAC * 

1 8LKN0 i 



OAC 

RSAS 



JHS* 

(DEC TRW) 



0 




-HOG 




35600 




G 




3 




J M S* 

(DIRECT l 

/ 

PRINT DIRECTORY 

JHP* 

IRETC) 



D 




LAC 

(5) 



JHS* 

(02) 

/ 

02 

LAC 

(20) 



OAC* 

(8LKCAL*4* 



LAC 

(43) 



OAC* 

(FULL 1 



JHP* 

U5 



0 




mz 

BX5 



&CT * 

( JMS I 0 ) 




-400 


11600 


0 


3 


SZA 


JHP* 

iRETC ! 

JHP* 

R5 

0 


JHS 

U5 

JHS* 

(OECTRW) 

0 


-MOO 



31600 

0 

5 

SZA 

JHP* (RE TCI 

1SZ BK6 

JMP* Wo 

JM§» (RODIRl , READ DIRECTORY 

SZA 

JHP* (RETCJ 

LAC 13000 / REEL 
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020345 050400 

020346 1 50437 

020347 150377 

020350 100302 

020351 120422 

020352 740200 

020353 620423 

020354 120457 

020355 220425 

020356 740200 

020357 620423 

020360 120435 

020361 740200 

020362 620423 

020363 220441 

020364 040333 

020365 220447 

020366 120452 

020367 750001 

020370 420442 

020371 100312 

020372 100325 

020373 220460 

020374 740001 

020375 340461 

020376 040412 

020377 140200 

020400 440200 

020401 220447 

020402 120452 

020403 200200 

020404 420442 

020405 100312 

020406 100325 

020407 440412 

020410 600400 

020411 620423 

020412 000000 

020413 000014 

020414 000015 

000415 01246! 

000416 002534 

0004 17 013414 

000420 002535 

000421 004041 

000422 006054 

000423 006257 

00''424 00614 1 

..00425 006303 

000426 0061 I I 

000427 006302 

000430 006304 

000431 777777 

000432 006306 

000433 013415 

000434 006746 

000435 006072 


r 


* * » 


pnoo/icr ACCC'urti W , I 
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000436 006101 
000437 00SS50 
000440 006344 
000*44 1 006305 
00044c 001014 
000443 001013 
000444 006122 
000445 030437 
000446 031237 
000447 015711 
000450 005630 
000451 000005 
000452 000743 
000453 000020 
000454 006266 
000455 000043 
000456 005716 
000457 005725 
000460 001007 
000461 000001 


• P0P9/15 ASSCM8LY LISTING 
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9ST-! 
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020000 715707 

020001 020203 

020002 474375 

020003 020202 

020004 715404 

020005 020015 

020006 673030 

020007 020371 

020010 272151 

020011 020555 

020012 £76151 

020013 020554 

020014 000000 




020015 120717 

020016 220720 

020017 740200 

020020 62072 1 

020021 120722 

020022 740200 

020023 620723 

020024 120724 

020025 220725 

020026 750201 

020027 620723 

020030 352603 

020031 340726 

020032 040145 

020033 220727 

020034 741200 

020035 60G042 

020036 220145 

020037 741200 

020040 600043 

020041 600044 

020042 120730 

020043 220731 

020044 060732 

020045 420723 

020046 340734 

020047 120735 

020050 160736 

020051 420733 

020052 340737 

020053 120735 

020054 S20733 

020055 340740 

020056 120735 

020057 420733 

020060 340741 

020061 12073? 

020062 777600 

020063 040146 

020064 I 401 01 
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•, T i! L£ CXTENO overlay RCO 

.LOC 20000 

•LIT CADR 1 ♦ | 

i ass., 

MSLO? ' n0SL01 

HAODEC ' D,M 

Hi 030 ' C0N;X.Y.O) 

272 1 5 1 / HAJfiD 

MINHAFM MAJ0R 

' mNo ' 1 

UW0| -0E0 MATRIX 


GMAG 

HGSLOT 

dnag 

CONjX.Y.OX.DY 

MAJOR 

MINOR 


0AV1ES MARCH 1972 


J MS* 

( AOCCHKI 

LAC • 

< 8KGFLG 1 

S2A 

JMP» 

igmarki 

a’MS* 

‘ ROD 1 R 1 

SZA 

JMP • 

(RETC) 

JMS* 

(aooo:ri 

LAC • 

IOIRFlG) 

SZAICLC 

JMP* 

(RETC) 

TAD 

12603 

tad 

(33160) 

DAC 

MDECS 

LAC* 

(UNIT) 

SNA 

JMP 

. *5 

LAC* 

MDECS 

SNA 

JMP 

.♦3 

JMP 

♦3 

JMS* 

( WTD1R) 

LAC* 

(BLKNO) 

OAC* 

( 0EC8LK ) 

XCT * 

IXCTBKG) 

TAO 

(EXPIO) 

JMS* 

(WTOEC 1 

OZM* 

(RWFG) 

XCT* 

(XCTBKGl 

TAD 

(35000) 

JMS* 

(WTOEC) 

XCT* 

‘XCTBKGl 

tad 

(370C0) 

JMS* 

(WTOEC) 

XCT* 

(XCTBKG) 

TAO 

(36000! 

JMS* 

(WTOEC l 

LAM 

-200 

DAC 

MOCNT 

OZM 

MOECI 


AOC ‘ S ON? 


RETURN ON ERROR. 
AOO NEW ID. 

OIRECTORY OK? 

NO 

32603- * Of SPECTRA 


magtape? 

YES 

GET 8LK* TO WRITE 
WRONG KINO OF TAPE 


WRITE 10 BLOCK 


SUM SPECTRUM 


SPECTRUM 


SPECTRUM 


PAGE NO. 155 
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PACE NO. 156 


020065 

1 *40 15*4 


OZM 

M0EC2 



020066 

1*401*4*4 


D2M 

MDTER 



020067 

2007H2 


LAC 

(33H001 



020070 

0*4020 1 


OAC 

M08PT 



020071 

777000 


LAW 

-1000 



020072 

0*40 150 


OAC 

MDECWC 



020073 

200100 


LAC 

.♦!# 



02007*4 

OHO 1*47 


OAC 

MOECPT 



020075 

1207H3 


JMS* 

C01SK10I 



020076 

000000 


0 


/ 

01SK « 

020077 

777000 


-1000 


/ 

WC 

020100 

03*200 


31200 


/ 

CA 

02010! 

000000 

MDECI 

0 


/ 

DISK ADR 

020102 

000003 


3 


/ 

READ 

020103 

777000 


LAW 

-1000 



020 1 04 

3H010I 


TAO 

MDECI 

/ 

UPDATE DISK AOR 

020105 

OHOIOI 


OAC 

MOECI 



020106 

220 IH7 


LAC* 

MOECPT 

/ 

GET POINT 

020107 

7H 1200 


SNA 




020110 

500152 


JNP 

M0EC2-2 

/ 

SQUEEZE ZEROES 

020 1 1 1 

20015H 


LAC 

M0EC2 



0201 12 

7H0200 


S7A 


/ 

NEED TO WRITE OUi PACKED ZEROES? 

0201 13 

10015H 


JUS 

M0EC2 

/ 

YES 

0201 IH 

IH015H 


DZM 

M0EC2 



0201 15 

220 IH7 


LAC* 

MOECPT 



0201 16 

100160 


JMS 

MOBUF 



020 i 17 

HH0IH7 

MDEC3 

ISZ 

MOECP1 



020120 

HH0150 


ISZ 

MDECWC 



020121 

600106 


JMP 

MDECI 45 

/ 

GET NEXT POINT. 

020122 

HH01H6 


ISZ 

MDCNT 



020123 

600071 


JNP 

MDECI -10 

/ 

READ IN NEW BUFFER. 

02012H 

20015H 


LAC 

M0EC2 



020125 

7H0200 


SZA 




020126 

I0015H 


JMS 

MDEC2 



020127 

HHO l HH 


ISZ 

MDTER 



020130 

100160 


JMS 

MD0UF 



020131 

560787 


SAD* 

(UNIT) 



020132 

6001 H2 


JMP 

MAG0C2 



0201 33 

100362 


JMS 

M0EC8 



0201 3*4 

777230 


LAW 

-550 



020135 

360732 


TAO* 

i OEC0LK ) 



020136 

HH0IH5 


ISZ 

MDECS 



020137 

060 1H5 


OAC* 

MOECS 



0201*40 

120730 


JMS* 

( WTOIR) 

/ 

WRITE DIRECTORY 

0201*4! 

620723 


JMP* 

(RETC ) 



0201*42 

1207HH 

MAG0C2 

JMS* 

(EOF I 



0201*43 

620723 


JMP* 

(RETC 1 



0201*4*4 

000000 

MDTER 

0 




020 I *45 

000000 

MDECS 

0 




020 IH6 

000000 

MDCNT 

0 




j20 1 *47 

OOOOQO 

MOECPT 

0 




020150 

000000 

MDECWC 

0 




020151 

000000 

SGSW 

0 




020152 

*iH0l5H 


ISZ 

MDEC2 



020153 

6001 17 


JMP 

MDEC3 



020 1 5*4 

000000 

M0EC2 

0 




020155 

3H07H5 


TAO 

CH00000) 

/ 

BIT 0 INDICATES 0 PACK WORD. 

020156 

100160 


JMS 

MQBUF 
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020157 620154 

020160 000000 

020 1 6 1 06020 1 

020162 440201 

020163 200201 

020164 540746 

020165 600172 

020166 200144 

020167 751200 

020170 620160 

020171 60016; 

020172 t 40 1 44 

020173 200742 

020174 040201 

020175 120735 

020176 740200 

020177 620723 

020200 620160 

020201 033400 

020202 751000 

020203 750001 

020204 040151 

020205 460747 

020206 120717 

020207 220720 

020210 740200 

020211 620721 

020212 120750 

020213 060751 

020214 220752 

020215 060753 

020216 220754 

020217 540755 

020220 750000 

020221 540756 

020222 750000 

020223 740200 

020224 620721 

020225 120722 

020226 740200 

020227 620723 

020230 44015) 

020231 600355 

020232 120757 

020233 220725 

020234 7«0200 

020235 620721 

020236 220760 

020237 340761 

020240 040145 

020241 10Q362 

020242 200762 

020243 040151 

02024*4 220145 

020245 740200 

020246 340151 

020247 741200 

020250 220731 


i? 
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02Q251 

060763 


OAC * 

( R06LK ) 


020252 

120764 


JHS* 

cERASC) 


020253 

120765 


JMS* 

(ROSIN) 


020254 

740200 


SZA 


/ ERROR? 

020255 

620723 


JMP* 

(RETC) 


020256 

777600 


LAW 

-2C0 

/ • or 1000 WORD 8LKS . 

020257 

040146 


OAC 

MOCNT 


020260 

140341 


OZM 

MAGRAO 


02026k 

777000 


LAW 

-1000 


020262 

040150 


DAC 

MOECWC 


020263 

200100 


LAC 

M0EC1-I 


02026H 

040147 


OAC 

MOECPT 

/ SET TO START OF BUFFER 

020265 

200766 


LAC 

(M0EC5) 


020266 

040312 


OAC 

MAGET 


020267 

600320 


JMP 

MAGET + 6 


020270 

100330 


JMS 

MAGPUT 


020271 

100312 

M0EC5 

JMS 

MAGET 


020272 

740100 


SMA 


/ SKIP IF WORO CONTAINS PACKED OS 

020273 

600305 


JMP 

M0EC6 


020274 

340745 


TAD 

1400000) 

/ TAKE OFF BIT 0. 

020275 

740001 


CMA 



020276 

340767 


TaO 

( 9 ) 


020277 

040154 


OAC 

M0EC2 

/ COMP OF » OF ZEROES. 

020300 

750000 


CLA 



020301 

100330 


JMS 

MAGPUT 


020302 

440154 


ISZ 

MDEC2 


020303 

600300 


JMP 

-3 


020304 

600271 


JMP 

M0EC5 


020305 

740200 

MDEC6 

SZA 


/ IF ZERO - THEN END OF BUFFER. 

020306 

600270 


JHP 

M0EC5-I 


020307 

750000 


CLA 



020310 

100330 


JMS 

MAGPUT 


02031 1 

600307 


JMP 

-2 


020312 

000000 

MAGET 

0 



020313 

220370 


LAC* 

M0EC8P 


020314 

440370 


ISZ 

M0EC8P 


020355 

440145 


ISZ 

MOECS 

/ OONE WITH THIS BUFFER? 

020316 

620312 


JMP* 

MAGET 

/ NO 

0203 k 7 

040154 


OAC 

MDEC2 


020320 

777400 


LAW 

-400 


020321 

040145 


OAC 

MOECS 


020322 

220770 


LAC* 

CO I RONE) 


020323 

040370 


OAC 

HDEC0P 


020324 

46G763 


ISZ* 

(RO0LK) 


020325 

12077! 


JMS* 

1 RT APE ) 

/ READ 8LK OF DATA. 

020326 

200154 


LAC 

MOEC2 


020327 

620312 


JMP* 

MAGET 


020330 

000000 

HAGPUT 

0 



020331 

060147 


OAC* 

MOECPT 


020332 

440147 


ISZ 

MOECPT 


020333 

440150 


ISZ 

MOECWC 

/ FiLLEO BUFFER? 

020334 

620330 


JMP* 

MAGPUT 

/ NO 

020335 

120743 


JMS* 

(OISKIO) 


020336 

000000 


0 



020337 

777000 


-1000 


/ WC 

020340 

031200 


31200 


/ CA 

02034 1 

000000 

MAGRAO 

0 


/ OISK ADR. 

020342 

COO 005 


5 


,• WRITE 
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0203*3 

777000 


LAM 

-1000 

0203** 

0*t0150 


OAC 

KDCCMC 

0203*5 

3*403H 1 


TAO 

MAGRAO 

G203*6 

0*401*4 1 


OAC 

HAORAO 

0203*7 

2003*40 


LAC 

MAGRAO- 1 

020350 

0*40 ! *47 


OAC 

MDECPT / RESET POINTER.EiC. 

020351 

*4*401*46 


1S2 

MDC<T / MR IT TEN ALL BUFFERS? 

020352 

620330 


JHP* 

HAGPUT / NO 

020353 

120772 


JHS* 

(FOLOEOi 

02035* 

620773 


JHP* 

10TRE6-I ) 

020355 

220751 

M0EC7 

LAC* 

I0TRC2) 

020356 

12077*4 


JHS* 

( OKI 

020357 

060731 


OAC* 

< BLKNO ) 

020360 

220751 


LAC • 

<0TRE2» 

02036! 

600237 


JHP 

MOECH 

020362 

000000 

MDEC8 

0 


020363 

777777 


LAM 

- 1 

02036* 

360727 


TAO* 

(UNIT) 

020365 

750200 


SZAICLA 


020366 

*4*40362 


1SZ 

M0EC8 

020367 

620362 


JHP* 

M0EC6 

020370 

000000 

H0EC8P 

0 




/ routine 

CON RCO OCT 1971 



/ ARGUMENTS: CQN;X 

.Y.OX.DY 



/ CALLS 

A RECTANGLE OF CONTOUR POINTS 



/ OFF OF Of SK AND 

PLACES IT IN CONTOUR 



/ 01 SPLAY BUFFER. 


02037 t 

120775 

CON 

JHS* 

(AOCBUS) 

020373 

220720 


LAC* 

(SKGFLGl 

020373 

7*40200 


SZA 

/ IN 8KG ? 

02037 1 * 

620721 


JHP* 

( OMARK 1 

020375 

160776 


OZH* 

(CFCMFGI 

020376 

100532 


JHS 

CON3 

020377 

060777 


OAC* 

IVCROSS-I) t X VALUE 

020*00 

100532 


JHS 

CON3 

020*401 

061000 


OAC * 

1 HCROSS- 1 » / Y VALUE 

020*«02 

22075*4 


LAC* 

i TC ) 

020*403 

5*4 100! 


SAD 

•SNI / OX and oy follow? 

020*40*4 

600*4 1 0 


JHP 

. ♦«* / YES 

020*405 

777700 


LAM 

-100 / NO. SET BOTH TO OV . 

020*406 

0*40*42 I 


OAC 

CONI 

020*407 

600*4 1 7 


JHP 

CONI -2 

020*4 10 

100532 


JHS 

CON3 

620*4 1 ! 

7*4 1 200 


SNA 

/ IF ZERO. 

020*4 12 

750001 


CLC 

/ MAKE - 1 

020*4 13 

0*40*421 


OAC 

CONI / DELTA X 

020*4 m 

1 00532 


JHS 

COM3 

020*415 

7*45200 


SNA CLL 


020*4 16 

750001 


CLC 

/ MAKE -1 IF 0 

020*4 17 

0*40532 


OAC 

CON3 / DELTA Y 

020*420 

553122 


HUL 


020*421 

000000 

CONI 

0 


020*422 

6*4 1006 


e*i 006 

/ CMQ LACO 

020**23 

3*4 1002 


TAO 

( 17701 l 

020*42*4 

7*45100 


SPA CLL 

/ LESS THAN 8K ? 

020*425 

620721 


JHP* 

( QMARK ) / NO 

020H26 

220777 


LAC* 

< VCROSS- 1 ) 

020*»27 

100520 


JHS 

CON 1 * / CHECK OX 
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020430 340421 

020431 040421 

020432 221000 

020H33 100520 

020434 340532 

020435 0H0532 

020436 200532 

020437 1 00550 

020440 061003 

02044 i 200421 

020442 040504 

020443 100550 

020444 061004 

020445 349532 

020446 744100 

020447 600452 

020450 22(003 

020451 741000 

020452 221004 

020453 040456 

020454 201005 

020455 653323 

020456 OOOCOO 

020457 641002 

020460 061006 

020461 061007 

020462 040545 

020463 221003 

020464 100541 

020465 C610I0 

020466 221004 

020467 100541 

020470 061011 

02047! 06 1 012 

020472 1610! 3 

020473 221000 

020474 744090 

020475 84P7I0 

020476 360777 

020477 0405Q6 

02050,0 221014 

02950 1 040505 

020502 120743 

020503 000000 

020504 000000 

020505 OCOOOO 

020506 000000 

020507 000003 

020510 717400 

020511 340506 

020512 040506 

020513 221004 

020514 340505 

020515 440532 

020516 600501 

020517 621015 

020520 000000 

020521 341016 
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C ADR 


tao 

OAC 

LAC* 

JHS 

TAO 

OAC 

LAC 

JHS 

OAC* 

LAC 

OAC 

JHS 

OAC* 

TAO 

SHA CLL 

JHP 

LAC* 

SKP 

LAC* 

OAC 

LAC 

ICMV 

0 

LACQ 

OAC* 

OAC* 

OAC 

LAC* 

JHS 

OAC* 

LAC* 

JHS 

OAC* 

OAC* 

D2H* 

LAC* 

CLL 

ALS 

TAO* 

OAC 

LAC* 

OAC 

JHS* 

0 

0 

0 

0 

3 

LAM 

TAO 

OAC 

LAC* 

TAO 

ISZ 

JHP 

JHP* 

0 

TAO 


CON! 

CON! 

(HCROSS-I I 

C0N4 / CHECK OY 

C0N3 

COM3 

COM3. 

CONCIA 

(CONY ) / OY POSITIVE 

CONI 

CAOR-I / WC 

CONC I A 
(CONXI 
C0N3 

/ skip if oy>ox. 

.♦3 

(cOny» 

(CONXI 

.♦3 

(20001 / CALCULATE POINT SPACING. 


(CH0R) 

(CVERi 

C0N2*4 

(CONY) 

C0N2 / CALCULATE Y-LlMIT 

1 YL IMi T i 

(CONXI 

C0N2 / CALCULATE X-LIHIT 

I XL IMI T I 
( CMQOE I 
(OELIHTI 

(HCROSS-I) /GET Y 
10 

IVCROSS-II /AOO X 
CAOR* I / OISK AOR 

(FSTtOI ) 

CAOR 
( 0 I SK 1 0 ) 

/ OISK UNIT 
/ MC 
/ CA 

/ OISK AOR 
/ RE AO 

-400 
CAOR* I 

CAOR* I / UPDATE OISK AOR 

(CONXI 

CAOR / UPOATE CA. 

:0N3 / OONE ? 

CADR-4 / NO 

(CONTURl 


C0N4 


( 377 I 
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020583 

652000 

020523 

*20520 

020524 

**0520 

020525 

740100 

020526 

**0520 

020527 

641006 

020530 

340767 

020531 

620520 

020532 

000000 

020533 

120750 

020534 

SO 1016 

020535 

100550 

020536 

461017 

020537 

620532 

020540 

620721 

020541 

000000 

020542 

341020 

020543 

744000 

020544 

653122 

020545 

000000 

020546 

641002 

020547 

620541 

020550 

000000 

020551 

744001 

020552 

340767 

020553 

620550 


020554 

751001 

020555 

750000 

020556 

040541 

020557 

040655 

020560 

140653 

020561 

301021 

C20562 

061022 

020563 

040716 

020564 

760100 

020565 

121023 

020566 

440541 

020567 

600622 

020570 

777400 

020571 

04Q653 

020572 

777776 

020573 

040532 

020574 

200716 

020575 

040505 

020576 

040716 

020577 

440653 

020600 

*'4 1000 

020601 

6006G6 

020602 

200653 

020603 

100645 

020604 

600576 

020605 

600572 

020606 

777770 

020607 

061013 

020610 

201024 

0206! i 

061011 
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020612 

061010 

MI“S 

DAC* 

020613 

161000 


DZM * 

020614 

160777 


DZM* 

020615 

201025 


LAC 

020616 

061012 


DAC* 

020617 

061006 


OAC* 

020620 

061007 


OAC • 

020621 

621015 


JMP* 

020622 

777377 

MAJHAF 

LAW 

020623 

040655 


DAC 

020624 

200716 


LAC 

020625 

040505 


OAC 

020626 

777776 


LAW 

020627 

040532 


OAC 

020630 

200716 


LAC 

020631 

040716 


OAC 

020632 

777777 


LAW 

020633 

340653 


TAO 

020634 

040653 


DAC 

020635 

100645 


JUS 

020636 

600631 


JMP 

020637 

600624 


JMP 

020640 

16101 1 


D T M* 

0206MI 

201025 


LAC 

020642 

061013 


DAC* 

020643 

201024 


LAC 

020644 

600612 


JMP 

020645 

000000 

MAJIO 

0 

020646 

040541 


DAC 

020647 

200654 


LAC 

020650 

040715 


DAC 

020651 

120743 


JMS* 

020652 

000000 


0 

C20653 

000000 

WC 

0 

020654 

03120C 


31200 

020655 

000000 


0 

020656 

000003 


3 

020657 

777400 


LAW 

020660 

340655 


TAD 

020661 

040655 


DAC 

020662 

777776 


LAW 

020663 

040520 


OAC 

020664 

200716 

MAJI 

LAC 

020665 

541026 


SAD 

020666 

600712 


JMP 

020667 

220715 


LAC* 

020670 

440715 


ISZ 

020671 

360716 


TAO* 

020672 

060716 


OAC* 

020673 

’■#4054 1 


ISZ 

020674 

600703 


JMP 

j20675 

200505 


LAC 

020676 

440532 


ISZ 

020677 

620645 


JMP* 

020700 

440716 


ISZ 

020701 

440645 


ISZ 

020702 

620645 


JMP* 

020703 

440520 


ISZ 


tYLlMIT) 
t HCROSS- 1 > 
lVCROSS-1 l 
MO) 

( CMODE ) 

(CHORl 
( OVER > 

(CONTUR) 

-401 

woa 

CAOR1 

CADR 

-2 

CON3 
CADR I 
CADR 1 
-I 

WC /SET WC 

WC 

MAJIO / READ IN DATA 

MA JHAF + 7 / RESET 0UF POINTER AND CONT 

MAJHAF+2 / CONT. 
t XL I M I T ) 

1*0) 

(OEUMT ) 

( 1760) 

MIN2 

C0N2 

I 

BAOR 
' D 1 SK I 0 I 

/ WC 
/ CA 

/ DISK BLK 
/ RE AO 

-MOO 
WC + 2 
WC + 2 
-2 

C0N4 

CADRI 

<60000) 

BAOR-3 

BAOR 

BAOR 

CAORI 

CADR) 

CON2 

. 

CADR 

C0N3 

MAJIO 

CAORI 

MAJIO 

MAJIO 

CON 1 * 
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02070*1 600664 

020703 440716 

020706 nnn 

020707 3 **03 32 

020710 440505 

020711 600662 

020712 440645 

020713 440645 

020714 620643 

020715 000000 

020716 000000 

020717 0040HI 

020720 00005 1 

020721 006746 

020722 00605* 

020723 006237 

020724 003723 

020725 006303 

020726 033160 

020727 001133 

020730 006072 

020731 006305 

020732 006322 

020733 000052 

020734 030000 

020733 006514 

020736 011376 

020737 035000 

020740 037000 

020741 036000 

020742 033400 

020743 003421 

020744 Oil 323 

0207*5 400000 

020746 034000 

020747 01 1375 

020750 012461 

020751 002534 

020752 013414 

020753 002535 

020754 012714 

020735 000040 

020756 000076 

020757 006141 

020760 006304 

020761 033157 

020762 000550 

020763 002606 

J20764 001602 

020765 002611 

020766 020271 

020767 00000 * 

020770 005717 

020771 002600 

020772 003650 

020773 002537 

020774 002564 


/— \ 

r~3 
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JMP MAJI 

ISZ CAORI 

LAM -I 

SAO CON 3 

ISZ C/DR 

JHP MAJI -2 

ISZ MAJIO 

ISZ HA J 1 0 

JMP* MAJIO 

BAOR 0 

CAORI 0 

• END 
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020775 

005275 

020776 

001303 

020777 

001307 

021000 

001313 

021001 

00005*4 

021002 

017701 

021003 

00006*4 

02100*4 

00006? 

021005 

002000 

C21006 

00*43*46 

021007 

00H352 

021010 

001525 

021011 

001522 

021012 

001526 

021013 

001523 

02101*4 

00023H 

021015 

001 126 

021016 

000377 

021017 

000062 

02 1 020 

777777 

02 I 02 1 

0*40 1 00 

021022 

000255 

021023 

001636 

02 1 Q2H 

001 760 

021025 

000010 

021026 

060000 
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ABCT 

000261 

ABS 

0 1 3726 

ABSC 

015405 

A8SF 

015363 

ABSli 

015374 

ABSRES 

015430 

ABSS 

015352 

AC 

013417 

ACC 

000004 

ACOETA 

010721 

ACPT 

0 1 626 1 

ACS 

013425 

ACSET 

0 I 6256 

ACSV 

0 1 6262 

ACZ 

013702 

AOCBUS 

005275 

ADCCHK 

004041 

ADCDSK 

002750 

AOCFLG 

004072 

AOCGO 

00464! 

AOCGON 

004061 

ADCI10D 

000225 

ADCGN 

000226 

ADCOP 

701244 

AOCSTP 

001662 

A0C5TR 

001717 

AOOO I R 

C05725 

AOOOO 1 

005764 

AOOO I 

005766 

aooob 

006000 

A0003 

00601 I 

AOOOH 

006015 

A0006 

005776 

A00D8 

005745 

AOORSS 

000207 

AO£CBK 

006435 

AO£CM 

010620 

AOLO 

005466 

ADR 

013423 

AENT 

003306 

AINF 

000062 

ALBS 

012244 

ALBS 1 

012245 

ALGC 

Cl 5402 

algf 

015360 

ALGM 

015371 

ALGRES 

015425 

algs 

015347 

ALiST 

000363 

ALLCTN 

005202 

ALS1Z 

012247 

ALSIZC 

012246 

AOFF 

014376 

AOFH 

014415 

>OT 

013676 

APOWH 

006662 

APOWHS 

006660 

APOWL 

006661 


APOWL S 

006657 

AREA 

014215 

ARE ACT 

014363 

ARE 1 

0 1 4265 

ARE50 

014315 

ARSUM 

014376 

ARTS 

014407 

ASET 

013554 

BACKG 

014412 

BAOR 

020715 

BC 

013413 

9CZ 

013714 

BDCTN 

010312 

800 T 

010304 

BOOTC 

010371 

BEGIN 

000107 

BEG4 

0001 1C 

BENT 

003313 

BF 

014431 

BFC 

014207 

BFLOP 

003255 

8H0R 

014741 

8KG 

001037 

bkgflg 

000051 

BK4SP 

014366 

8KLSP 

014365 

BK5 

020320 

BK6 

020333 

BLIM 

015307 

BLKCAL 

006262 

BLKNO 

006305 

BLKONE 

005546 

BH 

014432 

BMC 

014211 

SOTS 

030205 

80XA 

014511 

BOXAA 

0 1 4522 

BOXAL 

014764 

BOXAS 

0 1 4756 

B0XA2 

014523 

BOXA3 

014537 

80XH 

014761 

80XL 

014762 

BOXPT 

014763 

a OXR 

014560 

90XR0T 

014566 

S7XRI 

014622 

B0XR2 

014624 

BOXS 

014757 

BOXSEV 

014433 

80XT 

014755 

BROT 

014754 

BROTC 

014753 

BRST 

014617 

BSPC 

014746 

BSPEEO 

005500 

buflen 

000242 

BVER 

014734 


CAOR 

020505 

CADRI 

020716 

CAREA 

014027 

CARE A 1 

014065 

CASG 

013731 

C80C 

010442 

CBDP 

010431 

CC 

C 1 1 262 

CCAS 

005070 

CCNT 

010372 

CCOF 

702304 

CCSC 

702302 

COOC 

012301 

COOCi 

012331 

C00C2 

012355 

COOC 3 

012344 

CENDEN 

014404 

CENNUM 

014401 

CENT 

003320 

CF 

001052 

cfchfg 

001303 

CFCf150 

000065 

CF OV 

701 I0W 

CGIN 

010453 

CGINH 

0 1 0463 

CGINL 

010464 

CHECK 

011515 

CHLT 

702324 

CHOR 

004346 

CHPT 

014364 

CH50 

0147)5 

CH5050 

001274 

CIA 

00 1 772 

CKSLOT 

006301 

CL 

015333 

CLAC 

702322 

CLIH 

015422 

CL INC 

015317 

CLSA 

702004 

CLSB 

702024 

CLSC 

702044 

CLSO 

702064 

CLTL 

01041 I 

CM 

001062 

CMG 

030053 

CMODE 

001526 

CMRET 

012304 

CNOP 

003323 

COETAB 

0 1 0722 

COILS! 

002753 

CO I NAD 

000224 


CO I NOE 0045 1 I 
CO I NON 004501 
COMMPS 00327 1 
C0MM3 003274 
COMPLM 00 t 766 
COMPT 003305 
CON 020371 


CONCEN 

030226 

CONCIA 

020550 

CONO 

001377 

CONOIS 

001353 

CONOMP 

005206 

CONOY 

001304 

CONOl 

00 1 407 

C0N02 

001414 

COND3 

001424 

C0N04 

001431 

C0ND5 

001444 

C0N06 

001456 

C0N07 

001500 

CON 1 NT 

001107 

CONMRK 

004404 

COPT UR 

001126 

CONVRT 

003263 

CONX 

000063 

CONY 

000064 


CONI 020421 

C0N2 02054. 


CON3 

020532 

C0N4 

02052C 

COPY 

003512 

COPYS 

003506 

COPY 1 

003533 

C0PY2 

003537 

COPY3 

003545 

COUNTO 

001776 

cplt 

010466 

CPLT 1 

010510 

CRB 

014673 

CR8ANG 

0 I 465 1 

CR8R 

014784 

CRB 1 

014731 

CRB2 

014733 

CREJHI 

030025 

CREJLO 

030026 

CRLF 

006737 

CSCLHI 

030021 

CSCLLO 

030022 

CSCOMO 

001076 

CSFN 

702301 

CSLT 

702321. 

CSNA 

004546 

CSTART 

000057 

CSZA 

003340 

CTN 

020412 

CTN6 

006724 

CVER 

004352 

0 

000732 

OBL 

200000 

DBRT 

016227 

OCCCC 

004471 

OCCTN 

004475 

OCOOE 

0 1 0565 

OCORE 

004441 

OCTMP 

004476 
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OCT HP I 
0CTMP2 
OOATA 
ODFC 
OOFS 
OOP I 
001 
002 

DECARO 

DECBLK 

DECCBK 

DECCMO 

OECCON 

OECOSI 

0ECDS2 

OECIN 

OECfO 

DECMAG 

OECNM 

OECNMA 

OECOU 

DECOUT 

OECPRT 

OECPTY 

OECPUT 

OECRET 

OECRl 

0ECR2 

OECSEV 

DEC TRw 

DECT I 

GECT2 

0ECT3 

DEC l 

0EC2 

DEC 3 

0EC4 

OELCNT 

DELETE 

DELE I 

DELE 3 

DELIMT 

OELR 

DELTA 

OELTZ 

OENT 

OETAOO 

OETAI 

DEI PL A 

OETPI 

OEI 

0E2 

0E3 

OSGCTN 

DIGIT 

OJLOOP 

DIRCK 

OIRCNT 


004477 
004500 
010331 
000055 
000056 
030057 
010363 
010350 
006510 
006522 
00651 1 
006436 
006571 
003577 
003610 
0)2461 
003574 
020206 
030040 
006133 
004577 
002017 
006554 
006512 
020306 
006513 
006452 
006473 
006441 
006344 
006365 
006377 
006413 
006605 
006613 
006617 
006652 
000237 
006017 
006025 
006046 
001523 
001340 
000236 
001546 
003325 
001751 
001757 
001251 
00 1 262 
0 I 2466 
012506 
0 1 2527 
0G57I3 
006716 
006300 
005662 
006307 
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0IRCT2 006304 


DIRCI 

005671 

01 RC2 

005677 

0IRC3 

005" 7 ! 1 

OIRECT 

005630 

OIREI 

005640 

OIRFLG 

006303 

0IRH1E 

005722 

or RONE 

005717 

OIRTEM 

006302 

OIRTHO 

005720 

OJRTI 

006306 

0IR3 

005721 

OISAOO 

007660 

Of SK 

015624 

OISKIO 

003421 

OISONE 

010407 

01 SPEC 

010051 

OISPLY 

010374 

DISTUO 

010410 

0K6LK 

006274 

OKFUNC 

002710 

OKI NT 1 

003463 

OKSTAT 

003505 

OLAH 

707064 

OLAL 

707024 

or. ist 

005432 

olisth 

01 0147 

OL 1 ST V 

010107 

0LIST2 

010202 

0LIST3 

010162 

0LIST4 

010216 

OLISTS 

010220 

OL IST7 

C l 0 1 45 

OLOK 

737r.02 

OK 

015220 

OHARK 

010313 

OMOOE 

005477 

ONOMI 

016603 

ONUHI 

016600 

OPT 

010373 

OPZRO 

006717 

OSCO 

707242 

OSEL 

005452 

OSGO 

707047 

OSKINT 

003461 

OSLOT 

004372 

DSRS 

707262 

OSSF 

707001 

OTCT 

002636 

0TCT1 

0026:-'7 

OTREAO 

002107 

OTREO 

002516 

0 T REJ 

002535 

0TRE2 

002534 

0TRE3 

002503 

0TRE4 

002130 

0TRE5 

002252 


0TRE6 

002540 

OTRE7A 

002154 

OTRE7B 

002162 

0TRE8 

00231 1 

OTTS 

002640 

OTTS1 

002641 

OX 

010061 

OXL 

700506 

OXS 

700546 

0X1 

010127 

OYL 

700606 

OYS 

700646 

00 

000773 

01 

000767 

02 

0007*3 

eenab 

004606 

ENABRO 

005067 

ENOZCT 

006507 

ENSA 

702201 

ENSB 

702221 

ENSC 

702241 

ENSO 

702261 

EOF 

011323 

erasc 

001602 

ERASE 

001553 

ERASF 

001564 

ERASM 

001573 

ERAS9 

001615 

EREJHI 

030027 

EREJLO 

030030 

ESEQ 

01 1535 

ETH 

020251 

etl 

020252 

EXIT 

007506 

EXP I D 

030000 

EXP 1 OF 

030037 

EXP 1 OH 

027777 

EXPIOP 

007045 

F 

020456 

PACT 

010675 

FAOD 

300000 

FAX!' 

001272 

FAX IS 

000257 

F8CM 

705004 

PBLK 

015577 

TBLKSV 

015570 

FORD 

705012 

PBSK 

705001 

F8UF 

015533 

PBUFA 

015534 

FBI 

000227 

F82 

000231 

fchanl 

000222 

fcia 

0 . 3652 

fcla 

0 1 5666 

FCOliO 

001645 

FCOORO 

000252 

FOAC 

300000 


SYMBOL TABLE 


• • • 


PAGE NO. 166 


FOATA 

000244 

FDIS 

005502 

FOIV 

700000 

FDTPI 

015535 

FEXT 

013112 

ffact 

015536 

FFIX 

013506 

FFOLO 

004030 

FGR 

001015 

fgtpla 

000216 

FG5050 

000054 

FIFTY 

000665 

FIFTYC 

000721 

FIFTYS 

000717 

finger 

007027 

PINT 

01305! 

finti 

013073 

FLAC 

200000 

float 

013460 

flt 

300000 

FM 

013471 

fmcomo 

001653 

fmois 

005506 

FMF 

0 1 4 1 22 

fmooe 

u 15202 

FMR 

014373 

fmul 

500000 

fnext 

013116 

FOLDA 

003702 

FOLDED 

003650 

FOLDGT 

004012 

FOLDI 

003672 

T0L02 

003737 

F0L03 

003745 

F0LQ4 

003752 

FPCT 

014362 

FPRE 

013424 

fprin 

014324 

FROISK 

015571 

FSIGN 

013545 

FSINHf 

030015 

fsinlo 

030016 

FSTART 

000217 

FSTCOl 

000234 

FSTRIP 

00021 .5 

FST 128 

000233 

f TEMP 

015541 

FTOM 

014124 

FULL 

005716 

FWDISK 

015603 

FZAC 

013674 

F40 

014370 

F 40C 

014203 

GAIN 

030044 

GET 

020044 

GET01V 

020037 

GETIN 

020144 

GETNUM 

020036 




168 


i 


LSOR3 

003026 

MOX 

010301 

LS0R4 

003055 

MESAG 

007000 

LS0R41 

003056 

MESAGE 

006774 

LS0R5 

003061 

MESCOM 

00703! 

LS0R6 

003065 

MESCTN 

007030 

LS0R7 

003075 

MESOVF 

015262 

LS0R8 

0031 10 

MESSAB 

015270 

LS0R9 

003126 

MESSAL 

015265 

LSTAO 

002751 

MESSC 

015304 

LSTADR 

002752 

MESSF 

015276 

LSTEMP 

000246 

MESSM 

015301 

LSTTOT 

0002H1 

MESSSQ 

015273 

LT 

014376 

MESSH 

007040 

ltl 

02440! 

MESSWI 

007041 

LTRT 

014404 

MtSSIO 

0! 1725 

LTfEV 

005220 

MESSi 1 

0! 1730 

UH 

020413 

MESS 1 a 

002066 

L ! 5 

020414 

mess 1 4 

006310 

MAGARG 

01 1372 

MESS! 5 

01 1733 

MAGDC2 

020142 

MESS 16 

01 1736 

MAGOEC 

020015 

MESS 17 

011741 

MA6ET 

020312 

MESS 1 8 

01 1 744 

MAGPUT 

020330 

MESS 1 9 

01 1747 

MAGRAO 

020341 

MESS22 

0 I 1 752 

MAGRET 

01137* 

MESS23 

007651 

MAGTPT 

011367 

MESS24 

006314 

HAGUEL 

011375 

MESS25 

01 1755 

MAJHAE 

020622 

MESS26 

01 1760 

MAJ 1 0 

020645 

MESS27 

01 1763 

MAJl 

020664 

MESS28 

01 1766 

MANTIS 

0! 1022 

MESS29 

011771 

MATCH 

016303 

MESS3 

01 1700 

MAX J 

001273 

MESS33 

006320 

MAXIS 

000260 

MESS34 

005324 

M81 

000230 

MESS4 

01 1703 

M82 

000212 

MESS43 

006331 

MCHANt 

000223 

MESS45 

006334 

MCOMO 

001651 

MESS46 

006340 

MCOORO 

000254 

MESS5 

01 1706 

MCRT 

Oil 35 1 

MESS53 

002075 

MOATA 

000245 

MESS6 

011711 

M08PT 

020201 

MESS7 

01 1714 

M08UE 

020160 

MESS8 

011717 

MOCNT 

020146 

MESS80 

01304S 

MOECBP 

020370 

MESS8 ! 

013016 

MOECPT 

020147 

MESS82 

01 3022 

MDECS 

020145 

MESS83 

01277? 

MDECWC 

020150 

MESS84 

012740 

MOECI 

020101 

MESS85 

012745 

MDEC2 

020154 

MESS86 

012752 

MOEC3 

0201 17 

MESSB7 

013026 

MOECH 

02C237 

MESS88 

013033 

M0EC5 

020271 

MESS89 

013043 

M0EC6 

020305 

MESS9 

0 1 I 722 

M0EC7 

020355 

MESS90 

012777 

M0EC8 

020362 

MESS9I 

013002 

MO IS 

005504 

MESS92 

013006 

MOTER 

020144 

MESS93 

013G12 
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MESS94 

012733 

MESS95 

012756 

MESS96 

012764 

MESS97 

013040 

MESS98 

„1 1774 

MESTEM 

000241 

MESI 

007003 

MES2 

007007 

MES3 

007023 

MES4 

007025 

ME 

01 1264 

MELG 

Q 15567 

MEGLO 

003774 

MGSLOT 

020202 

MH 

011077 

MHMOV 

0 ! 0255 

MINHAE 

020554 

MINI 

020572 

MIN2 

020612 

M 1 0 

0 / 1625 

MIOE 

01 1666 

MIOS 

0! 1677 

MIOi 

0! 1653 

MLSTEN 

003257 

MNOCO 

007657 

M0023 

015221 

MOVAOO 

010254 

MQ 

000005 

MQSV 

016264 

MRAMP 

010307 

MS 1 NH I 

030017 

MSINLO 

03002C 

MSPACE 

0! 1436 

MSPC 

006553 

MSTART 

000220 

MSTRIP 

000214 

MTAE 

707322 

MTBENI 

01 1267 

MT8EN2 

01 1270 

MT801 

01 1265 

MT802 

01 1266 

MT8PI 

01 1271 

MT8P2 

01 127? 

MT8TS 

01 1366 

MTBUE 

01 1 1 00 

MTBUE 1 

01 i 124 

MTBUE 3 

011136 

MTBUE 4 

011150 

MT8UE5 

Oil 157 

MTCOM 

01 1274 

MTCR 

707321 

MTCI 

011306 

MTC2 

011311 

MTC3 

01 1263 

MTEOE 

01 1316 

HTEOEP 

003361 

MTERRl 

01133! 

MTEG 

030055 


MTGO 

707304 

MTIC 

707326 

M T NOP 

0! 1312 

MTRCC 7 

01 1373 

MTRCLM 

01 1374 

M7ROWT 

01 1 377 

MTRS 

707352 

MTSEV 

ON I 77 

MTSEVI 

01 124? 

MTSE 

707341 

mtstat 

01 1273 

MTTR 

70730! 

MTWf 

011165 

MULTSP 

006544 

MUPPER 

001527 

MV 

01 1 073 

MVHOV 

0 1 02b6 

MWA1 T 

011261 

M4Q 

014371 

M40C 

014205 

NOX 

010555 

NOY 

010553 

neta 

014373 

NEWOIR 

005550 

NEWOi 

005570 

NEW02 

005600 

NENMR 

014404 

NGBTD 

007662 

NGC 

0 1 0562 

NGCOOA 

010566 

NGCOM 

005316 

NGCOM1 

005366 

NGC0M2 

005370 

NGCTS 

010616 

NGC! 

010563 

NGC2 

010564 

NGOCTN 

007766 

NGOHL 

010520 

NG01G 

010560 

NGOIS 

007770 

NOOVL 

010533 

NGOZRO 

007767 

NGH 1 GH 

010557 

NOLI ST 

01060! 

NGLOW 

0 1 0556 

NGNON 

007756 

NGOVER 

007765 

NGRE 

007762 

ngtem 

0 ! 056! 

NGTENH 

007764 

NGTENL 

007763 

NGI 

007702 

NG2 

007710 

NG3 

007714 

NG4 

007751 

NG5 

007776 

NG7 

010007 

NG8 

010024 
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NG9 

010030 

NIO 

J 12250 

N10A 

012273 

N J OR 

014212 

NLS 

0 1 0554 

NM 

014401 

NOCO 

010344 

NODCSW 

004746 

NCEVNT 

003260 

NOR 

013426 

NPl. 1 NE 

007403 

NULLS 

006726 

NUMPLA 

001247 

NX 

010547 

NY 

010551 

OCTN 

006543 

OCTOUT 

006526 

OCT1 

006532 

OOE V 

004604 

OFF ADC 

003375 

0108 

016244 

01 OB AO 

016260 

0108RS 

0 1 6252 

0ID8SV 

016257 

0 1 GO 

016237 

01 JMS 

0 1 6226 

OILE 

016224 

OILO 

n 1 6222 

0 1 NX 

016220 

010 

016150 

0 J OA 

016141 

OlOAC 

0 1 6266 

01 PRO 

016207 

OfPT 

0 1 6265 

< ITEM 

004605 

OK 

002564 

OM 

030051 

ONAOC 

003406 

OOP 

020H00 

OOUT 

0 1 6267 

OSIP 

012375 

OUTPUT 

020201 

0UT8 

016056 

overel 

0 1 526 1 

OX 

010546 

PA0C8 

005047 

PAOCGO 

004625 

PAGES 

007164 

PAGO 1 

007151 

PAG02 

007155 

PANBR 

005305 

PANELG 

004106 

PANRET 

005055 

PANSEV 

004107 

P0CT 

01 1615 

P81NR 

011614 

P8L0N 

005004 

PB15 

0U4162 
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P816 

004173 

PB!7 

0Q4204 

PCODE 

004 1 47 

PD 1 S 

005526 

POMODE 

004724 

PERASE 

0046 l 1 

PERROR 

005053 

PESO 

015177 

pro IS 

005527 

PFG 

000061 

PICK 

005535 

PINDOF 

005037 

PI NOON 

005026 

PINFOl 

004216 

PINF02 

004253 

PINRET 

004234 

PLAl ST 

000253 

PLCFS 

004750 

PUVE 

004723 

PL I VET 

004675 

PLOTGO 

016127 

plottr 

016131 

PNCL 

705604 

PNIO 

705702 

PNIT 

705704 

PNOCD 

004726 

PNOLO 

004770 

PNRO 

705612 

PNSKI 

705701 

PONOFF 

006767 

POSO 

004642 

POTTY 

007 MS 

pottyi 

007125 

POWH 

006676 

POWHS 

006703 

POWL 

006663 

P0ML5 

00667C 

PRINT 

006752 

PRINTR 

006757 

PR! OF 

007077 

PROGRM 

016104 

PR OVER 

006714 

PRTEM 

006715 

PSCNTR 

001250 

PSEQ 

01 ! 457 

PSEOI 

0 1 1 4S7 

PSETUP 

001136 

PSET21 

001172 

PSET3 

001201 

PSET4 

001215 

PSET5 

001221 

PSET8 

001243 

PSPREA 

005021 

PTENO 

016042 

PTFG 

030045 

PTRD 

016006 

PUNBIN 

01 1600 

PUNCTi 

007401 


PUNCT2 

007376 

PUNCT3 

007374 

PUNOEC 

007364 

PUNLEA 

007306 

PUNOUT 

007205 

PUNSH 

007347 

PUNSHR 

007354 

PUNSH2 

007316 

PUNSH3 

007241 

PUNSS 

007275 

PUNSTA 

007340 

PUNSTO 

007344 

PUNTAB 

007323 

PUNTS 

007377 

PUNTS2 

007400 

PUNTS3 

007375 

PUN 1 

007232 

PUNS 

007252 

PUN3 

007272 

P40 

014372 

P40C 

014026 

QA 

012144 

OAA 

012165 

QAAI 

012175 

QAM 

012232 

QAN 

012162 

QAR 

Cl 2222 

QMARK 

006746 

RAMPC 

005517 

RAREA 

015070 

RAS 

007455 

RBANG 

014627 

RBANGR 

015100 

RBANG 1 

C 15125 

R8AS 

020276 

RCOMO 

00134) 

RCOMDR 

001345 

ROBLK 

002606 

RDDIR 

006054 

RDS ! N 

00261 1 

ROSL 

002561 

RDSLOT 

001130 

READ 

0 1 2366 

READCS 

005237 

REAOC 1 

005263 

REAOF 

012374 

REAOPT 

Cl 57 14 

readt 

012365 

READ l 

012376 

REA050 

016047 

REALM I 

030003 

REALLO 

030004 

RE ALT M 

030031 

RE APT 

012456 

REAPTI 

0 1 2457 

REATT 

012460 

REAUNP 

012405 

REEL 

000215 


REELS 

020253 

REG 

015132 

REMOVE 

006101 

RENAME 

006201 

RES 

020446 

RESC 

0 * 5222 

reseta 

000130 

RESPT 

015346 

RESPTS 

015345 

RESTOR 

007412 

RET 

007436 

RETC 

006257 

REMIND 

01 t4 53 

RFAST 

005420 

RFLG 

015424 

RFS 

015635 

RFSR 

015655 

RGNUM 

015145 

RINC 

001 123 

RIN1T 

005413 

RLEFT 

005405 

RNAREA 

015065 

ROGO 

004532 

ROG! 

004563 

R0G2 

004571 

ROH 

004531 

ROHLT 

00452 1 

ROT INC 

010260 

ROTLOC 

010262 

ROTLST 

010263 

ROTPT 

004336 

ROTPTI 

004337 

R0TPT2 

034340 

ROTPT 3 

004341 

r'OTSEL 

004305 

ROT 1 

010233 

R0T2 

010236 

ROT 3 

010252 

RPAPER 

01 1565 

RPAPR 

01 1575 

RR1GHT 

005400 

RRR 

015413 

RSEO 

01 1500 

RT 

014373 

RTAPE 

002600 

RTAPI 

C02605 

RTMP 

005431 

RTSEV 

005123 

RTSEVI 

005166 

RWFG 

011376 

Rt 

015005 

Ri A 

015414 

R5 

020312 

S 

040000 

sadl in 

001524 

SAGA 

03014.3 

SA I A 

030122 

SALA 

030060 


SAHA 

030101 

SCAER 

003344 

SCALE 

007661 

SCALER 

003337 

SCAl RA 

030005 

SCALRB 

030007 

SCALRC 

03001 1 

SCAl.RO 

030013 

SC I A 

012274 

SCOMB 

002261 

SCOMBC 

015450 

SCOMBS 

015436 

SCOMB l 

015455 

SCOMB 4 

015503 

SCOMBS 

002407 

SC0MB6 

002427 

SCOMI 

002275 

SCORE T 

Cl 5532 

SEARCH 

006141 

SEAR! 

006151 

SEAR2 

006173 

SEAR3 

006175 

SEND 

0 1 2 M 5 

SEQ 

011523 

SEGPS 

01 1563 

SEQPT 

01 1564 

SEOR 

0 l 1 534 

SET 

012057 

SETCNT 

0061 1 I 

SETU 

012022 

SETUP 

012007 

SE T VAR 

012001 

SET 1 

012117 

SON 

013722 

SGSM 

020151 

S ID 1 V 

013700 

SION ' 

002635 

SINDMP 

005174 

SKSA 

702001 

SKS8 

702021 

SKSC 

702041 

SKSO 

702061 

SLIM 

015423 

SNG 

100000 

SPACE 

012723 

SPASNA 

013657 

SPCON 

010306 

SPCONA 

010305 

SPEC 

004366 

SPECPT 

007132 

SPEMRK 

004434 

SPPT 

014367 

SPREAD 

010302 

SPREV 

01031 1 

SPSA 

702204 

SPSB 

702224 

SPSC 

702244 

SPSD 

702264 


SQC 

U 1 54 1 0 

SQF 

015366 

SQM 

015377 

SQR 

013752 

SQRRES 

015433 

SQS 

015355 

SREJH1 

030023 

SREJLO 

030024 

SS1NG 

020375 

START 

001745 

STAT th 

030041 

STMASK 

003256 

STOP 

001657 

STOTIM 

030042 

S T POUT 

000006 

.STRIP 

000724 

STRPCH 

013476 

STRPFG 

000053 

STRP06 

0 10711 

STRP1 1 

015003 

STRSUM 

000212 

SUMCOM 

001655 

SUMO IS 

005513 

SUMONE 

000221 

SUPZRO 

005373 

SM 

002577 

SMST 

002222 

SX 

010310 

S3 

0 i 5555 

T 

015057 

TAPCON 

003637 

TAPE 

015630 

TC 

012714 

TC 1 

012531 

TEL 

012564 

TEL8S 

012710 

TELMQ 

012364 

TELPK 

012532 

TELPT 

0)2712 

TELPTI 

012713 

TELST 

012552 

TELST 1 

012554 

TELST2 

012557 

TEL ZZ 

01271 i 

TEL 1 

012630 

TEL2 

G l 2700 

TEL3 

012646 

TEL4 

012657 

TEL5 

012672 

TEL6 

012675 

TEL 7 

012617 

TEL0 

012701 

TEMP 

016004 

TENH 

006720 

TENL 

006721 

TERBUF 

0! 1370 

TERM 

016033 

TF1 

0 1 4420 


on-i 


t Fa 

014453 

TF3 

014426 

TIME 

007S57 

TIMES 

003332 

TIMEl 

007573 

TIME8 

007642 

TMP! 

016005 

TOPS 

030164 

TSSI 

016217 

TSI 

006725 

TSB 

006722 

TS7 

006723 

TX 

010550 

TY 

010552 

UNFOLD 

003775 

UN I AMT 

00100' 

UNIT 

001335 

UNITSV 

01 57 II 

UNITS 

015703 

UPSET 

012005 

U5 

020302 

VCMOV 

001335 

VCROSS 

001310 

VECTOR 

007444 

VER 

004362 

VERMK 

003305 

VMARX 

011066 

WAIT 

000240 

WC 

020653 

WEIGHT 

030043 

WINDOW 

011034 

WSTART 

000060 

WTDEC 

006534 

WTO I R 

006072 

W6 

020325 

X 

0 I u303 

XAB 

0 1 3620 

XCOORD 

000210 

XCTBKG 

000052 

XFER 

020341 

XLIMIT 

001522 

XPJOC 

015206 

XX 

740040 

YCOORO 

00021 1 

YLIMIT 

001525 

ZEROUT 

001636 

ZERO. 

001640 

ZERTC * 

000255 

ZPLANE 

000235 

ZRCNTR 

000256 

ZTEMP 

000250 

ZTEMPI 

000251 

ZZER 

004342 

ZZERC 

001530 

ZZERO 

OC 1 350 

ZZMOV 

001337 


•* ERROR COUNT IS 0 
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/ LIBRARY SEARCH 

XX-HLT 

FLAC-200000 

FOAC-O 

FAOD-30000G 

FMUL-5C0000 

FOI V-7QOGOO 

S-H0G00 

FC I A- I 365? 

MESAG-7000 

TAPCON-3637 

0M00E-5477 

PINF02-4253 

INSEL-7667 

MAGTP t - I I 367 ' 

DECTRM-63H** 

0ECT3-6MI 3 

DISKIO-3M21 

RET-7M36 

0ECRET-65I3 

GECCHD-6**36 

FCLA* i 3666 

FF'X-13606 

READ* I £366 

0SEL-5M52 

F i NT « } 305 1 

FEXT- J 3I )-£ 

FSIGN-135^5 

CRLF-6737 

CIA-177? 

PRINT -6752 
TC * 1 27 I H 
A INF -62 
REALM ! -30003 
EXPIO-3GOOO 
HI GHPR-67 ; 2 
DECPRT-6554 
RETC-6257 
DECCON-657 I 
GAiN-300 1 # 

STAT IM-300HI 

STOTIM-300H2 

WEIGHT-30GH3 

OOP I -30057 

L I VEPS-3003^ 

DECNM-30040 

! M - 3 0 0 4 7 

OM- 3005 I 

PTFG-30045 

CMG-30053 

MThC«30055 

SALA-30060 

SAHA-3010! 

SA I A- 30 1 22 
SAGA* 30 m3 
EXP I OF -30037 
AC-I34T7 



ZL T-: 
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020000 770700 

ueO-'O! 020276 

320002 215430 

020003 023427 

020004 456060 

020005 023447 

020006 457070 

020007 023753 

020010 404000 

0200 I I 024021 

020012 000000 

020013 000000 

0200s 4 230501 

020015 220310 

020016 724000 

020017 040503 

020020 240120 

02C02I 054016 

020022 251502 

020023 052272 

020024 400000 

'"•0025 760310 

J20026 050313 

020027 400405 

020030 03240! 

020031 200540 

020032 25161 I 

020033 244000 

020034 ■’61011 

020035 244003 

020036 224027 
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NOR- I 3426 
ACZ • I 3702 
T lOAT • | 3460 
SC-13413 
TOPS-30 164 
BDTS-30205 
UPSET- 12005 
MESS24-63 I 4 
MESSBC- 13046 
MESS8I- 13016 
MESS82- I 3022 
MESS83- 12772 
MESS84- 12740 
MESS85- 12745 
HESS86- 1 2752 
MESS87- I 3026 
MESS58- I 3033 
MESS89- I 3043 
MESS90- 12777 
MESS9 1 - I 3002 
MESS92- I 3006 
HCSS93- I 30 1 2 
MESS94- 12733 
MESS95- 12756 
MESS96- 12764 

• LIT LI BLIT 

•LOC 2000C 

770700 

LRGO 

215430 

CLEAR 

456060 

EMT 

457070 
LGE * 

404000 

OIOA 

0 

0 

MESSOI 230501 

220310 
724)00 
MESS02 040 »03 

240120 
054016 
251502 
052272 
400000 
MESS07 760310 

050313 
400405 
032401 
200540 
25161 I 
244000 
MESS06 761011 

244003 
224027 


/ GO-BEGIN SEARCH 
/ CLEAR PARAMETER TABLE -CLEAR 


/ D-ENTER OEBUG 


/ SEA 
/ RCH 

t ; 

/ DEC 
/ f AP 
/ E N 
/ UMB 
/ ER 

/ CH 
/ ECK 
/ OE 
/ C T A 
/ PE 
/ UNI 
/ T 
/ HI 
/ T C 
/ R W 
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030037 

100516 


100516 

/ HEN 

O2O0V0 

VC3305 


V02205 

/ RE 

03COV! 

0IGV31 


OIOV3! 

/ A0 V 

0200V2 

000000 


0 


0200V3 

76666V 

HE5S03 

76666V 

' 6* 

02G0W 

VO 101 1 


V010I 1 

/ HITS 

0200V5 

3V3376 


2V3376 


0200V6 

OOOOOC 


0 


0200V7 

763305 

MESSO** 

762305 

/ SC 

030050 

013303 


013203 

/ ARC 

030051 

10V003 


10V003 

/ h e 

030053 

171530 


I71S20 

/ OMP 

030053 

1H053V 


IV053V 

/ LET 

03005V 

05V03V 


05V03V 

/ E T 

030055 

100533 


100522 

/ HCp 

030056 

05V037 


05V037 

/ £ H 

030057 

053305 


053305 

/ ERE 

030060 

VOOOOO 


VOOOOO 


03006 ' 

void i 

MESS05 

vo ton 

t HI 

030083 

3V3376 


2V2376 

/ TS 

030063 

SV 1 005 


2v 1 005 

/ THE 

03006V 

3IV001 


31V00! 

/ Y A 

030065 

320573 


330572 

/ RE : 

030066 

780000 


760000 


030067 

3VI73V 

HESS 30 

3VI72V 

/ TOT 

030070 

01 1 wo 


01 i WO 

/ AL 

030071 

333001 


233001 

/ SPA 

030073 

03! 1 16 


031 I 16 

/ CIN 

030073 

0773V0 


0778V0 

/ 0: 

03007V 

000000 


0 


030075 

IV35I6 

MESS3I 

1 V3516 

• LUN 

030076 

0133V0 


0132V0 

t A R 

030077 

330! 15 


330115 

. SAM 

030100 

301V05 


301V05 

.* PLE 

030101 

73V000 


73V000 

f 

030103 

0V3W0 

MS 100 

0V2W0 

/ DT 

030103 

I 71.6V0 


1 7 1 6%0 

/ QN 

03010V 

65V006 


65V006 

/ 5 F 

030 ; 05 

35! VI V 


351 Vi V 

f ULL 

030106 

V03V3I 


V03v31 

/ TT 

0?0l07 

3005VO 


3005V0 

/ PE 

030110 

0333 VO 


0?22V0 

/ cr 

0301 t 1 

371005 


2* 1005 

/ WHE 

0301 13 

16V033 


I6V022 

/NR 

0301 13 

05010V 


050 1 Ov 

/ EAD 

0301 iv 

310000 


310000 

/ r 

0301 15 

0V3555 

HSIOl 

0V25I5 

' OUH 

030 1 1 6 

30V017 


30V017 

/ P 0 

0301 17 

16V03V 


I6V02V 

/NT 

030130 

013005 


0 12J05 

/ APE 

030131 

77V000 


77V000 

/ ? 

030133 

16173V 

MS 1 U2 

16178V 

/ NOT 

030133 

V017I6 


VO ! 7 I 6 

/ ON 

03013V 

V03VI0 


V02V I 0 

/ th 

030135 

It 33 VO 


1 133V0 

/ IS 

030136 

2V0120 


2 VO 120 

/ TAPE 

030137 

057600 


057600 

/ E 

030130 

1V3516 

MSiOV 

1V3516 

/LUN 
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050131 

0155*0 


G12SM) 

✓ AR 

050135 

5301 15 


2301 15 

/SAM 

050133 

501*05 


S0IN05 

/PLE 

050 13* 

75*000 


72H000 

/ : 

050135 

Qooooe 

/DEC TAPE TO DISK COPT 

/CALL WITH AC -DEC TAPE UNIT NUMBER 

/USES 1 000(8 > LOCATIONS STARTING AT 1PBUF 

CPY W 

050136 

50*5*7 


LAC 

«OSEL*H / TURN OFF OISPlAY. 

050 l 37 

06*550 


OAC* 

(OSEL i 

050 mo 

55*551 


LAC • 

(P INFOS* 12 i 

050 mi 

06*555 


OAC* 

t INSELi 

050 ma 

50*553 


L4C 

(JMP TAPCONi 

050 m3 

06*55* 


DAi* * 

(0ECT3*lSi 

05om* 

50*555 


LAC 

(5511 / SET UP STARTING DISK ‘ADDRESS 

050 ms 

0*0170 


OAC 

OCOSS 

050 me 

50015-* 


LAC 

OCDSI / SET UP DOUBLE 8UFFCR ADDRESS 

050 m ? 

0*0167 


DAC 

OCDSS- i 

050 1 5*J 

3**556 


TAD 

l**00i 

050151 

06*557 


OAC* 

(MAG TP T 1 

050155 

776703 


LAW 

-1075 / BwOCK COUNTER 

050153 

0*0516 


OAC 

BLKCNT 

05015* 

12*560 


JHS* 

IOECTRW! 

050155 

00000* 

Dun i r 

* 

/ UN 17 

050 156 

777*00 


-H00 

/ WC 

050157 

031500 

CCOSI 

31500 


050*60 

00000! 


1 

/ BLOCKS 

050161 

000003 


3 

/ FUNCT.ON REAO 

050165 

7*0500 


S2A 

/ ERROR? 

050163 

600507 


JHP 

RNC I / YES 

05016* 

15*561 


JMS* 

(OISKIOl 

050165 

000000 


0 

/ UNIT 

U501S6 

777*00 


moo 

/ HC 

050167 

031500 


31500 

/ CA 

050170 

000551 

0CDS5 

55; 

/ BLOCKS 

050*71 

000005 


5 

/ FUNCTION WRITE 

050175 

050173 

7*0200 

600507 


SZA 

JMP 

RNCl . GO LIKE CRAZY 

050 1 74 

**0170 


ISZ 

OCDSS 

050175 

52*557 


LAC* 

imagtpts 

070176 

0*0167 


OAC 

OCOSS- I 

050177 

5*0157 


S**Q 

OCDSI 

050500 

600203 


j i r 

.♦3 

050501 

500157 


LAC 

OCDSI 

050505 

050503 

7*1000 

3**556 


SKP 

TAD 

(NOOi 

05050** 

06*557 


OAC* 

imagtpt i 

050505 

**0216 


ISZ 

BLKCNT 

050506 

65*265 


JMP* 

(RET » 

G505U7 

20*565 

RNCl 

LAC 

(RET I 

050510 

06*563 


OAC* 

(OECRETi 

050511 

55*56* 


LAC* 

(TaPCONI 

050515 

06*25* 


DAC* 

(0ECT3M2 i 

050513 

50*265 


LAC 

«0ECT3*I3* 

0505m 

06*566 


OAC* 

(OECCMOi 

050515 

620135 


JMP* 

CPY 

050516 

000000 

BLKCNI 

0 



/DISK REAO 556 WORDS 
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/CROKA CONTAINS CURRENT 0 1 SK AOORESS 
/CA-EXP10H 


o aot s 7 

000000 

OKRD 

0 


020220 

200232 


LAC 

CRPKA 

020221 

040226 


DAC 

.♦5 / SAVE ORUM ADDRESS 

020222 

124261 


JMS* 

(DISK 10* 

G20223 

000000 


0 

/ DISK • 

020224 

777400 


-400 


020285 

030400 


30400 


020226 

740040 


XX 

/ ORUM AOORESS 

020227 

000003 


3 

/ FUNCTION 

020230 

440232 


ISZ 

CRDKA / GET READr FOR NEXT BLOCK 

020231 

620217 


JMP* 

OKRD 

020232 

000000 

CROKA 

0 




/DECIMAL 

INPUT ROUTINE 



/CALLING 

SEQUENCE 




/ 

JMS 

OCCINN 



/ 

AODRESS 

RETURN FOR NEXT NUMBER 




AC-0 FOR 

LAST CHARACTER IN BUFFER 



/ 

NOINP— 1 

NO INPUT 



/ 

NON-NUMER TERM 1 NATES EACH NUMBER 



/ 

CR TERMINATES BUFFER 



/ 

DCOG-fcUHBER INPUT 

020233 

000000 

OECINn 

0 


020234 

750001 


CLC 


020235 

040273 


OAC 

NO I NP 

020236 

124267 


JMS* 

<FCLA) 

020237 

124270 


JMS* 

IFF | X ) 

02u240 

124271 

0 1 N 1 

JMS* 

(READ) 

020241 

741200 


SNA 


020242 

600262 


JMP 

ENDEC 1 / END CF BUFFER RETURN 

020243 

344272 


TAD 

1-60) 

020244 

040275 


DAC 

TC3 

020245 

741100 


SPA 


020246 

600266 


JMP 

ENDEC 

020247 

344273 


TAD 

I - 1 2 ) 

020250 

740100 


SMA 


020251 

600266 


JMP 

ENDEC 

020252 

440273 


ISZ 

NOINP 

020253 

740000 


NOP 


02 0254 

124274 


JMS* 

i F I NT ) 

020255 

544275 


FM'JL t S 

C 12> 

020256 

340275 


FA JD!S 

TC3 

020257 

124270 


JMS* 

IFF IX) 

020260 

124276 


JMS* 

IFEXT J 

G20261 

600240 


JMP 

D IN l 

020262 

124277 

ENDEC 1 

JMS* 

1FSIGN) 

020263 

040274 


DAC 

OCDG 

.20264 

750000 


fLA 


020265 

180233 


JMS* 

DEC INN 

020266 

124277 

ENDEC 

JMS* 

1FSIGN1 

020267 

040274 


DAC 

OCOG 

02C270 

750001 


CLC 


020271 

120233 


JMS* 

DEC INN 

020272 

600236 


JMP 

DIN 1 -2 

020273 

000000 

NO 1 NP 

0 


020274 

000000 

DCOG 

0 


020275 

000000 

TC3 

0 
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020276 124300 

020277 760115 

020300 104210 

020301 1 2427 I 

020302 544301 

020303 600307 

020304 750001 

020305 0407»*| 

020306 741000 

020307 140741 

020310 100742 

020311 200423 

020312 040240 

020313 201567 

0203 14 041576 

020315 204302 

020316 0** 1 573 

020317 20*1303 

020320 040155 

020321 141574 

020322 777775 

020323 041575 

02032** 124300 

020325 76001** 

020326 I 0**2 1 0 

020327 100233 

020330 000000 

02j33 I 740100 

020332 600342 

020333 200274 

020334 061576 

020335 441576 

020336 44157** 

020337 441575 

020340 620330 

020341 600276 

020342 441574 

02C343 200274 

020344 061576 

020345 200273 

020346 741100 

G2Q347 600276 

020350 201574 

020351 124304 

020352 041575 

J20353 041574 

020354 221573 

020355 344305 

020356 064275 

020357 220012 

020360 041577 

02036! 220012 

020362 041602 

020363 220012 

020364 041601 

020365 220012 
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020366 040217 

020367 220012 

020370 04 1 340 

020371 220012 

020372 041037 

020373 220012 

020374 041046 

020375 200217 

020376 042453 

020377 204306 

020400 104210 

02G40 1 222453 

020402 740200 

020403 600456 

0204Q4 760272 

020405 124307 

020406 760273 

020407 124307 

020410 103361 

020411 741200 

020412 600441 

020413 224310 

020414 54 13 1 1 

020415 600451 

020416 224310 

020417 544312 

020420 600431 

020421 544313 

020422 600431 

020423 124271 

020424 740200 

020425 600423 

020426 760277 

020427 124307 

020430 600375 

020431 224310 

020432 062453 

020433 442453 

020434 102454 

020435 103361 

02C436 741200 

020437 600444 

020440 600416 

020441 224314 

020442 741100 

020443 600500 

A 20444 2043 i 5 

020445 062453 

020446 442453 

020447 102454 

02G450 600500 

020451 124271 

02C452 740200 

020453 600451 

020454 162453 

020455 600500 

020456 222453 

020457 442453 
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OAC 

OKRD 

/ s 


LAC* 

12 



OAC 

5PN 



LAC* 

12 



OAC 

TSP 



LAC* 

12 



OAC 

LSP 


ESTRT 

LAC 

OKRO 

/ < 


OAv.. 

EXPER 

/ 1 


LAC 

1HESS241 



JMS 

HSPT 



LAC* 

SZA 

EXPER 

/ t 


JMP 

ESI 

l ' 


LAW 

272 



JMS* 

IPRINTI 


CS5 

LAW 

273 

/ 1 


JMS* 

(PRINT) 



JMS 

FREAO 

> 1 


SNA 


/ 


JMP 

ES2 

/ 


LAC* 

! TC > 

/ 


SAO 

(72) 



JMP 

ENOSP 

/ 

ES4 

LAC* 

(TC) 

/ 


SAO 

(37) 

/ 


JMP 

E INC 



SAO 

: 4 1 ) 

/ 


JMP 

E INC 


EQM 

JMS* 

SZA 

(READ) 

/ 


JMP 

. -2 



LAW 

277 



JMS* 

(PRINT ) 



JMP 

ESTRT 


£\Hl 

LAC* 

(TC) 

/ 


OAC* 

EXPER 



ISZ 

EXPER 



JHS 

CM07X 

/ 


JMS 

FREAO 

/ 


SNA 




JMP 

ES3 

/ 


JMt 

ES4 


ESc? 

LAC* 

SPA 

! A 1 NF > 



JMP 

ELEAV 


ESS 

LAC 

< 1 5 • 

/ 


OAC* 

EXPER 



ISZ 

EXPER 



JMS 

CMOYX 

/ 


JMP 

ELEAV 


ENOSP 

JMS* 

(READ) 

i 


SZA 


/ 


JMP 

.-2 



OZM* 

EXPER 

/ 


JMP 

ELEAV 


ESI 

LAC* 

EXPER 

/ 


ISZ 

EXPER 



SAVE IT FOR LA'. t.R USE 


SAVE AGORESS OF TOP OF 
INPUT BUFFER 

ANY VALUES TO PRINT 
YES-GO PRINT EM 

BEGIN INPUT 

REAO 1ST FLOATING VALUE 

ANY GOOD 

YES 

ANY SPEC IF I CAT ION 
NO 

WHAT WAS TERMINATING VALUE 
BK ARROW 

EX PT 

NONE OF ABOVE BAD INPUT 

STORE TERMINATING VALUE 

CHANGE ANO STORE FLOATING VALUE 
REAO NEXT 

DONE 

PUT 15 IN BUFFER 

STORE LAST VALUE ANO RETURN 

CLEAR OUT ANY THING 
REMAINING IN BUFFER 

ZERO VALUE FOR NO-SPEC 

PRINT CONTENTS OF B'JF.-ER LOOP 
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020460 

544315 

020465 

600474 

020462 

042013 

020463 

10341 1 

020464 

202013 

020465 

544312 

020466 

600472 

020467 

344316 

020470 

124307 

020471 

600456 

020472 

344317 

020473 

60U47C 

020474 

1034! 1 

020475 

200217 

020476 

042453 

020477 

600406 

020500 

204320 

020501 

101653 

020502 

20432; 

020503 

10075! 

020504 

204322 

020505 

10075! 

020506 

2C4323 

020507 

100751 

0205 1 U 

204324 

02051 1 

100751 

020512 

204325 

020513 

101653 

0205 l 4 

204326 

020515 

101653 

020516 

204327 

02C5 I 7 

101047 

020520 

204330 

020521 

101047 

020522 

101031 

020523 

204331 

020524 

101653 

020525 

204332 

020526 

101 341 

020527 

204333 

02J530 

101341 

020531 

204334 

020532 

1 0 I 34 I 

020533 

204335 

C20534 

101341 

020535 

204336 

"•20536 

100751 

U20537 

204337 

020540 

101653 

020541 

204340 

G20542 

101653 

020543 

760017 

02054N 

101653 

020545 

101040 

020546 

124300 

020547 

124300 

020550 

441573 

020551 

441575 
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ES6 

ELEAV 


/ RESET POINTER TO TOP OP INPUT BUFFER 


/ TOTAL SPACING 


/ DEC TAPE NUMBER 
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080552 

600354 


JHP 

NXB 



080553 

201567 


LAC 

HDTSA 



02055*4 

041576 


OAC 

NDTBF 



080555 

204341 


LAC 

13) 



080556 

040555 


OAC 

DUN IT 



080557 

105603 


JMS 

UN ITCH 



080560 

204302 


LAC 

tSCHPA) 



080561 

041573 


OAC 

SCHB 



020562 

221576 

NEXTSH 

AC* 

NDTBF 

/ 

GET • OF TAPES TO SEARCH 

080563 

124304 


JMS* 

ICU> 



020564 

041575 


OAC 

SCN7 



020565 

777700 


LAW 

-too 

/ 

ALLOW 64(10) HITS 

080566 

040736 


OAC 

HITCNT 



020567 

204246 


LAC 

HiTBA 

/ 

SET UP BUFFER FOR HK EXPERID 

020570 

064342 


OAC* 

t I3> 



020571 

140737 


OZM 

HITS 



080572 

100135 

COPYOO 

JMS 

CPY 



020573 

204255 


LAC 

1551 ) 

/ 

SET UP DRUM ADDRESS COUNTER 

02057*1 

040232 


OAC 

CRDKA 



080575 

100217 


JMS 

DKRD 

/ 

REAO DIRECTORY 

020576 

824343 


LAC* 

1 REALHl *400 ) 



080577 

124304 


JMS* 

tCIA) 



020600 

040734 


OAC 

NREELS 



02060 1 

1 002 1 7 

GREEL 

JMS 

DKRD 



020602 

224343 


LAC* 

• REALH 1 ♦soo > 


020603 

124304 


JMS* 

(CIA) 



020604 

040740 


OAC 

NID 

/ 

SAVE FOR COUNTER 

080605 

040735 


OAC 

HDD 

/ 

SAVE FOR POINTER 6UMMPER 

020606 

100217 

NEXT ID 

JMS 

OKRD 

/ 

READ 10 BLOCK 

020607 

221573 


LAC* 

SCHB 

/ 

PICK UP CURRENT SEARCH BUFFER 

020610 

040751 


OAC 

07 N 

/ 

GET ADDRESS OF CURRENT 

02061 1 

22075 l 


LAC* 

GYN 

/ 

NUMERIC PARAMETER LIST 

020618 

440751 


ISZ 

GYN 



02061 3 

1 0 1777 


JMS 

NUHSH 

/ 

SEARCH NUMERIC 

020654 

600661 


JMP 

CKNEXT 

/ 

NO GOOD-GET ID 

080615 

820751 


LAC* 

GYN 

/ 

GET ADDRESS OF CURRENT 

020616 

440751 


ISZ 

GYN 

/ 

YES-NO PARAMETER LIST 

020617 

108107 


JMS 

YNSH 



020620 

600661 


JMP 

CKNEXT 



020621 

880751 


LAC* 

GYN 



020622 

440751 


ISZ 

GYN 



020623 

108140 


JMS 

ASH 



020684 

600661 


Jh=> 

CKNEXT 



020625 

820751 


la:* 

GYN 



020626 

440751 


ISZ 

GYN 



020627 

102338 


JMS 

I DSH 

/ 

ID SEARCH 

020630 

60066! 


JMP 

CKNEXT 



020631 

28C751 


LAC* 

GYN 



,20632 

440751 


ISZ 

GYN 



020633 

108710 


JMS 

SSH 

/ 

SPACING SEARCH 

020634 

600661 


JMP 

CKNEXT 



020835 

880751 


LAC* 

GYN 



020638 

440751 


ISZ 

GYN 



020637 

103157 


JMS 

T SSH 

/ 

SEARCH TOTAL SPACING 

020640 

600661 


JMP 

CKNEXT 



020641 

280751 


LAC* 

GYN 



020642 

503300 


JMS 

LSH 

/ 

LUNAR SAMPLE SEARCH 

020643 

600661 


JMP 

CKNEXT 
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0206'54 44Q737 

020645 224344 

020646 060013 

C2U647 224345 

020650 060013 

020651 750001 

020652 340232 

020653 060013 

020654 440736 

020655 600661 

020656 760043 

020657 104210 

020660 600702 

020661 440740 

020662 600606 

020663 200735 

020654 344346 

020665 340232 

020666 040232 

020667 440734 

020670 600601 

020671 441575 

020672 6/>0?3S 

020673 103610 

020674 760047 

020675 104210 

020676 200737 

020677 101761 

020700 76006! 

020701 104210 

020702 200737 

020703 741200 

020704 600721 

020705 124304 

020706 040737 

020707 204246 

020710 064342 

020711 124300 

020712 220013 

020713 064347 

020714 220013 

020715 744000 

020716 124350 

0207 l 7 464342 

020720 440737 

020721 600712 

020722 441574 

020723 741000 

020724 624351 

020725 441576 

020726 441573 

020727 101603 

020730 600562 

020731 101603 

020732 103610 

020733 600572 

020734 000000 

020735 000000 
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IS 2 

HITS 

/ 


LAC* 

*EXPlDF*m)0 

j 


DAC* 

13 



LAC* 

i EXP 1 0*- H00 i 



DAC • 

CLC 

13 

/ 


TAD 

crdka 

/ 


DAC • 

13 



ISZ 

H1TCNT 

/ 


JMP 

CKNEXT 

/ 


LAW 

MESS03 

/ 


JMS 

MSPT 



JMP 

PTHI TS 


CKNEXT 

isz 

NID 

/ 


JMP 

NEXT ID 

/ 


LAC 

MOD 

/ 


TAD 

t 1 7 i 

/ 


TAD 

CRDKA 

/ 


OAC 

CRDKA 



IS Z 

NREELS 

/ 


JMP 

OREEL 

i 


ISZ 

SCNT 

/ 


JMP 

NX T APE 

/ 


JMS 

DTAPE 



LAW 

MESSO** 

/ 


JMS 

MSPT 



LAC 

HITS 



JMS 

DECSING 



LAW 

MESS05 



JMS 

MSPT 


PTHI TS 

LAC 

HITS 



SNA 




JMP 

. ♦ 15 



JMS* 

tC 1 A 1 



OAC 

HITS 



LAC 

HIT8A 



OAC * 

i 1 3 » 



JHS • 

l CRLF > 



LAC* 

13 



OAC* 

(HIOHPR) 



LAC* 

CLL 

13 



J^* 

IOECPRT) 



ISZ* 

\ 1 3) 



ISZ 

HITS 



JMP 

. -7 



ISZ 

NUMS 

/ C 


SKP 

JMP* 

(RETC ) 

/ ^ 


ISZ 

NOT8F 

/ h 


ISZ 

SC H6 



JMS 

UNI TCH 

/ s 


JMP 

NEXTSH 

/ E 

NX TAPE 

JMS 

UN! TCH 

/ S 


JMS 

DTAPE 



JMP 

COPYGO 

/ C 

NREELS 

0 



MOD 

0 




HIT 


PUT ID IN 8UFFER 

SAVE HIT DISK BLOCK • 

64 HITS? 

NO 

YES PRINT MESSAGE 


DONE ALL IDS THIS TAPE 
NO-OET NEXT ONE 
NO BUMP OISK BLICK COUNTER 
BY AMOUNT NECESSARY TO PICK 
UP NEXT REEL ID BLOCK 

DO E ALL REELS THIS TAPE? 

NO 

DONE ALL SEARCH'S 
NO 

YES PRINT INFO FOP THIS SEARCH 


OONE ALL SEARCHES 
YES DONE RETURN 

NO-MOVE POINTERS FOR NEXT SEARCH 
SWI TCH UNITS 

BEGIN N£h COPY-ANO SEARCH 
SWITCH UNITS 

CONTINUE SEARCH 
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020 ?36 

000000 

Hi TCNT 

C 




020737 

000000 

HITS 

0 




0207m) 

000000 

MID 

0 




0207m 

000000 

OFLAG 

0 




020742 

000000 

ZREAD 

0 




020743 

124271 


JMS* 

(READ) 



020744 

740200 


SZA 




0207M5 

600743 


JMP 

. -2 



020746 

620742 


JMP * 

ZREAD 



020747 

000000 

CON i N 

0 




0207S0 

620747 


JMP • 

CON IN 





/ YCS-NO 

PRINT AND 

INPUT 



020751 

000000 

GYN 

0 




020752 

041776 


DAC 

MESSNO 

/ 

SAVE MESSAGE NO 

020753 

104210 


JMS 

MSPT 



020754 

221602 


L AC • 

YN 

/ 

CURRENT PARAMETER VALUE 

020755 

740200 


SZA 


/ 

UNSPEC:FIEO? 

020756 

601010 


JMP 

SOMSP 

/ 

NO 

020757 

760272 

GYNOS 

LAN 

272 

/ 

PRINT s 

020760 

124307 


JMS • 

(PRINT) 



020761 

760273 


LAN 

273 

/ 

PRINT ; 

020762 

124307 


JMS • 

(PRINT) 



020763 

124271 


JMS • 

(READ) 

/ 

READ ONE CHAR 

020764 

^45200 


SNA CLL 




020765 

601006 


JMP 

INOK *5 

/ 

CR-LEAVE AS 15 

0207GS 

54431 1 


SAD 

(72) 

/ 

NO SEARCH 

020767 

601023 


JMP 

GNOSP 

/ 

YES 

020770 

544352 


SAD 

(31 ) 

/ 

Y 7 

02077! 

601001 


JMP 

INOK 



020772 

544301 


SAO 

t 16) 

/ 

N? 

020773 

60100! 


JMP 

INOK 



020774 

60 1 025 


JMP 

BAD IN 



020775 

760277 

GOM 

LAN 

277 

/ 

NONE OF ABOVE ERROR 

020776 

124307 


JMS* 

(PRINT! 



020777 

201776 


LAC 

MESSNO 

/ 

START OVER 

021000 

600753 


JMP 

GYN*2 



02 I 00 \ 

5406 1 u 

INOK 

LLS 

14 

/ 

MOVE Y; N TO UPPER PART CF WORD 

021002 

061602 


OAC 

YN 

/ 

PUT IN PARAMETER AREA 

021003 

124271 


JMS* 

(READ) 

/ 

READ NEXT CHARACTER SHOULD 

021004 

740200 


SZA 


/ 

BE A TERMINATOR 

021005 

601025 


JMP 

BAD IN 

/ 

IT WASNT INPUT ERROR 

C2 1006 

440751 


ISZ 

GYN 



021007 

620751 


. JMP* 

GYN 



021010 

221602 

SOMSP 

t AC * 

YN 

/ 

SOME THING SPECIFIED 

0210! ! 

544353 


SAD 

1 3 1 oooo > 

/ 

IS IT A Y? 

021012 

760331 


LAW 

331 

/ 

YES 

0210! 3 

544354 


SAO 

( 160000) 

/ 

IS IT A N? 

0210 14 

760356 


LAW 

316 

/ 

YES 

021015 

741100 


SPA 




0210 16 

600760 


JMP 

GYNOS* 1 



02 1 0 1 7 

600757 


JMP 

GYNOS 

/ 

NO SET IT EQUAL ZERO AND CONTINUE 

021020 

201602 


LAC 

YN 

/ 

PRINT CURRENT VALUE 

021021 

104210 


JMS 

MSPT 



02! 022 

60076! - 


JMP 

GYNOS*2 



021023 

161602 

ONOSP 

DZM * 

YN 

/ 

SET PARAMETER WORD - 0 

021024 

601003 


JMP 

1 N0K*2 



021025 

124271 

8A01N 

JMS* 

(READ) 



021026 

740200 


SZA 
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021057 

601025 

0=1030 

600775 

021031 

OOuOOO 

021032 

201037 

021033 

041340 

02 1 034 

760067 

021035 

101047 

021036 

621031 

021037 

OOOOOC 

02 1 040 

000000 

oe tom 

201046 

021 042 

0415/7 

021043 

760130 

021044 

101653 

0210*45 

621040 

0210*46 

000000 

0210=47 

000000 

021050 

041776 

02 1 OS ! 

104210 

025 05.- 

777777 

021053 

341340 

02105*4 

06 4.- 75 

02 1 055 

221340 

021056 

7402*30 

021057 

601304 

02 i 060 

760272 

021061 

124307 

02 1 062 

760273 

021063 

124307 

02 1 06*4 

151501 

021065 

144241 

021066 

144242 

021067 

101330 

021070 

741200 

021071 

60 1 222 

021072 

224310 

021073 

54431 1 

02 1 074 

601236 

021075 

544313 

02IC76 

601 124 

021077 

544312 

021100 

601131 

021101 

544355 

021 102 

601164 

021 1C3 

544356 

021104 

601114 

T'l 105 

124271 

02 1 1 06 

740200 

021 107 

601105 

021110 

760277 

021111 

1ch307 

02 1 1 1 2 

201776 

021113 

601051 

021114 

200274 

021115 

051501 

021116 

101334 
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JMP . -2 

UMP OQM 

GTS 0 

l ac ■ : sp 
DAC SPN 



LAW 

MESS 30 


JMS 

GSN 


JMP* 

GTS 

TSP 

/MOD GLS 

0 


GLS 

0 



LAC 

LSP 


DAC 

NUMERIC 


LAW 

MS 1 OM 


JMS 

ON 


JMP* 

GLS 

LSP 

C 


/routine 

TOR SPACING INPUT 

GSN 

0 



DAC 

MESSNO 


JMS 

MSPT 


LAW 

- 1 


TAO 

SPN 


DAC • 

< ia> 


LAC • 
S2A 

SPN 


JMP 

GSPRT 


LAW 

373 


JMS* 

(PRINT) 

GS IN 

LAW 

373 


JMS • 

(PRINT ) 


D2M 

1 I 


D2M 

N I 


02/1 

DNM 1 


JMS 

SNA 

RVAL5 


JMP 

GANY 


LAC » 

( TO 


3A0 

(73) 


JMP 

GNSP 


SAD 

«m > 


JMP 

GEX 


SAD 

t 37) 


JMP 

GBA 


SAD 

(57) 


JMP 

GSLS 


SAD 

(55) 


JMP 

GDSH 


JMS* 

S2A 

(READ) 


JMP 

. -3 

Q.SCJM 

LAW 

377 


JMS* 

(PRINT) 


LAC 

MESSNO 


JMP 

OSN+3 

GOSH 

LA L 

OCDG 


DAC 

I 1 


JMS 

RVALC 


* POR COMMENTS SEE PLOW 
> CHART SPACING INPUT 
t i?/ai/7i 


V 
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035117 

7*1200 


SNA 


021 120 

601110 


JMP 

GSQM 

02112 1 

22*310 


LAC* 

1 TC ) 

02! 122 

5**355 


SAD 

*57) 

021 123 

60116* 


JMP 

GSLS 

021 12* 

20027* 

GEX 

LAC 

OCDG 

021 125 

05 i'50 1 


OAC 

11 

021 126 

20*313 


LAC 

**| J 

021 127 

060012 


OAC ® 

12 

021130 

501135 


JMP 

oe 

02113! 

20027* 

OBA 

LAC 

DCOD 

02 M 32 

051501 


DAC 

1 1 

02 1133 

22*310 


LAC * 

l TC) 

02113* 

060012 


OAC* 

12 

02 S 135 

1012*3 

OB 

JMS 

MG 

021 136 

10133* 


JUS 

R/ALC 

02 11 37 

7*0200 


SZA 


0211*0 

601152 


JMP 

.♦12 

0211*1 

200273 


LAC 

NOINP 

021 1*2 

7*1100 


SPA 


021 1*3 

601 MO 


JMP 

GSOM 

0211** 

20027* 


LAC 

DC DC 

0211*5 

051501 


DAC 

J 1 

0211*5 

20*315 


LAC 

( i5) 

0211*7 

060012 


OAC* 

12 

021150 

1012*3 


JMS 

MG 

021151 

601232 


JMP 

GA 

02! 152 

22*310 


LAC* 

* TC ) 

021 153 

5**313 


SAO 

t* | I 

02115* 

60112* 


JMP 

GEX 

021155 

5**312 


SAD 

l 37) 

02 1 1 56 

601131 


JMP 

GBA 

021 157 

5**356 


SAD 

* 55 ) 

021160 

60111* 


JMP 

GOSH 

02116! 

5**355 


SAD 

157) 

u2t 162 

60 M 6* 


JMP 

GSLS 

021163 

601105 


JMP 

GSOM- 3 

021 16* 

20027* 

GSLS 

LAC 

DCDG 

021165 

0**2* 1 


DAC 

N 1 

021186 

10133* 


JMS 

RVALC 

021 157 

7*0200 


SZA 


021170 

601202 


JMP 

.♦12 

021 171 

200273 


LAC 

NOINP 

021 172 

7*1100 


SPA 


021 173 

60 M 10 


JMP 

GSOM 

021 17* 

20027* 


LAC 

DCDG 

021 175 

0**2*2 


OAC 

DNMI 

' 1176 

20*315 


LAC 

* 15) 

021 177 

060012 


OAC* 

12 

02I2G0 

1012*3 


JMS 

MG 

02120 l 

601232 


JMP 

GA 

021202 

200273 


LAC 

NOINP 

021203 

7*1100 


SPA 


02120* 

60M 10 


JMP 

GSQM 

021205 

20027* 


LAC 

DCDG 

021206 

n ** 2*2 


OAC 

DNMI 

021207 

22*3 3 0 


LAC* 

< TC ) 

021210 

5**313 


SAD 

<*1 ) 



m- 
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021211 74100a 

021212 601215 

021213 060012 

021214 601135 

021215 544312 

021216 7m00G 

02 12 1 ^ 601105 

021220 060012 

021221 601135 

02 l 222 200273 

021223 7m 100 

02 1224 601232 

021225 20027«* 

021226 051501 

021227 204315 

021230 G60012 

021231 101243 

021232 204357 

021233 341340 

021234 041340 

021235 621047 

021236 124271 

021237 740200 

021240 601236 

021241 161340 

021242 601232 

021243 000000 

021244 211501 

021245 060012 

021246 204241 

02 S 247 060012 

021250 204245 

021251 060012 

021252 153 50 1 

021253 144241 

021254 144242 

021255 621243 

021256 000000 

021257 220C12 

021260 741200 

02t261 601302 

021262 101761 

0212F3 220012 

021264 741200 

021265 601300 

021266 040233 

021267 760255 

21270 124307 

021271 200233 

021272 101761 

021273 76G257 

021274 124307 

021275 220012 

021276 JO 1761 

021277 621256 

021300 464275 

021301 621255 

021302 220012 
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SkP 

JMP 

• ♦ 3 


DAC* 

12 


JMP 

GB 


SAD 

< 37 J 


SKP 

JMP 

GSQM-3 


DAC* 

12 


JMP 

GB 

GANT 

LAC 

N01NP 


SPA 

JMP 

GA 


LAC 

OCDG 


OAC 

1 1 


LAC 

< 15) 


OAC • 

12 


JMS 

MG 

GA 

LAC 

( 120) 


TAD 

SPN 


OAC 

SPN 


JMP* 

OSN 

GNSP 

JMS* 

(READ) 


SZA 

JMP 

. -2 


DZH* 

SPN 


JMP 

GA 

MG 

G 



LAC 

1 1 


DAC* 

12 


LAC 

HI 


DAC* 

12 


LAC 

ONMI 


DAC* 

12 


OZM 

! 1 


OZM 

NI 


DZM 

DNMl 


JMP® 

MG 

FPRT 

0 



LAC* 

12 


SNA 

JMF 

Z 1 


JM< 

DECSING 


LAC* 

12 


SNA 

JMP 

FRET 


OAC 

DEC INN 


LAW 

255 


JMS* 

(PRINT ) 


LAC 

DEC INN 

F| l 

JMS 

DECSING 


LAW 

257 


JMS* 

(PRINT ) 


LAC* 

12 


JMS 

DECSING 


JMP° 

FPRT 

FRET 

ISZ* 

i 12) 


JMP* 

FPRT 

?1 

LAC* 

12 


/ MOVE INTENTS OF II.NI.Ul 
/ INTO PARAMETER STORAGE AREA 


/ PRINT FRACTIONAL VALUES 

/ PRINT INTEGER 
/ OENOM*0 

/ YES 
/ SAVE IT 
/ PRINT - 

/ PRINT OENOM 

/ PRINT / 

/ GET NUMER 

/ PRINT 


A 
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02 l 303 60 1 272 
021304 2200 I 2 
021305 042102 
021306 1 01256 
021307 202102 
0213*0 544315 
021311 60 1314 
021312 101320 
021313 601304 
021314 777777 
021315 341340 
02 1316 064275 
021317 601062 
021320 000000 
021321 544312 
021322 601326 
021323 344316 
021324 124307 
021325 621320 
021326 344317 
021327 601324 
021330 000000 
021331 100233 
021332 000000 
021333 621330 
021 334 000000 
021335 201334 
021336 041330 
021337 621332 
021340 000000 

021341 000000 
021342 041776 
021343 040273 
021344 104210 
021345 777771 
021346 041773 
021347 140274 
021350 201601 
021351 041772 
021352 344360 
021353 041775 
0c I 354 344360 
021355 040751 
021356 221601 
021357 740200 
021360 601477 
021361 760272 
021362 124307 
021363 760273 
021364 124307 
021365 124271 
021366 745200 
021367 601433 
021370 54431 1 
C21371 601420 
021372 544361 
021373 601460 
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JMP 

f \ \ 

GSPR i 

LAC • 

12 


DAC 

TCN 


JMS 

FPRT 


LAC 

TCN 


SAD 

4 15) 


JMP 

. ♦ 3 


JMS 

TCPRT 


wrMP 

GSPRT 


LAW 

-1 


TAD 

SPN 


DAC* 

1 12* 


JMP 

GSlN 

TCPRT 

0 



SAD 

137) 


JMP 

. *4 


TAD 

1200 ) 


JMS* 

4PR INT > 


JMP* 

TCPRT 


TAO 

1300 ) 


JMP 

. - 3 

rvals 

0 



JMS 

DEC INN 

RV 

0 



JMP* 

RVALS 

RVALC 

0 



LAC 

RVALC 


DAC 

RVALS 


JMP* 

RV 

SPN 

0 


/ALPHA 

PRINT AND 

INPUT 

GALP 

0 



DAC 

MESSNO 


DAC 

NOINP 


JMS 

MSPT 


LAW 

-7 


DAC 

FTC 


OZM 

OCDG 


LAC 

ALPHA 


DAC 

numtmp 


TAD 

16) 


DAC 

CHRl 


T A 4 

16 ) 


DAC 

GYN 


LAC* 

5ZA 

ALPHA 


JMP 

SOPAL 

A3 

LAW 

272 


JMS* 

1 PR INT ) 


LAW 

273 


JMS ■ 

(PRINT) 

AHEAD 

JMS* 

SNA CLL 

1 READ > 


JMP 

AS IS 


SAD 

172) 


JMP 

ANOSP 


SAD 

(46 ) 


JMP 

ANDSP 


/ RESTORE AUTO INDEX 


/ READ OEClMAL VALUE 

/ RE AO DECIMAL VALUE FROM 
/ WHERE WE LEFT OFF IN INPUT BUFFER 


/ SAVE MESSAGE NUMBER 
/ SET NO INPUT F L^O 

/ COUNTER TO ALLOW INPUT OF 6CHAR 
/ CLEAR CHARACTER INPUT COUNTER 

/ SAVE ADDRESS OF TOP OF BUFFER 

/ SAVE AODRESS OF BOTTOM HALF OF BUFFER 

/ SAVE ADDRESS OF BOTTOM OF BUFFER 

/ CURRENT VALUE UNSPECIFIED? 

/ NO-PRINT CURRENT VALUES 


/ YES 

/ NO SPECIFICATION 


/ AND 



E-186 
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021374 

544313 


SAO 

<41 i 



031375 

60147 3 


JMP 

ORSP 

/ 

OR 

031376 

441773 

Al 

ISZ 

FTC 

/ 

7TH CHARACTER 

031377 

74 ! 000 


SkP 


/ 

NO 

03.400 

60 ! 406 


JMP 

AQM 

/ 

lES DON'T ALLOW IT 

03 1 HOI 

1 4 0 2 3 


OZM 

NOINP 



03 1402 

06 1601 


OAC • 

AC PHA 

/ 

SAVE. CHARACTER 

03 mo3 

44 160 1 


ISZ 

ALPHA 



031404 

440374 


ISZ 

OCDG 

/ 

INCREMENT CHARACTER CNTR 

031405 

601365 


JMP 

AREAO 

/ 

READ MORE 

03 1406 

12427 1 

AQM 

JMS • 

< READ i 

/ 

ERROR-CLEAR RE AO BUFFER 

021407 

740300 


SZA 




021410 

601406 


JMP 

.-3 



0314 I 1 

760377 


LAW 

277 

/ 

PRINT? 

03! H 1 3 

134307 


JMS* 

l PR ! NT J 



o.3 mr 3 

1 34300 


JMS* 

ICRLF) 



03 1 h m 

301772 


LAC 

NUMTMP 

/ 

RESET ALPHA TO TOP OF BUFFER 

021415 

0 1 ’ <60 * 


OAC 

ALPHA 


GET MESSAGE AGAIN 

031416 

301776 


LAC 

MESSNO 

/ 

021417 

601343 


JMP 

OALP+3 



03I420 

OH 1536 

ANOSP 

OAC 

PRTAL 

/ 

SAVE CHAR 

02IH21 

300373 


LAC 

NOINP 

/ 

HAS THERE BEEN INPUT 

03 1 422 

741200 


SNA 




03 ! 423 

601431 


JMP 

.♦6 

/ 

YES SAVE AS NORMAl 

031434 

12437! 


JMS* 

t RE AO > 

/ 

NO IS: THE ONLY INPUT 

021435 

740200 


SZA 




U21426 

601431 


JMP 

.♦3 

/ 

NO-SAVE AS NORMAL 

031427 

161601 


OZM* 

ALPHA 



03!430 

601436 


JMP 

AOONE 



02143! 

301533 


LAC 

PRTAL 



021432 

601376 


JMP 

Al 



021433 

300273 

AS !5 

LAC 

NOINP 

/ 

INPUT FINISHEO 

021434 

741200 


SNA 




02 1 435 

60144 1 


JMP 

SMIN 

/ 

YES 

02 1436 

20075! 

AOONE 

LAC 

GYN 



021437 

04 1 60 ! 


OAC 

ALPHA 



031440 

631341 


JMP* 

GALP 



03 mm 

231773 

SMiN 

LAC* 

NUMTMP 

/ 

ANY SPECIAL OCL I M 1 TORS ? 

021443 

504363 


AND 

<7700001 



031443 

744300 


SZA CLL 




021444 

601453 


JMP 

SET 3 

/ 

YES 

021445 

300374 


L/C 

OCOG 

/ 

NO HAVE SINGLE VALUE 

03 l 446 

640706 


Al.S 

6 



031747 

344363 


TAD 

<010000) 

/ 

SET SINGLE VALUE FUNCTION 

021 450 

36 1773 


TAD* 

NUMTMP 



021 45 1 

061772 


OAC* 

NUMTMP 



031452 

60 1 4 3o 


JMP 

AOONE 



331453 

200274 

SET2 

LAC 

OCOG 

/ 

PUT NUMBER OF CHAR !N BUFFER 

031454 

640706 


ALS 

6 



031455 

361775 


TAO* 

CHR! 



031456 

1361775 


OAC* 

CHRI 



031457 

601436 


JMP 

AOONE 



021460 

200274 

ANOSP 

LAC 

OCOG 

/ 

AND SPECIFICATION ON INPUT 

03146! 

640706 


ALS 

6 



031462 

3*4364 


TAO 

<030000* 

/ 

SET AND FUNCTION 

031463 

361772 

A2 

TAO* 

NUMTMP 



03146m 

061773 


OAC* 

NUMTMP 



03IHS5 

77777! 


LAW 

-7 

/ 

GET SECONO SET OF NUM8ERS 
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021466 
021467 
02 t 470 
oat'*7i 

021472 

021473 

021474 

021475 

021476 

021477 

021500 

02150*. 

021502 

C2I503 

021504 

021505 

02 1506 

021507 

021510 

02151 t 

021512 

021513 

02151** 

021515 

021516 

021517 

02I52C 

021521 

021522 

021523 

02152** 

021525 

021526 
021527 
021530 
021531 
021532 
021533 
02153** 
021535 
071536 
Od I 537 
0215**0 
02 I 54 I 
021542 
0215**3 

021544 
021545 
02l5**6 
02 15**7 
021550 
021551 
021552 
021553 
02155** 
021555 
021556 


0*«i773 

201775 

041601 

140274 

601365 

20027*# 

6 **0706 
344365 
60 (**33 
50«*362 
544363 
601510 
5**** 36** 
601513 
544365 
601521 
161601 
601361 
201772 
‘.01526 
601363 
201772 
101526 
7502*«6 
124307 
201775 
60151 1 
201778 
101526 
780241 
124307 
601516 

000000 
OH 1853 
221653 
50H366 
7HS020 
742020 
7H202C 
124304 
041603 
760240 
124307 
221653 
504367 
344370 
740100 
60I56C 
221653 
504367 
344317 
124307 
44 1 653 
441603 
601541 
760240 
124307 
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OAC 

ETC 



LAC 

CHR 1 



OAC 

ALPHA 



OZH 

OrOG 



JMP 

ARE AD 


ORSP 

LAC 

OCOG 

/ OR SPECIFICATION ON INPUT 


ALS 

6 



TAD 

(0300001 

/ SET OR FUNCTION 


JMP 

A2 


SOPAv 

ANO 

1770000 l 

, PRINT CURRENT VALUES OF PARAMETERS 


SAO 

101 0000 > 



JMP 

SPRT 

/ SINGLE VALUED 


SAO 

10200001 



JMP 

APRT 

/ AND VALUE 


SAO 

10300001 



JMP 

OPRT 

/ OR VALUE 


OZM* 

ALPHA 

/ NONE 01 ABOVE SET TO UNSPEC 


JMP 

A3 

/ ANO CONTINUE 

SPR? 

LAC 

NUMTMP 

/ PRINT VALUES IN TOP OF LIST 


JMS 

PRTAL 



JMP 

AREAO-2 

/ PROCEED WITH INPUT 

APR? 

LAC 

NUMTMP 

/ PRINT VALUES IN TOP HALF 


JMS 

PRTAL 



LAW 

246 

/ PRINT 1 


JMS* 

IPRINT i 



LAC 

CHR 1 

/ PRINT VALUES IN BOTTOM HALF 


JMP 

.-7 


OPRT 

LAC 

NUMTMP 

/ FOR OR PRINT TOP HALF 


JMS 

PRTAL 



LAW 

241 

/ PRINT EXCL 


JMS* 

t PRINT l 



JMP 

OPRT -3 

/ ANO °ROCEEO AS OR 

/PRINT 

VALUES IN 

ALPHA L 1ST 


PRTAL 

0 




OAC 

ON 



la: • 

ON 



ANC 

10077001 

/ COMPUTE NUMBER OF CHARACTERS TO PRINT 


CLL RTR 



RTR 




RTR 




JMS* 

l C I A > 



OAC 

UNI TCH 



L/W 

240 



Jill* 

tPR INT > 


PR! 

LAC* 

GN 



AND 

t 77 > 



TAO 

I -40 » 

/ NUMERIC? 


SNA 




JMP 

opr i r 

/ YES 


LAC* 

ON 

/ no-print alpha 


AND 

1 77 i 



TAO 

t 300 ) 


PR2 

JMS* 

t PR INT) 



isz 

ON 



ISZ 

UNI TCH 

/ DONE? 


JMP 

PRI 

/ NO 


LAN 

240 



JMS* 

i PR INT) 
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021557 

621526 


021560 

221653 


02 I 56 I 

504367 


021552 

344316 


021563 

601551 


021564 

024214 


021565 

024223 


021566 

024232 


021567 

02 5 5 ?0 


021570 

000000 


021571 

G00000 


021572 

ooooco 


021573 

000000 


021574 

000000 


021575 

000000 


021576 

000000 


021577 

000000 


021600 

000000 


021601 

000000 


021602 

0G0000 


021603 

000000 

1 

021604 

204371 


021605 

064352 


021606 

20 iJ4| 


021607 

540155 


021610 

204303 


0216 M 

040155 


021612 

744000 


021613 

640717 

i{ m 

021614 

041650 

8 

021615 

341652 

i— * 

R OO 

i 00 

$ 

021616 

707545 

02 16 I 7 

707561 

021620 

74 1000 

ti 

021621 

601630 

1 

021622 

707601 

I? 

U21623 

601617 


021624 

777400 

i 

021625 

341651 

\ 

021626 

741100 

! 

021627 

601646 

i 

021630 

101642 

r 

021631 

760025 


021632 

104210 


021633 

200155 


021634 

10176: 


021635 

760034 


021636 

104210 


*21637 

124271 


021640 

201650 


021641 

601615 


02 1 64 E: 

000000 

i 

021643 

201650 


021644 

707545 


021645 

62! 642 


021646 

101642 


021647 

521603 


021650 

ooooon 
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JMP* 

PR F AL 

OPR 1 T 

LAC* 

ON 


AND 

I77i 


TAD 

1 2G0 > 


JMP 

PR2 

SC HP A 

SCHPl 

SCHP2 

SCHP3 


NDTSA 

*1 



0 

0 

0 

SCH8 0 

NUMS 0 

SCNT 0 

NOT BE 0 

NUMERIC 0 

SPNU/'ER 0 

ALPHA 0 

YN 0 

UN ITCH 0 

LAC I8N) / PUT BLOCK COUNTER AOORESS IN CA 

DAC • » 3 1 ) 

LAC (3i 

SAD OUNIT / SWITCH UNIT TO 3 OR H 

LAC mi 

DAC DUNI T 

CLL 

ALS 1 1 

DAC SUN I T 

OKGO TAD EROSH 

DTLA 

OTEE / ERROR ELAG? 

SKP 

JMP CKERR / YES 

OTDT / no 

JMP •- ** /NO El AG WAIT 

LAW -HOP 

TAD BN 

SPA 

JMP OKSTP / NO-EVERY THING OK STOP 

CKERR JMS OSTOP 

LAU MESS07 

JMS MSPT 

LAC DUN I 7 

JMS DECSING 

LAW MESS06 

JMS MSPT 

JMS* (READ) 

LAC SUN IT 

JMP OKGO 

OSTOP 0 

LAC SUN IT 

OTLA 

JMP* OSTOP 

OKSTP JMS OSTOP 

JMP* UN ITCH 

SUNIT 0 


A* 


E-189 
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021651 

OOOOCO 

021652 

021000 

021653 

000000 

021654 

041776 

021655 

104210 

021656 

777777 

021657 

341577 

021660 

064275 

02 1 66 1 

22 1 577 

021662 

740200 

021663 

SC! 1 42 

62 1564 

760272 

02 1 665 

124307 

021666 

760273 

02166? 

124307 

021670 

101330 

021671 

741200 

021672 

601722 

021673 

22:310 

021674 

5443! 1 

021675 

601735 

021676 

224310 

021677 

544312 

021700 

601712 

021701 

544313 

02 1702 

601712 

021703 

124271 

021704 

740200 

021 /Q5 

601703 

■021706 

760277 

021707 

124307 

021710 

201776 

021711 

601654 

02 1 7 , 2 

224310 

0217 1 3 

060CI2 

021714 

200274 

021715 

060012 

021716 

101334 

021717 

741200 

021720 

601725 

021721 

601676 

021722 

200273 

021723 

741100 

021724 

601731 

021725 

204315 

021726 

060012 

021727 

200274 

'21730 

060012 

J21731 

204372 

021732 

341577 

021 733 

041577 

021734 

621653 

021735 

124371 

021736 

740200 

021737 

601735 

02174 0 

.61577 

021741 

601731 
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BN 0 

FRDSH 021000 

/NUMERIC PRINT ANO 
GN 0 

DAC 
JMS 
LAW 
TAO 
OAC • 

LAC* 

SZA 

JMP 

LAM 



JMS* 

GN5 

LAM 

JMS* 

JMS 

SNA 

JMP 

LAC* 

SAO 

JMP 

GN4 

LAC* 

SAD 

JMP 

SAO 

JMP 

GNQM 

JUS* 

SZA 

JMP 

LAW 

JMS* 

LAC 

JMP 

GINC 

LAC* 

DAC* 

LAC 

OAC* 

JMS 

SNA 

JMP 

JMP 

GN2 

LAC 

SPA 

JMP 

GN3 

LAC 

OAC* 

LAC 
DAC • 

GN7 

LAC 

TAD 

DAC 

JMP* 

GNOS 

JMS* 

SZA 

JMP 

OZM* 

JMP 


INPUT 

MESSNO 

MSPT 

-I 

NUMERIC 
I 12) 

NUMERIC 

GN I 

272 

IPRINT) 

273 

(PR I NT I 
RVALS 

GN2 

tTc; 

(72) 
GNOS 
(TCI 
( 37) 
GINC 
mi ) 
OINC 
(READ) 

-2 

277 

(PRINT > 
MESSNO 
GN* I 
( TC ) 

12 

OCDG 

12 

RVALC 

GN3 
GN4 
NO INP 


GN7 
( I5> 

12 

OCOG 

12 

(50) 

NUMERIC 

numeric 

GN 



/ PR : NT parameter name 

/ SET UP INPUT AUTO INDEX 

/ ANY SPEC IE ICAT .ON 

/ YES-PRINT HHATS THERE 

/ : 

/ ; BEGIN INPUT 

/ READ FIRST DECIMAL NUMBER 

/ BUFFER EMPTY7-YES 

/ NO SPECIFICATION 

/ TERMINATED BY: 

/ 8K ARROW 

/ EX. PT. 

/ PRINT t 

/ AND START OVER 
/ STORE TERMINATING CHARACTER 
/ THEN ITS VALUE 
1 CONTINUE TO READ 

/ BUFFER EMPTY? 

/ NO 

/ CLOSE OUT BUFFER WITH CR 


/ ON NO SPEC IF ICAT ION 
/ EMPTY BUFFER 


. -2 

NUMERIC 

GN7 


/ AND PLACE A ZERO AT IS TOP 


E-190 
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I 021742 220012 

1 03 1 7 1 * 3 544315 

02 1 601753 

| 02 1 745 042013 

j 021746 220012 

\ 021747 101761 

J 021750 202013 

] 021751 101320 

1 021752 601742 

021753 220012 

021754 I 01 761 
021755 777777 

021756 341577 

021757 064275 

02 i 760 601665 

021761 000000 

021762 124373 

021763 000000 

021764 745200 

021765 62176! 

021766 544374 

021767 621763 

0217/0 124307 

021771 621763 

021772 000000 

021773 000000 

021774 000000 

021775 OOOOOO 

021776 OOOOOO 


OOOOOO 
042105 
77777* 
042106 
102013 
030444 
03044 1 
030442 
030443 
030457 
030434 
030440 
OOOOOO 
22201 3 
042104 
202105 


021777 
0220-JO 
022001 
022002 
022003 
022004 
J220Q5 
022006 
022007 
0220 10 
0220 1 1 
0220 12 
0220 I 3 
0220 1 4 
022015 
022016 
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DECS 1 NG 


LAC • 

12 

SAD 

1 1 5 > 

JMP 

GN6 

OAC 

CK 1 T 

LAC* 

12 

JMS 

OECSING 

LAC 

CK I T 

JMS 

TCPRT 

JMP 

CN1 

LAC* 

12 

JMS 

OECSING 

LAW 

- 1 

TAD 

NUMERIC 

OAC* 

< 1 2 J 

JMP 

GNS 

0 


JMS* 

COECCONJ 

0 


SNA CLL 


JMP* 

OECSING 

SAD 

<240 

JMP* 

. - 4 

JMS* 

IPRINT ) 

JMP* 

. -6 


TERMINATING VA* UE ? 

YES PRINT NUMERIC AND GO GET IN-^U 1 


HAS TERMINATING VALUE A BK ARROW 


PRINT DECIMAL NUMBER 


NUMTMP 

ETC 

1NCNT 

CHRI 

MESSNO 

/NUMERIC 

/ENTER W 

/SEARCH 1 

/RETURNS 

/RETURNS 

/SEARCH 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

NUMSH 


SEARCH ROUTINE 
I TH ADDRESS Or NUMERIC 
PARAMETER BUFFER IN AC 
♦I IF ID OOESNT MEET CRITERIA 


♦I IF ID OOESNT 
♦2 IF 10 MEETS CRITERIA 
ORDER . 

GAIN 

STAR 

STOP 

HEIGHT 

DUMP INTERVAL 
LIVE TIME 
OE« TAPE NUMBER 

0 

DAC NUMBA 

LAH -7 

OAC NMCTR 

JMS CK I T 

GA I N*400 
ST AT I M + 4 00 
STOT IM*400 
WE IGHT+400 
OOP I » 400 
L!VEPS*4C*0 
DECNM«-4 00 
0 

LAC* CK 1 T 

DAC CKADR 

LAC NUMBA 




;-i9i 
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022017 o**2 103 

022020 3HH375 

022021 0H2I02 

022022 222103 

022023 7H020C 

02202H 602036 

022025 HH2I06 

022026 602031 

022027 HH 1 777 

022030 621777 

022031 20H372 

022032 3H2105 

022033 0H2I05 

02203H **‘♦20 1 3 

022035 6020 1 H 

022036 222103 

022037 5HH3I5 

Q220HG 60206 1 

0220HI 5HH313 

0220H2 602065 

0220H3 222102 

0220HH 0H027H 

0220H5 1 02072 

0220H6 20027H 

0220** 7 I2H30H 

022050 362 1 OH 

022051 7HII00 

022052 602036 

022053 222102 

02205H I 2H30H 

022055 3621 OH 

022056 7H0300 

022057 602036 

022060 602025 

02206 1 222 1 OH 

022062 562 1 02 

022063 602025 

02206H 621777 

022065 2221 OH 

022066 562102 

022067 602025 

022070 102072 

022071 602036 

022072 000000 

022073 20H376 

02207H 3H21P3 

022076 0H2103 

022076 20H376 

02207? 3H2I02 

022100 0H2I02 

022 1 0 I 622072 

022102 000000 

022103 OOOCOO 

0221 OH 000000 

022105 000000 

022106 000000 
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OAC 

TAO 

OAC 

LAC* 

SZA 

JMP 

CKRT ISZ 

JMP 
ISZ 
JMP* 

LAC 

TAO 

OAC 

is: 

JMP 

e LAC* 

SAD 

JMP 

SAO 

JMP 

LAC* 

OAC 

JMS 

LAC 

JMS* 

TAO* 

SPA 

JMP 

LAC* 

JMS* 

TAO* 

SMA SZA 

JMP 

JMP 

NENO LAC • 

SAO* 

JMP 

JMP* 

ORN LAC* 

SAD* 
JMP 
„ MS 
oMP 

BY TWO 0 

LAC 

TAD 

OAC 

LAC 

TAO 

OAC 

JMP* 


TCN 0 

TCV 0 

CKAOR 0 

NUMBA 0 


TCV 
( 1 ) 

TCN 

TC V 

. *12 

NMCTR / DONE ALL 

. *3 

NUMSH 

NUMSH 

(50> 

NUMBA 
NUMBA 
CKJT 
CK I T* J 
TCV 
( 1 5 » 

NENO 
I H I ) 

ORN 

TCN 

OCOG 

BY TWO 

OCOO 

(CIA) 

CKAOR 

B 

TCN 

(CIA) 

CKAOR 

B 

CKRT 

CKAOR 

TCN 

CKRT 

NUMSH 

CKAOR 

TCN 

CKRT 

BY TWO 

8 

(21 

TCV 

TCV 

( 2 ) 

TCN 
TCN 
BY TWO 


NMCTR 0 

/SEARCH 10 FOR YES-NO PARAMETERS 
/ENTER WITH ADDRESS OF YN BUFFER IN AC 
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022107 000000 
022110 042105 
02211! 777773 
022112 0*42106 
022 1J 3 I 02121 
0221 14 030*447 
022115 030451 
022116 030445 
022117 030453 
022120 030455 
022121 000000 
022 1 22 222 l 2 1 

022123 042104 
022 1 24 222 1 05 
022125 741200 
022 12C 602132 
022127 562104 
022130 741000 
022131 622107 
022132 442121 
022133 442105 
022134 442106 
022135 602122 
022136 442107 
022137 622107 


022140 000000 
022141 ' 042105 
022142 777774 
022143 042106 
022144 102151 
022145 030460 
022 14S 030501 
022147 030522 
022150 030543 
022151 000000 
022152 222105 
022153 740200 
022154 602165 
022155 204377 
022156 342105 
022157 042105 



i-193 
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022 I 60 442 151 
028 I 6 1 442106 
022162 eo 2152 

082163 442140 
022164 622140 
022165 504362 
022166 544363 
022167 608204 
022170 544364 
022171 602207 
022172 I 022 I 2 
022173 741000 
02217m 602155 
022175 204360 
022176 342105 
022177 042105 
022200 l 022 1 2 
022201 622140 
022202 204360 
022203 602156 
022204 102212 
022205 622140 
0222C6 602155 
022207 102212 
022210 622140 
022211 602375 


022212 000000 

0222 t 3 204375 

022214 042324 

022215 042325 

022216 202105 

022217 042326 

022220 222105 

022221 640506 

022222 504367 

022223 042327 

022224 102270 

022275 741200 

022226 602265 

022227 042270 

022230 222105 

022231 504367 

122232 542270 

022233 602241 

022234 202324 

022235 544400 

022236 602265 

022237 442324 

022240 602224 

022241 202327 

022242 542325 

022243 602264 

022244 202324 
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IS z 

ACKi T 





is: 

NMCTR 

/ DONE ALL? 




JMP 

AC* i T ♦ | 





IS2 

ASH 

/ YES RE TURN**? 




JMP 4 

ASH 



sss 


ANO 

1770000) 





SAD 

10I0000> 





JMP 

SSR 





SAO 

l 020000 i 





JMP 

ASR 





JMS 

ASRC 

/ OR SEARCH 




SKP 


/ riRST SET NO GOOD TR V 

NEXT 



JMP 

NXNBA 



SI 


LAC 

16> 





TAD 

NUM8A 





DAC 

NUMBA 





JMS 

ASRC 





JMP* 

ASH 

/ NO GOOD 




LAC 

( 6 ) 





JMP 

NXNBA: ) 



SSR 


JMS 

ASRC 

/ SINGLE SEARCH 




JMP® 

ASH 





JMP 

NXNBA 



ASR 


JMS 

ASRC 

/ AND SEARCH 




JMP® 

ASH 





JMP 

SI 



/ROUT INE 

TO SEARCH ID BUFFER 



/FOR C 

ALPHA CHARACTERS 



/RETURNS 

♦1 IF 

NO GOOD 



/RETURNS 

*2 IF 

GOOD 



/NUM' A 

POINTS 

70 PARAMETER BUFFER 


ASRC 


0 






LAC 

t 1 > 





DAC 

? 

/ INITIALIZE COUNTERS 




DAC 

J 





LAC 

NUMB A 





OAC 

AOTMP 

/ SAVE TOP OF 6 MORO BUFFER 



LAC* 

NUMBA 





LRS 

8 





AND 

l 77 ) 





OAC 

JE NO 



I NEXT 


JM' 

GET 1 

/ GET CHARACTER POINTED 

TO BY 



SNA 


/ END OF BUFFER? 




JNP 

GOOD* 1 

/ END OF BUFFER NO GOOD 




OAC 

GET! 

/ SAVE 




LAC* 

NUMBA 

/ ISOLATE 6 BIT CODE 




ANO 

( 77 > 





SAD 

GET I 





JMP 

NLOOP 

/ CHECKS 




LAC 

1 





SAD 

163) 

/ OONE ALL IN ID 




JMP 

GOOD* 1 

/ YES-NO GOOO 




isz 

l 





JMP 

1 NEXT 



NLOOP 


LAC 

JENO 

/ FINISHED WITT, PARAMETER 



SAD 

J 





JMP 

GOOD 

/ YES 10 CM 




LAC 

i 
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022245 

544400 


SAD 

(63) 


022245 

602265 


JHP 

GOOD- I 


022247 

442324 


ISZ 

S 


082250 

442325 


IS2 

J 


022251 

442105 


iSZ 

NUMBA 


022252 

102270 


JUS 

GET 1 


022253 

74 \ 200 


SNA 


/ END OE BUFFER? 

022254 

602257 


JhP 

. -3 


022255 

562 I 05 


SAD* 

NUM0A 


022256 

60224! 


JHP 

NLOOP 


022257 

204375 


LAC 

t 1 > 


022260 

042325 


DAC 

J 


02226! 

202326 


LAC 

AQ7MP 


022262 

042105 


DAC 

NUMBA 


022263 

602224 


JHP 

I NEXT 


022264 

442212 

GOOO 

ISZ 

ASRC 


022265 

202326 


LAC 

aOTMP 


022266 

042105 


DAC 

NUMBA 


022267 

622212 


JHP* 

ASRC 




/ROUTINE 

TO UNPACK 6 BITS AS 




/POINTED 

TO BY 

1 


022270 

000000 

GET! 

0 



02227! 

744000 


CLL 


/ TAKE 1 FORM 1*5 

022272 

204376 


LAC 

1 2 ) 

/ THEN OIVIOE BY 3 

022273 

342324 


TAO 

1 

/ QUOTIENT POINTS TO WORO 

022274 

653323 


101 v 


/ IN ID BUFFER 

022875 

000003 


3 



022276 

04233! 


DAC 

R 

/ IN WCRO: 

028277 

64! 002 


LACO 


/ R-0 LEFT MOST POSITION 

022300 

36215! 


TAO* 

ACKIT 

/ R-l MIDDLE POSITION 

022301 

344305 


TAD 

!-l > 

/ R-2 RIGHT MOST POSITION 

022302 

042330 


DAC 

WORD 


022303 

20233! 


LAC 

R 


0223C4 

741200 


SNA 



022305 

602320 


JHP 

FTSW 


022306 

544375 


SAD 

< 1 > 


022307 

602322 


JHP 

SXSHF 


022310 

7S0000 


CLA 



02231 l 

34440! 


tad 

(640500) 


022312 

042315 


OAC 

. ♦ 3 


0223 1 3 

222330 


LAC* 

WORD 


022314 

744000 


CLL 



022315 

740040 


XX 



0223 i 6 

504367 


ANO 

177) 


022317 

622270 


JHP* 

GET 1 


022320 

204377 

FISH 

LAC 

(14) 


02232! 

60231 1 


JHP 

.-10 


052322 

204360 

SXSHF 

LAC 

t e > 


o22323 

6023! ! 


JHP 

.-12 


022324 

000000 

1 

0 



022325 

000000 

J 

0 



022323 

000000 

xotmp 

0 



022327 

000000 

JEND 

0 



022330 

000000 

WORD 

0 



02233! 

000000 

R 

0 





/EXPERIMENT 10 

SEARCH ROUTINE 




/EXTER WITH ADDRESS OF ID BUFFER IN AC 



/RETURN 

♦ 1 IF 

10 DOESN’T MEET 

CRITERIA 



E-195 
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022332 000000 

022333 042105 

022334 224345 

022335 064402 

022336 224 344 

022337 064403 

022340 204404 

02234 1 064405 

022342 164406 

0223*»3 124407 

022344 202452 

022345 042453 

022346 1 02454 

022347 202105 

022350 042 1 03 

022351 344375 

022352 042102 

022353 2L2I03 

022354 740200 

022355 502350 

022356 442332 

022357 622332 

022360 222103 

022361 544315 

022362 602411 

022383 544313 

| 022%64 802414 

1 022365 102420 

022366 1 02430 

022367 124274 

022370 124410 

022371 302674 

022372 124276 

022373 22*’ 4 06 

022374 740200 

022375 602360 

022376 102420 

022377 124274 

022400 124410 

022401 302674 

022402 124276 

022403 124411 

022404 602356 

022405 224406 

022406 741200 

022407 602360 

.22410 602356 

0224 1 I 102440 

022412 602356 

022413 622332 

022414 102440 

022415 602356 

022416 102430 

022417 602360 

022420 000000 

022421 777775 

022422 342102 
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/RETUMN 

♦2 IF 10 

MEETS CRITERIA 

i OSH 

0 

OAC 

NUhBA 

/ AOORF.SS OF PARAMETER BUFFER 


LAC* 

<EXPIO**00) 



DAC • 

t AC*3» 



LAC* 

i EXP 1 OF*MOO > 



OAC* 

1 AC*2> 



LAC 

IH3) 



OAC* 

1 AC ♦ 1 ) 



02M* 

(AO 



OHS* 

(NOR) 



LAC 

ioflta 



OAC 

EXPER 



JUS 

CMDYX 

/ STORES CURRENT VALUE IN FTMP 


LAC 

NON6A 



OAC 

\cv 

/ SET UP POINTERS 


TAO 

i \ ) 



OAC 

TCN 



LAC* 

TCV 

/ UNSPEC IF IEO? 


SZA 




JMP 

.♦3 

f NO 

tORT 

ISZ 

IOSH 

/ RETURN 10 OK 


JMP* 

1 OSH 


66 

LAC* 

TCV 

/ last value »n buffer? 


S*D 

US) 



JHP 

ICNO 

/ YES 


SAD 

( '■* V ) 



JMP 

IORN 

/ OR terminator? 


JUS 

FGET 

/ NO MUST BE INCLUSIVE 


JMS 

BYFOUR 

/ INCREMENT POINTERS BY 4 


JUS * 

(TINT) 

/ CURRENT -PARAMETER >- 0 


JMS* 

(FC 1 A) 



F ADO 

FTflP 



JMS* 

IFEXT > 



LAC* 

t AC ) 



SZA 




JMP 

66 

/ NO LOOK NEXT 


JMS 

FCET 



JMS* 

IF INT > 



JMS* 

(FCIAJ 

/ CURRENT -PARAME TER <-0 


faoi> 

FTMP 



JMS * 

IFEXT) 



JMS* 

( ACZ > 



JMP 

IORT 



LAC • 

(AC ) 



SNA 




JMP 

66 

/ NO 


JMP 

IORT 

/ YES 10 OK 

(END 

JMS 

TEQL 

/ CURRENT -PARAME TER? 


JMP 

IORT 

/ YES 


OMP* 

IOSH 

/ NO 

IORN 

JMS 

fEQL 



JMP 

IORT 



JUS 0YFOUR 

jmP 66 

POET 0 / LOAD FLOATING AC AS P.INTEO 

LAM -3 / TO BY TC»: 

TAO 


TCN 


E-196 
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028423 

022424 

022425 

022426 

022427 

022430 

022431 

022432 

022433 

022434 

022435 

022436 

022437 

022440 

022441 

022442 

022443 

022444 

022445 

022446 

022447 

022450 

022451 

022452 

022453 


022454 
022455 
022456 
022457 
022460 
02246! 
022462 
022463 
022464 
022465 
022466 
022467 
022470 
02247! 
022472 
022473 
022474 
022475 
82476 
022477 
022500 
0225P \ 
022508 
022503 
022504 
022505 
022506 
022507 


0421 02 
124274 
222102 
124276 
622420 
000000 
204303 
342103 
042103 
204303 
342102 
042102 
622430 
000000 
1 02420 
124274 
124410 
302674 
124276 
12441 1 
622440 
442440 
622440 
022674 
000000 


000000 
777775 
342453 
042453 
124274 
002674 
702677 
124276 
I 02560 
04267 I 
1 244 12 
124274 
502677 
1244 10 
302674 
002674 
702702 
124276 
102560 
042672 
1244 12 
124274 
508702 

1244 10 
302674 
002674 
702705 
1 24276 
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DAC TCN 

JMS * (TINT) 

f L AC • TCN 

JMS* (TEXT ) 

JMP* TGET 

BTFOUR o / INCREMENT POINTERS BY 4 

LAC ! 4 ) 

TAO TCV 

OAC TCV 

LAC I4> 

TAD TCN 

DAC TCN 

JMP* 8YF0UR 

FEOL 0 / RETURN* 1 IF EQUAL 

JMS FGET ✓ RETURN >2 IF NOT EQUAL 

JMS* tFINT) 

JMS* IFCJA) 

FAOD FTMP / ADD CURRENT VALUE 

JMS* 1FEXT ) 

JMS* (ACZ> 

JMP* FEQL 

ISZ FEQL 

JMP* FEOL 

IDFLTA FTMP 

EXPER 0 

/SUBROUTINE TO CHANGE 

/EXPERIMENT ID FROM MONTH. DAY. YEAR. EX 
/TO YEAR. MONTH. DAY , EX 
/STORES CONVERTED NUMBER IN ADORESS 
/POINTEO TO BY EXPER 
CMOYX 0 

LAW -3 / MOVE POINTER BACK 3 

TAO EXPER / SO WE CAN 00 INDIRECT 

DAC EXPER 

JMS • (FI NT) 

FOAC FTMP 

FOIV FMIL 

JMS* ( FEX T ) 

JMS FSING 

DAC MONTH 

JMS* ( FLOAT 1 

JMS ( F I NT ) 

FMU _ FMIL 

JMS* rFCIA) 

FADD FTMP 

*DAC FTMP 

FDIV FTH 

JMS* ( FEXT > 

JMS FSING 

OAC DAY 

JMS* l FLOAT) 

JMS* (FI NT) 

FMUL FTH 

JMS* ( FC I A ) 

FAOD FTMP 

FOAC FTMP 

FDIV FHR 

JMS* (FEXT) 



E-197 
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028510 I 08560 

088511 048670 

088518 184418 

028513 184874 

02251 4 508705 

088515 184410 

022516 30267** 

082517 184276 

082520 102560 

028521 048673 

082522 202670 

088583 184418 

088524 124274 

028585 502677 

028586 002674 

088587 1*4876 

088530 20267 1 

088531 124412 

028532 184274 

088533 502702 

088534 302674 

082535 008674 

088536 184876 

082537 202672 

028540 124418 

028541 184874 

08854? 508705 

082543 302674 

088544 002674 

022545 184276 

088546 208673 

088547 1244 12 

022550 124874 

08255 1 308674 

082558 022453 

088553 184276 

088554 20434 1 

088555 348453 

028556 048453 

082557 682454 

022560 000000 

082561 184870 

082568 2844 1 21 

028563 688560 


088564 000000 
088565 777775 
022566 348453 
088567 048453 
088570 184874 
02857 1 888453 
088578 008674 
028573 703677 
088574 i 24276 
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jMS TSING 

DAC YEAR 

JMS • (FLOAT) 

JUS* (TINT) 

FMUL FHR 

JUS* (FCIA) 

FACD FTMP 

JMS* (TEXT) 

JMS FSING 

DAC EX 

LAC YEAR 

JMS* (FLOAT) 

JMS* (FINT) 

FMUL EMIL 

FDAC FTMP 

JMS* (FEXT ) 

LAC MONTH 

JMS* (FLOAT) 

JMS* ( F I NT > 

FMUL FTH 

FADO ETMP 

FOAC FTMP 

JMS* (FEXT) 

LAC OAY 

JMS* (FLOAT) 

JMS* (FINT) 

FMUL FHR 

FAOO FTMP 

FOAC FT MR 

JMS* '.FEXT ) 

LAC EX 

JMS* (FLOAT) 

JMS* (FINT) 

FAOO FTMP 

FDAC* EXPER 

JMS* (FEXT) 

LAC • 3< 

TAO EXPER 

OAC EXPER 

JMP* CMOYX 

FSING 0 / F I X F t AC ) P tCK 

jf.S* (FF IX > /UP INTEGER PART 

LAC* !8C*8> 

JMP* FSING 

/SUBROUTINE TO CHANGE 

/EXPERIMENT 10 FROM YEAR .MONTH .DAY . EX 

/TO MONTH. DAY. YEAR. EX 

/ENTER WITH ADDRESS OF FLOATING * EXPER 

/EXIT WITH NEW FORMAT IN FAC 

CYMOE 0 


LAW 

-3 

/ 

MOVE 

POINTER BACK 3 

TAD 

EXPER 

/ 

SO WE 

CAN 00 INOiRECT 

OAC 

EXPER 




JMS • 

IFINTi 




Ft AC* 

EXPER 

/ 

PICK 

UP CURRENT FLOATING 

FDAC 

FTMP 




FOtV 

FMIL 




JMS* 

(FEXT) 





ID 



86T-H 
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022575 

10256C 

JMS 

FSiNG 



022576 

0*42670 

OAC 

YEAR 

/ 

YEAR" 10/ 1 0* *6 

022577 

12*4*412 

JMS* 

(FLOAT i 



022600 

12*427*4 

JMS* 

(FINT) 



02260 1 

502677 

TMUL 

FMlL 



022602 

12*4*410 

JMS* 

IFCIAJ 



022603 

30267*4 

FAOO 

FTMP 



02260*4 

00267*4 

toac 

F IMP 

/ 

10" 10- YEAR* 10* *6 

022605 

702702 

FOIV 

FTH 



022606 

1 2*276 

JMS* 

(FEXT > 



022607 

102560 

JMS 

FSING 



022810 

0*4267 J 

OAC 

MONTH 

/ 

MONTH" 10/ 10* • *4 

0226! 1 

12*4*412 

JMS* 

« FLOAT 1 



022612 

12*427*4 

JMS* 

(FINT* 



022613 

502702 

FHUL 

FTM 



0226 1 H 

12*4*410 

JMS* 

IFCIA) 



022615 

30267*4 

FAOO 

FTMP 



022616 

00267*4 

toac 

FTMP 

/ 

lO-IO-MONTH'lO***# 

022617 

702705 

roiv 

FHA 



022620 

12*4276 

JMS* 

IFEXT) 



022821 

102560 

JMS 

FSINO 



022622 

0*42672 

OAC 

OAY 

/ 

OAY" 10/ 1 / • *2 

022623 

12*4*412 

JMS* 

(FLOAT) 



02262H 

12*427*4 

JMS* 

IFINTI 



022625 

502705 

FMUL 

thr 



022626 

• 2*4*410 

JMS* 

CFCIAI 



022627 

30267*4 

FAOO 

FTMP 

/ 

I0"I0-0AY*1C**2 

022630 

I2*t276 

JMS* 

:fext? 



02263 1 

102560 

JMS 

FSING 



022632 

0*42873 

OAC 

CX 

/ 

EX-IO 

022633 

202671 

LAC 

MONTH 

✓ 

COMPUT 10 OF FORM 

02263** 

12*1*412 

JMS* 

(FLOAT l 

/ 

MONTH. OAY. YEAR. EXPERIMENT 

022635 

12*427*4 

JMS* 

(FINT) 



022636 

502677 

FMUL 

fmil 



Q22637 

00267*4 

r oac 

FTMP 

i 

IO-MONTH*IO**6 

0226*40 

I2H276 

JMS* 

IFCXTI 



0226H 1 

202672 

LAC 

OAY 



0226*42 

12*4*412 

JMS* 

(FLOAT) 



0226*43 

12*427*4 

JMS* 

IFINTi 



0226*4*4 

502702 

FMUL 

FTH 



0226*45 

30267*1 

FAOO 

FTMP 



0226*46 

00267H 

FO/C 

FTMP 

/ 

10"IO*DAY*10***4 

0226*47 

12*4276 

JMS* 

(FEXT i 



022650 

202670 

LAC 

YEAR 



022651 

12*4*412 

JMS* 

IFLOAT) 



022652 

12*427*4 

JMS* 

(FINT) 



022653 

502705 

FMUL 

FHR 



02265*4 

30267*4 

FAOO 

FTMP 



322655 

00267** 

FDAC 

FTMP 

/ 

10" 10 'YEAR* 1 0* **4 

022656 

12*4276 

JMS* 

(FEXT) 



022657 

202673 

LAC 

EX 



022660 

12*4*412 

JMS* 

(FLOAT) 



02266 1 

12*927*4 

JMS* 

(FINT) 



022562 

30267*4 

FAOO 

FTMP 


IO-IO* CX 

022663 

12*4276 

JMS* 

(FEXT) 



02265*4 

20*43*4 1 

LAC 

(3) 



022665 

3*42*453 

TAD 

CXPER 



022666 

0*42*453 

OaC 

EXPER 




E-199 
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022667 62256* 
022670 000000 
02267 1 000000 
022672 000000 
022673 000000 
Q2267* 000000 
022675 0000C0 
022676 000000 
022677 000000 
022700 36*110 
022701 00002* 
022702 000000 
022703 23*200 
02270m 0000(6 
022705 000000 
022706 310000 
022707 000007 


0227(0 000000 

022711 0*2105 

0227(2 777776 

022713 0*2106 

022711 102717 

022715 03056* 

022716 030605 

0227 l 7 OOOnOO 

022720 202 « 05 

022721 0*2103 

022722 222103 

022723 7*0200 

02272* 6027*0 

022725 **2106 

022726 602733 

022727 **2710 

022730 200*23 

02273 1 0*02*0 

022732 622710 

022733 20*357 

02273* 3*2105 

022735 0*2105 

022736 **2717 

022737 602720 

0227*0 222103 

0227*1 5**315 

0227*2 602761 

0227*3 5**313 

3227** 602765 

0227*5 1 02777 

0227*6 102772 

0227*7 22**06 

022750 7*0200 

022751 6027*0 

022752 1 02777 

022753 12**11 

02275* 602725 
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JMP* CYHOE 


YEAR 

0 

month 

0 

OAT 

0 

IX 

0 

rtHR 

0 


0 


0 

FHIl 

u 


36*1 10 
2* 

rtH 

0 

23*200 

16 

r«R 

0 

310000 


? 

/SPACE INC SEARCH ROUl INC 

/ENTER WITH A00RE5S OF SPACE BUFFER l|l AC 
/RETURN ♦! IF 10 OOESN'T MEET CRITERIA 
/RETURN *2 IF 10 MEETS CRITERIA 
SSH 0 



OAC 

numba 


LAN 

-2 


OAC 

NMCTR 


JHS 

TOPS* i 00 
B0TS**00 

SRCH 

SRCH 

0 



LAC 

NUM8A 


OAC 

TCV 


LAC* 

SZA 

TCV 


JMP 

SB 

SRNXT 

ISZ 

NMCTR 


JMP 

.♦5 


ISZ 

SSH 

SSEXT 

LAC 

EQM 


OAC 

OlNl 


JMP* 

SSH 


LAC 

1 120 » 


tad 

NUMBA 


OAC 

NUMB A 


ISZ 

SRCH 


JMP 

SRCH* 1 

SB 

LAC* 

TCV 


SAO 

« I5» 


JMP 

S2 


SAO 

t*I l 


JMP 

SOR 


JHS 

GFRA 


JMS 

TCVP* 


LAC* 

SZA 

t AC * 


JMP 

SB 


JHS 

GFRA 


JMS* 

1 ACZ > 


JMP 

SRNXT 


/ NUM6CR OF SEARCH'S 

/ LOOK AT TERMINATING VALUE 
/ «F ZERO UNSPECIFIED 

/ reset read tty UPON EXIT 

/ BqMP POINTER UP BY 120 
/ FOR NEXT 10 


E-200 
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022.755 224406 

022756 741200 

022757 602740 

022760 602725 

022761 102777 

022762 124411 

022763 602725 

022764 602730 

022765 102777 

022766 124411 

022767 602725 

022770 1 02772 

022771 602740 

022772 000000 

022773 204303 

022774 342103 

022775 042103 

022776 622772 

022777 000000 

023000 222717 

023001 042104 

023002 | 03060 

023093 622777 

023004 900000 

023005 203034 

023006 741200 

023007 603020 

023010 544375 

0230 1 1 603026 

023012 222104 

023013 504367 

023014 143034 

023015 442104 

023016 064310 

023017 623004 

023020 443034 

023021 222104 

023022 504362 

023023 744000 

023024 640514 

023025 603016 

023026 443034 

023027 222104 

023030 504366 

023031 744000 

023032 640506 

023033 603016 

023034 000000 


023035 000000 
023036 220012 
023037 044243 
023040 220012 
023041 741200 
023042 603054 
023043 044244 
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toz^n 
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220012 
023045 044245 

023046 12*274 

023047 244243 

023050 544245 

023051 344244 

023052 744245 

023053 603056 

023054 124274 

023055 244243 

023056 124276 

023037 623035 


023060 000000 

023061 131501 

023062 144241 

023063 144242 

023064 207156 

023065 040240 

023066 143034 

023067 101330 

023070 7m 200 

023071 6031 >3 

023R72 22*i310 

023073 544356 

02307** 603121 

023075 544355 

023076 741000 

023077 603153 

023100 20027H 

023101 04424 1 

023102 101334 

023103 20027** 

02310** 044242 

023105 124274 

023106 251501 

023107 5****2**2 

023110 344241 

023111 744242 

023112 603 1** I 

023113 200273 

0231 1** 7m 100 

023115 603153 

23116 124274 

023117 240274 

023120 603 l**l 

023121 200274 

023122 051501 

023123 101334 

023124 741200 

023125 603153 

023126 200274 

023127 044241 
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023130 

105334 


JHS 

RVALC 


023531 

740200 


ST. A 


/ GOOD DENOMINATOR? 

C23132 

603136 


JhP 

. »4 

/ YES 

023133 

200273 


LAC 

NOINP 

/ ANY INPUT AT ALL? 

02313V 

741100 


SPA 


023135 

603153 


JMP 

ZFRAC 

/ NO ZERO' TRACT ION 

023136 

200274 


LAC 

DCOG 

023137 

044242 


OAC 

ONM1 


023140 

603105 


JMP 

GF3 


023341 

002674 

SFRXT 

FOAC 

FTHP 


023142 

124276 


JMS* 

IFEXT1 


023143 

202 103 


LAC 

TCV 

/GET PARAMETER VALUE 

023144 

064275 


OAC • 

1 12) 


023 l ^5 

103035 


JHS 

FL 14 


023146 

124274 


JMS* 

* r i nt ) 


023147 

124410 


JHS* 

(FCiAl 


023150 

302674 


FADD 

FTHP 


023151 

124276 


JHS* 

IFEXT) 


023152 

623060 


JMP* 

gfrac 


023153 

124274 

ZFRAC 

JHS* 

1FINT) 


023154 

124267 


JHS* 

1FCLAI 


023155 

603141 


JHP 

GFRXT 


023156 

.03004 

JMSRD 

JHS 

ROBFF 




/total 

SPACING 

SEARCH ROUTINE 


023157 

000000 

TSSH 

0 



023160 

042105 


OAC 

NUMBA 

/ SAVE PARAMETER STORAGE POINTER 

023161 

222105 


LAC* 

NUHBA 

/ ANY SPEC IE I CAT 1 ON? 

023162 

740200 


SZA 


023163 

603170 


JHP 

.♦5 

/ YES 

023164 

443157 


ISZ 

TSSH 

/ NO RETURN 10 OK 

023165 

200“ ' 

TEXT 

LAC 

EOM 

/ resct oecinn IN CASE 

023166 

040240 


OAC 

OIN! 

/ IT HAS USED BY GFRAC 

023167 

623157 


JMP* 

TSSH 


023170 

202 1 05 


LAC 

NUHBA 


023171 

042103 


OAC 

TCV 


023172 

222103 

T0 

LAC* 

TCV 


023173 

544315 


SAD 

i \ 5 > 

/ LAST VALUE? 

02317V 

603230 


JMP 

tend 

/ YES 

023175 

544313 


SAO 

(4! ) 

/ OR? 

023176 

603233 


JM® 

TOR 


C23I77 

1 03254 


JHS 

FSUM 

/ FORM TOPS^BOTS 

023200 

202103 


L iC 

TCV 


02320 1 

064275 


OAC* 

1 ) 2 ) 


023202 

103035 


JHS 

FL 1 4 

/GET PARAMETER VALUE 

023203 

102772 


JHS 

TCVP4 

/ BUMP TCV 8Y >« 

023204 

124274 


JHS* 

< F I NT ) 


023205 

124410 


JMS • 

IFC SA) 


023206 

303275 


F ADO 

FSH 


023207 

124276 


JHS* 

(FEXT ) 


023210 

224406 


LAC* 

1 AC » 

/ SUM-PAR/.ME T£R>«0 

02321 l 

740200 


SZA 



023212 

603172 


JMP 

TB 

/ NO 

0232 13 

202103 


LAC 

TCV 


023214 

064275 


OAC* 

(12) 


023215 

103035 


JMS 

FL I 4 

/ GET NEXT PARAMETER VALUE 

023216 

124274 


JMS* 

(TINT) 

023217 

124410 


JHS* 

(FCI A) 


023220 

303275 


FAOO 

FSH 
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083221 

i 24276 


JMS* 


tFEXT > 

023222 

12441 l 


JHS* 


lACZ> / SUM-PARAMETER %-0 

023223 

603164 


JMP 


TEXT- 1 

02322*1 

224406 


LAC • 


t AC 1 

023225 

741200 


SNA 



023226 

643172 


JMP 


TB 

023227 

603164 


JMP 


TEXT-I 

023230 

103237 

TEND 

JMS 


FSAHE / SUM-PARAMETER 

02323 1 

603 164 


JMP 


TEXT-1 / YES 10 0000 

023232 

603165 


JMP 


TEXT 

023233 

103237 

TOR 

JMS 


FSAHE 

023234 

603164 


JMP 


TEXT-1 

023235 

102772 


JMS 


TCVP4 

023236 

6031 72 


JMP 


TB 

023237 

000000 

FSAHE 

0 



023240 

103254 


JMS 


FSUM 

023241 

202103 


LAC 


TCV 

023242 

064275 


OAC* 


1 52> 

023243 

103035 


JMS 


FL14 

023244 

124274 


JMS* 


tFiNTl 

023245 

124410 


JMS* 


1FCIA1 

023246 

303275 


F ADO 


FSM 

023247 

124276 


JMS* 


1FEXT) 

023250 

12441 1 


JMS* 


<ACZ> 

023251 

623237 


JMP* 


FSAHE 

023252 

443237 


ISZ 


FSAME 

023253 

623237 


JMP* 


FSAME 

023254 

000000 

FSUM 

0 



023255 

2044 1 4 


LAC 


i TOPS*400 > 

023256 

042104 


DAC 


CKADR / SPACING BUFFER 

023257 

103060 


JMS 


gfrac 

023260 

124274 


JMS* 


1FINT1 

023261 

202674 


FLAC 


FTMP 

023262 

003275 


FDAC 


FSM 

023263 

124276 


JMS* 


IFEXT1 

023264 

204415 


LAC 


t 80TS + 400 > 

023265 

042 104 


OAC 


CKAOR / SPACING BUFFER 

023266 

103060 


JMS 


GFRAC 

023267 

124274 


JH3* 


iF INT i 

023270 

203275 


FLAG 


FSM / FORM SUM OF THE TWO 

02327 l 

302674 


FAOD 


FTMP 

C 2 3272 

003275 


FDAC 


FSM 

02327? 

124276 


J«S* 


tFEXT > 

023274 

623254 


JMP* 


FSUM 

023275 

000000 

FSM 

0 


/ CONTAINS SUM OF 

023276 

000000 


0 


/ BOTTOM AND TOP SPACING 

023277 

000000 


0 





/LUNAR SAMPLE SEARCH 



/UJES RDBFF TO READ 

OUT OF 



/LUNAR ALPHA BUFFER 

FOR SAMPLE NUMBER 



/ASSUMES 

L.S. IS 

FIRST NUMERIC VALUE IN 



/LUNAR ALPHA. USES 

SAME TYPE SEARCH AS FOR 



/NUMERIC 

VALUES 



023300 

000000 

lsh 

0 



023301 

04*: 105 


OAC 


NUM6A 

023302 

222105 


LAC* 


NUM8A 

023303 

740200 


SZA 



023304 

60331 1 


JMP 


♦5 


33 





i 
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023305 *••♦3300 
023306 200*«23 
023307 040240 
023310 623300 
023311 203156 
023312 040240 
023313 143034 
02331** 20**** 1 6 
023315 0**2 1 OH 
023316 101330 
023317 200274 
023320 OH 1653 
023321 202105 
023322 0H2I03 
023323 34H375 
023324 042102 
023325 222103 
023326 544315 
023327 603350 
023330 544313 
023331 603354 
023332 222102 
023333 040274 
023334 102072 
023335 200274 
023336 124304 
023337 341653 
023340 741 S 00 
023741 603325 

W 023342 222*02 
* 023343 124304 
q 023344 341653 
js 023345 740300 

023346 603325 
023347 603305 
023350 201653 
023351 562102 
023352 603305 
023353 603306 
023354 201653 
023355 562 1 02 
023356 603305 
023357 102072 
023360 603325 


02336! 000000 

023362 750001 

23363 064314 

023364 124267 

023365 124271 

023366 741200 

023367 62336! 

023370 344272 

023371 043410 

023372 741100 

023373 603406 

023374 344273 



FXT 

<-! 2 > 
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083375 7*40100 
083376 603*06 
083377 *6*31* 
083*00 7*0000 
083*01 18*87* 
083*08 5**875 
083*03 3*3*10 
083*0* 18*876 
083*05 603365 
083*06 75000 l 
083*07 683361 
083*10 000000 


083*1 1 000000 
083*18 10856* 
083*13 18*870 
083*1* 88**17 
083*15 06*3*7 
083*16 88**13 
083*17 18*373 
083*80 000000 
083*8! 7*f 800 
083*88 683*1 1 
083*83 5**37* 
083*8* 683*80 
083*85 18*307 
083*86 683*80 

083*87 80*81* 
083*30 103*36 
083*31 80*883 
083*38 1 03*36 
083*33 80*838 
083*3* 103*36 
083*35 68*35! 
083*36 000000 
083*3^ 3**305 
083**0 06*875 
083**1 776507 
083**8 0*1653 
083**3 160018 
083*** **1653 
083**5 603**3 
083**6 683*36 
083**7 1 035*8 
083*50 103560 
083*51 68*351 


083*58 00000J 
083*53 80*8*6 
083*5* 3*838* 
083*55 0*8870 
083*56 888870 
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SMA 

JMP 

ext 


ISZ* 

I A 1 NF > 


NOP 

JUS* 

IF 1NT ) 


fmul IS 

I 18) 


f ADD IS 

TC8 


JMS • 

IFEXT ) 


JHP 

FRI 

EXT 

•etc 



JMP* 

TREAD 

TC8 

0 



/ROUTINE TO PRINT ID 
/AS POINTED TO BY CXPCR 
CPRNT 0 




JUS 


cymde 

/ 

CHANGE 10 TO M.O.Y.X FORMAT 



! JUS* 


IFF 1 X I 





LAC • 


IBOI ) 





OAC • 


IHIGHPR) 





LAC* 


lBC*8> 





JUS* 


IOECCON) 





0 







SNA 

CLL 


/ 

DONE? 



JMP* 


EPRNT 





SAO 


1 8*0 5 

/ 

OON’T PRINT LEADING SPACES 



JMP* 


. -* 





JMS* 


t PRINT 





JMP* 


. -6 



/RESETA 

ALl parameter WORDS 

TO 

ZERO 

CLEAR 


LAC 


SCHPl 

/ 

ADDRESS NUMERIC BUFFER ! 



JMS 


ZERON 

/ 

CLEAR IT 



LAC 


SCHP8 





JMS 


ZERON 





LAC 


SCHP3 





JMS 


ZERON 





JMP • 


IRETC ) 



ZERON 


0 







TAD 


i - 1 > 





OAC* 


I 18) 





LAW 


- 1871 





OAC 


GN 





02 M 


18 





ISZ 


GN 





JMP 


. -8 





jM P* 


ZERON 



FMT 


JMS 


CLB 





JMS 


RXW 





JMP* 


me to 



/subroutine to 

CHECK HIT ID 



/WITH 

TAPE 10. 

K IS 

INDEX OF 

TAPE ID'S 

/L IS 

INDEX OF 

HIT 

IO*S 



RETURNS 

♦ 1 1 - 

IO*S 

NOT SAME 



/RETURNS 

♦ 8 IF 

ID'S 

ARE THE 

SAME 

l OOK. 


0 







LAC 


HI TBA 

/ 

COMPUTE ADDRESS OF HIGH OROEft 



TAD 


1 

/ 

HIT 10 GET IT AND SAVE 



OAC 


GET 1 





LAC* 


GET! 
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083457 

048674 


DAt 

f 7MP 

083460 

448870 


IS Z 

GETi 

083461 

888870 


LAC* 

GET i 

083468 

048675 


DAC 

FTmp* i 

083463 

804080 


LAC 

IDBUF 

083464 

348385 


TAD 

J 

083465 

048870 


OAC 

GETi 

083466 

888870 


LAC* 

OETI 

083467 

548674 


SAO 

ftmp 

083470 

741000 


SKP 


08347J 

683458 


JMP* 

LOOK 

083478 

448870 


ISZ 

OETI 

083473 

888870 


LAC* 

GETI 

083474 

548675 


SAO 

FTMP* 1 

083475 

74 1 000 


SKP 


083476 

683458 


v-«P* 

LOOK 

083477 

443458 


ISZ 

LOOK 

083500 

683458 


JMP* 

LOOK 

08350 1 

000000 

ROKIO 

0 


083508 

804846 


l AC 

NI7BA 

087503 

348384 


TAD 

i 

081504 

344376 


TAO 

18) 

083515 

048870 


OAC 

OETI 

083506 

888870 


LAC * 

GETI 

083507 

740800 


SZA 


083510 

683501 


JMP* 

RDKJO 

0835! 1 

443501 


ISZ 

ROKIO 

0835 18 

68350 1 


JHP* 

ROKIO 

0835 13 

760108 

otfl 

LAW 

MS 100 

0835 1 4 

104810 


JHS 

MSPT 

083515 

184871 


JH$* 

IRC AO) 

083516 

740800 


SZA 


083517 

603513 


JHP 

. -4 

083580 

103588 


JHS 

CLB 

08358! 

603617 


JMP 

D3* 1 

083588 

000000 

CLB 

0 


083583 

777400 


LAW 

-400 

083584 

041047 


OAC 

GSN 

083585 

777777 


LAW 

- 1 

083586 

344080 


TAO 

IOBUF 

083587 

064875 


OAC* 

1 18) 

083530 

1600 1 8 


OZM* 

18 

083531 

44 | 047 


ISZ 

GSN 

083538 

60353C 


JHP 

. -8 

083533 

683588 


JMP* 

CLB 



/RE AO 

TAPE SEARCH 

INDEX 

083534 

OOOOOQ 

RXR 

0 


083535 

184860 


JHS* 

1 DEC TRW) 

083536 

000005 

RUNT 

5 


.83537 

777400 


-400 


083540 

030400 


30400 


08354! 

000001 


1 


083548 

000003 


3 


083543 

741800 


SNA 


083544 

683514 


JMP* 

RXR 

083545 

103547 


vMS 

DTERR 

083546 

603535 


JMP 

RXR* 1 

083547 

000000 

DTERR 

0 



/GET LOW OROER A.,0 SAVE 


COMPUTE ADORE SS OF TAPE ID 


/ HIGH ORDER S EQUAL ? 

/ YES 
/ NO 


/ LOW ORDERS EQUAL 


/ READS HIT DISK BLOCK • 
/ IF ZERO RETURN *Z 
• IF NON- ZERO RETURN ♦! 


/ TELL EM TAPE FULL AND TO 
/ MOUNT NEW ONE 


/ ZERO INDEX 
/ ZERO ID BUFFER 


/ DEC TAPE 10 
/ UNIT 5 
/ VOO VALUES 

/ 1 8L0CK 

/ READ 
/ ERROR? 

/ NO RETURN 
/ YES 

/ TELL *F A AND WAIT 


E-207 
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023550 760025 
023551 1 0“2 1 0 
023552 203536 
023553 101761 
02355“ 76003“ 
023555 1 0“2 1 0 
023556 I2“27l 
023557 6233H7 


023560 000000 

023561 I2H260 

023562 000005 

023563 777“00 

02356“ 03C“00 

023565 000001 

023566 000005 

023567 7“ I 200 

023570 623360 

023571 I 039“7 

023572 603561 

023573 000000 

02357“ I2“260 

023575 000005 

023576 777400 

023577 030“00 

023600 000000 

023801 000005 

023602 7“ I 200 

023603 623573 

02360“ I 035“7 

023605 60357“ 

023606 ! “2325 

023607 603661 

023610 000000 

02361 1 200737 

023612 751200 

023613 523610 

02361“ 5“07“ I 

023615 623610 

023616 10353“ 

0236 17 200737 

023620 1 2“30“ 

023621 0“075 1 

023622 1 “336 1 

023623 22“3“5 

' 2 362“ 1 2“30“ 

023625 -0“ 1 0“7 

023626 7“ 1 200 

023627 603606 

023630 777600 

023631 36“3“5 

023632 3“0737 

023633 7“0 1 00 

02363“ 603513 

023635 20“375 
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LAW HESSC7 

JMS NSPT 

LAC Runt 

JMS OECSING 

LAM MESS06 

JMS MSPT 

JMS* (READ) 

JMP* OTERR 

/MR I Tf TAPE SEARCH 1N0EX 
/ UNIT 5 

/ BLOCK 1 

RXM 0 

JMS* (OECTRMl 

5 

'“00 

30“00 


4 

SNA 

JMP* RXW 

JMS OTERR 

jMP RXM* 1 

/WRITE ON OECTAPE UNIT 5 

ORT 0 

JMS* lOECTRMl 

5 

-“00 

30“00 

ORUT 0 


/ PRINT ERROR MESSAGE 
/ WAIT FOR CR INDICATING 
/ ALL OK 


SNA 

JMP* ORT 

JMS OTERR 

JMP ORT* I 

OZM J 

JMP l.NX-6 

OTAPE 0 

LAC HITS 

SNA CLA 

JMP* OTAPE 

SAD OR-AG 

JMP • OT APE 

03 JMS RXR / RE AO !Mnr:X 

LAC HITS / GET 2S COMP. 

JMS* (C I A > / or NUMBER OF HITS 

DAC GYN 

OZM FREAO / CLEAR DIFFERENT COUNTER 

LAC* IEXPIO*“00> 

JMS • C C I A ) 

DAC GSN / NUMBER OF ID’S THIS TAPE 

SNA 

JMP OTAPE-2 

LAM *200 

TAP* l£XP 10 *“ 00 > 

Ta£> HITS / IF ME AOO ALL HITS 

SHA 
JMP 
LAC 


OTFL 
( I > 


E-208 
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023636 0*2324 

023637 042325 

023640 103452 

023641 60361-7 

023642 204376 

023643 442324 

023644 344246 

023645 042270 

023646 162270 

023647 202324 

023650 34434 1 

02365 i 042324 

023652 440751 

023653 603640 

023654 200737 

023655 124304 

023656 040751 

023657 441047 

023660 603745 

023661 224345 

023662 7440 1 0 

C23663 344020 

023664 064275 

023665 204375 

023666 042324 

023667 103501 

023670 603735 

023671 440751 

023672 741000 

023673 603700 

023674 204341 

023675 342324 

023676 042324 

023677 603667 

023700 203361 

023701 364345 

023702 064345 

023703 103560 

023704 203361 

023705 741200 

023706 623610 

023707 124304 

023710 364345 

027711 344376 

023712 043600 

023713 200737 

023714 124304 

023715 040751 

023716 204375 

023717 042324 

023720 103501 

023721 603730 

023722 204341 

023723 342324 

023724 042324 

023725 440751 

023726 603720 

023727 6236 ), 0 
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LMRE 


LC 


LNX 


05 


DAC 

1 

/ INDEX FOR HIT ID'S 

OAC 

J 

• INDEX FOR IDS ON TAPE 

JMS 

LOOK 

/ HIT 10-TAPE 10 

JMP 

LC 


LAC 


/ YES-ZERO ORUM BLOCK NUMBER 

TAD 

i 

/ FOR THIS HIT ID 

TAD 

M1TBA 


OAC 

GET 1 


OZM* 

OETI 


LAC 

1 

/ DO NEXT HIT LNTRY 

tad 

«3) 


OAC 

1 


ISZ 

OYN 

/ DONE ALL HITS? 

JMP 

LMRE 

/ NO 

LAC 

HITS 


JMS* 

(CIA) 


DAC 

OYN 


ISZ 

OSN 

/ DONE ALL TAPE IDS? 

JMP 

OC 


LAC • 

t£xPiD*m o> 

CLL RAL 


/ FOR the aoding of neu ios 

TAD 

iOBur 


DAC* 

( 121 


LAC 

i : ) 


DAC 

i 


JMS 

RDKIO 

t READ OISK BLOCK * FROM 

JMP 

PUTIN 

t HITS BUFFER IN NOT ZERO 00 TO PUT 

ISZ 

GYN 

/ DONE ALL HITS? 

SKP 



JMP 

-♦5 


LAC 



TAD 

1 


0> r 

l 


JMP 

LNX 


LAC 

TREAD 

/ UPOATE NUMBER OF ENTRIES 

tad* 

(EXP JO*hOO» 

OAC* 

(EXP 1 O+MOO J 

JMS 

Rrw 

/ YES REWRITE UPOATEO INDEX 

LAC 

FREAO 


SNA 



JMP* 

otape 


J1S* 

(CIA) 

/ NUMBER FOR OUMPING ON TAPE 

TAD* 

1 EXP 10* ‘♦00 i 

TAD 

(2) 


OAC 

ORUT 


LAC 

HITS 

/ RESET NUMBER OF ID'S TO CHECK 

JMS* 

(CIA) 


OAC 

GYN 


LAC 

( I > 


OAC 

I 


JMS 

RDKIO 

/ REAO HIT 10 AGAIN IF ZERO IONOR 

JMP 

. ♦? 


LAC 

(3) 


TAO 

I 


DAC 

1 


ISZ 

GYN 

/ DONE ALL? 

JMP 

05 

/ NO 

JMP* 

OTaPE 

/ DONE 
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023730 040232 

023731 100217 

023732 103573 

023733 443600 

023734 603722 

023735 103452 

023736 740000 

023737 202674 

023740 060012 

023741 202675 

023742 060012 

023743 443361 

023744 603671 

023745 204375 

023746 042324 

023747 204376 

023750 342325 

023751 042325 

023752 603640 

023753 103361 

023754 124270 

023755 124300 

023756 103534 

023757 22“ 345 

023760 124304 

023761 041047 

023762 204376 

023763 044006 

023764 204020 

023785 CS4342 

023766 220013 

023767 564417 

023770 603776 

023771 464342 

023772 444006 

02377 i 441047 

023774 603766 

023775 604015 

023776 220013 

023777 564413 

024000 741000 

024001 603772 

024002 124260 

024003 000005 

024004 777400 

024005 030400 

024006 000000 

024007 000003 

024010 740200 

24011 624351 

024012 224344 

024013 064420 

024014 624421 

024015 760122 

024016 IC42I0 

024017 624351 

024020 030400 

024021 044150 
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POPS' 3 ASSEMBLE LISTING *** 


page no 


HQ 


02*022 

750000 


CLA 



02**023 

0*4*4 1 5 | 


DAC 

OlOAC 

/ AC-0 TO START 

02H0 a* 

12*4300 


JMS* 

rCRLPi 


02*4025 

20*4150 


LAC 

OtPI 

/ GET POINTER 

02*4026 

1 0H152 


JMS 

ODUT 


02*4027 

22*4150 


LAC* 

DIPT 

/ GET CONTENTS 

02*4030 

10*4152 


JMS 

ooyt 


02H03I 

10H177 

010 

JMS 

RED} or 


02H032 

i0*#i£6 


jms 

HATCH 

/ SPECIAL INSTRUCTION? 

02*4033 

0002*^0 


2««0 



02H03H 

60*4 105 


JMP 

OtLf 

/ SPa£E*lOOK AT next 

02*035 

00031*4 


3IH 



02*4036 

60*4103 


JMP 

OILO 

/ L-LOAO 

02*4037 

000316 


316 



02*40*40 

60*4107 


JMP 

DIN* 

/ N*NCXT 

02*40*41 

000307 


30? 



02*40*42 

60H 1 1 3 


JHP 

0160 

$ 6*60 

02*40*43 

000323 


323 



02*40*4*4 

60H it 1 


JHP 

01 JMS 

/ $*JMS 

02*40*45 

000302 


302 



02*40*46 

60*4 H7 


JHP 

OIO® 

/ S*8REAK POINT 

02*40*7 

000322 


322 



02*4050 

60*4126 


JMP 

Of OURS 

/ R*PC STORE BREA* POINT 

02*4051 

000J25 


325 



02*4052 

60*4100 


JMP 

Of*ti 

/ IM.00K AT PREVIOUS 

02*4053 

000320 


320 



02H05H 

60*4067 


JMP 

01 PRO 

/ P*PROCEEO FROM BREAK POINT 

02*055 

000000 


0 


/ TERMINATOR r OR MATCH 

02*4056 

20*4207 


LAC 

TSSl 


02*4057 

«M*#22 


ANO 

t?» 


02*4060 

0*4*4207 


DAC 

TSSt 


02*«06 r 

20*4151 


LAC 

OtOAC 


02*4062 

7H*«000 


CLL 



02*4063 

6*40703 


ALS 

3 


02*402*4 

3*4*4207 


TA0 

TSSI 


02MO65 

0*4*4151 


0AC 

OtOAC 


02*4066 

60*4031 


JMP 

010 

/ GET NEXT 

02*4067 

20*4136 

OtPRC 

t AC 

LINS 1 ' 


02*4070 

7N0020 


PAR 


/ RESTORE LINK 

02NO7I 

20*4133 


LAC 

OIOBAO 

/ SRC AN POINT ADDRESS 

02*4072 

0*4*4077 


OAC 

AOPT 


02*4073 

*4*4*4077 


ISE 

AOPT 


02*407*4 

20*4135 


LAC 

ACSV 

/ AND AC 

02*4075 

*40*4132 


XCT 

OIOBSV 


02*4076 

62*4077 


JMP* 

AOPT 


02*4077 

000000 

41027 

0 



02*fl00 

20*4150 

018K 

L C 

DIPT 


02HI0I 

3NH305 


* AO 

t. » I * 

/ MOVE POINTER BACK ONE 

02*4102 

60*4021 


JMP 

OtQA 


2*t 103 

20*4151 

orco 

LAC 

OtOAC 

t LOAD 

02410*# 

06*4 150 


OAC* 

OlPt 


02*4 105 

HHH 1 50 

0 iL* 

ISZ 

OtPI 

/ MOVE DOWN ONE 

02*4 106 

60*4022 


JMP 

CIOA.t 


02*4 1 07 

20** 151 

OlHX 

LAC 

OtOAC 

/ NEW ADDRESS 

02*«l 10 

60*4021 


JMP 

CHOa 


02*4 f 1 1 

12*4151 

01 JUS 

JM5* 

OtOAC 


02*4 1 12 

10*41*41 


JMS 

OBRT 


02*4 1 13 

20** 137 

01 GO 

LAC 

LINK 

f T {X LINK 
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024114 740020 

024 ii 5 204140 

024 1 16 624 151 

02** 1 1 7 224151 

02m; 20 044132 

024121 204151 

02H1 22 044133 

024123 20H13I 

024124 064 »5l 

02*4 125 604105 

024126 204132 

024127 064133 

024130 604105 

024131 I O'* I Hi 

02** 1 32 000000 

02m 33 000000 

02*4 1 34 024 1 3*» 

024 l 35 000000 

02 s * I 36 000000 

024137 000000 

024140 000000 

024141 000000 

024 1 42 044 1 35 

024143 750010 

OH 1 * 1 44 044136 

024 1 45 204 1 34 

024146 044150 

024147 604105 

024150 000000 

024)51 000000 

024152 000000 

024153 652000 

024154 777772 

024155 064300 

024156 661603 

024157 344423 

024160 124307 

024161 464300 

024162 604156 

024163 760240 

024164 124307 

024 t 65 624152 

024166 000000 

024167 224166 

024170 444166 

024171 74 1200 

024172 624166 

024173 544207 

'24174 624166 

024175 444166 

024176 604167 

024177 000000 

024200 700002 

0242CI 700301 

024202 604201 

C24203 700312 

024204 044207 

024205 700002 


• * * 


PDP9/IS ASSEMBLY LISTING *** 


PACE NO 


41 


OIOB 


Y 10 BRS 


JMS08 

OIOBSV 

0 1 08 AO 

ACPT 

ACSV 

UNSV 

LINK 

AC SET 

OBRT 


OIPT 

OIOAC 

OOUT 


MATCH 


RED t OF 


RaR 

LAC 

JMP* 

LAC* 

OAC 

LAC 

OAL 

t A«* 

OAC * 

*/MP 

LAC 

OAC* 

JMP 

•JMS 

o 

0 

acpt 

0 

0 

0 

3 

0 


acset 

OIOaC 

OIOAC 

oioesv 

OIOAC 

01 OB AO 

UH50B 

OIOAC 

OILF 

OIOBSV 

OiOBAO 

OILF 

OBRT 


i AND AC 


/ SAVE INSTRUCTION 

/ SAVE ADDRESS 

/ INSERT 6REAK POINT 

/ OET INSTRUCTION 
/ RESTORE IT 
/ oo look at next 


/ SAVE AC 


/ SAVE AC 

/ USED FOR COUNTER 
/ CLA LLSS 3 


/GET CHARACTER 
/ MOVE POINTER 
/ END 01 LIST? 

/ YES 

/ NO-MATCH 
/ YES 

/ NO MOVE POINTER 


TSSI 
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084506 684177 
084807 000000 
0848(0 000000 
0848H 504484 
084818 184485 
084813 684810 


084814 031508 
084815 038133 
084816 038140 
084817 038880 
084880 03834 ! 
084881 038608 
084888 038783 


084883 038774 
084884 033485 
084885 033438 
084886 033518 
084887 033633 
084830 C 34074 
084831 034815 


084838 034866 

084833 034717 

084834 034784 

084835 035004 

084836 035185 

084837 035366 

084840 035507 

08484 1 000000 

084848 000009 

084843 000000 

084844 000000 

084845 000000 

084846 031800 

084847 000000 

931800 000000 

031501 000000 


031508 


000000 


PDP9/I5 ASSEMBLY LISTING 

jmp» red: or 

TSS I 0 

MSPT 0 

AND i 37777 » 

JMS* l MESAG » 

JMP* MSPT 

/PARAMETER STORAGE I 
/STORAGE ORGANIZATION IS AS FOLLOWS 


SCHPI NUMI / 

YNI / 

ALP I / 

EXP1 / 

SPNI / 

TSP I / 

LSI / 


/PARAMETER STORAOE 8 
/STORAGE ORGANIZED SAME AS I 
SC HP 8 NUM8 

YN8 
ALPS 
EXPS 
SPN8 
TSP8 
LS8 

/PARAMETER STORAGE 3 


/STORAGE 

ORGANIZED SAME AS 1 

SCHP3 

NUH3 

YN3 

ALR3 

CXP3 

SPN3 

TSP3 

LSI 

Nl 

0 

ONMI 

0 

18 

0 

N8 

0 

DNM8 

0 

HIT6A 

HBFF 

LI BL 1 T 

0 

.loc 3ieoo 

HBFF 

0 

LOC #300 

I 1 

0 

/NUMERIC 

BUFFER 5CM8* WORDS 

/PER ENTRY IN FOLLOWING ORDER 

/ 

GAIN 

/ 

START 

/ 

STOP 

/ 

HEIGHT 

/ 

DUMP INTERVAL 

/ 

LIVE TIME 

/ 

dectape number 

NUHt 

0 

•LOC .*430 

/YES-NO BUFFER ONE WORD 

/per entry in follow ing order 

* 

INTER MANTLE 


AODRESS OP NUMERIC BUFFER 
ADDRESS OF YES-NO BUFFER 
AOORESS OF ALPHA BUFFER 
AODRESS OF EXPERIMENT 10 BUFFER 
AOORESS OF SPACING BUFFER 
AOORESS OF TOTAL SPACING BUFFER 
AOORESS OF LUNAR SAMPLE BUFFER 


BUFFER TO KEEP ID'S FROM HITS 
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.... POPS/ 15 ASSEMBL* LlSt INC <*■*■* 


PACE NO. 




/ 

CUTER MANTLE 



/ 

MAO TAPE 




/ 

COIN TO MAG 



/ 

PUNCH 


032133 

000000 

rut 

0 

.LOC 




/ALPHA BUFFER IN WORKS 
/PER ENTRY in FOLLOWING ORDER 



/ 

LUNAR 




/ 

METEORITE 




/ 

ISOTOPE 




/ 

GENERAL 


032140 

000300 

MJP 1 

0 

.LOC 

♦-*'57 



/EXPERIMENT ID BUFFER iso WORDS 

032220 

000000 

EXPI 

0 

.LOC 

.*iao 



/SPACE INC BUFFER 7 WORDS 
/PER (ENTRY IN FOLLOW INC ORDER 



/ 

TOP 




/ 

iBOT 


0323HI 

000000 

SPRi 

0 





.LOC 

.«BN0 



/tom 

5PAC I NO BUFFER 7 WORDS 

032602 

000000 

TSPI 

0 





■ LOC 

.♦IDO 



/l tm&n 

SAMPLE BUFFER 50 .WORDS 

032723 

000000 

LSI 

3 

.LOC 

. *50 

03277** 

000000 

NUH2 

0 





.LOC 

.♦N30 

033425 

000000 

YH2 

0 

.LOC 


033432 

000000 

*LP2 

0 

.LOC 

.*57 

033512 

000000 

£XP2 

0 





• LOC 

JBO 

033633 

000000 

$PH2 

© 





.LOC 

.♦BHD 

034074 

000000 

tSP2 

0 

.LUC 

ISO 

034215 

000000 

tS2 

0 

.L3C 

.*50 

034266 

000000 

NW' 

0 

.LOC 

.♦H30 

034717 

ooocoo 

YN3 

0 





• LOC 

.**H 

034724 

000000 

AL*3 

0 

.LOC 

.*57 

035004 

000000 

EXP3 

0 





.LOC 

.* ISO 

035125 

000000 

SPH3 

0 

.LOC 

.'•BH0 

035366 

000000 

TSP3 

0 





.LOC 

.♦ISO 

035507 

000000 

LS3 

0 



-END 


02HSH7 


005N53 
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024250 005452 

024251 004265 

024252 007667 

024253 603637 

024254 006425 

024255 000551 

024256 000400 

024257 01 1 367 

024200 006344 

024261 003421 

024262 007436 

024263 006513 

024264 003637 

024265 006426 

024266 006436 

024267 013666 

024270 013506 

024271 012366 

024272 777720 

024273 777786 

024274 013051 

024275 000012 

024276 0131 12 

024277 013545 

024300 006737 

024301 000016 

024302 021564 

024303 000004 

024304 001772 

024305 777777 

024306 006314 

024307 006752 

024310 012714 

0243 1 I 000072 

024312 000037 

024313 000041 

0243 1 4 000062 

024315 000015 

024316 000200 

024317 000300 

024320 013046 

024321 013016 

024322 013022 

024323 012772 

024324 012740 

024325 012745 

024326 012752 

024327 013026 

024330 013033 

024331 013043 

024332 012777 

024333 013002 

024334 013006 

024335 013012 

024336 012733 

024337 012756 

024340 012764 

024341 000003 


RAGE mo. 


* POPS/ 15 ASSEH8LY LtStlNG ■*** 
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* * • 


P0R9/1S ASSEMBLY LISI INC •** 


PAGE NO 


024342 

000013 

024343 

03Q4C3 

024344 

030437 

024345 

030400 

024346 

000017 

024347 

006712 

024350 

006554 

024351 

006257 

024352 

OOOOil 

024353 

310000 

024354 

isoooo 

024355 

000057 

024356 

000055 

024357 

000120 

024360 

000006 

024 36 i 

000046 

024362 

770000 

024363 

010000 

024364 

020000 

024365 

030000 

024366 

007700 

024367 

000077 

024370 

777740 

024371 

021651 

024372 

000050 

024373 

006571 

024374 

000240 

024375 

000001 

024376 

000002 

024377 

000014 

024400 

000063 

024401 

640500 

C24402 

013422 

024403 

013421 

024404 

000043 

024405 

013420 

024406 

013417 

024407 

0 1 3426 

024410 

013652 

02441 I 

013702 

024412 

013460 

0244 ! 3 

013415 

0244 1 4 

030564 

024415 

030605 

0244.6 

030460 

024417 

013414 

024420 

017177 

024421 

01 200*1 

024422 

000007 

024423 

Q00260 

024424 

037777 

024425 

007000 
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SYMBOL TABLE 


PAGE NO. 


AC 

ACKI T 
ACPI 
AC SET 
ACS V 
AC Z 
ADONE 
AOPT 

aotmp 

A INF 

ALPHA 

ALP I 

ALP2 

ALP 3 

AMDS P 

ANOSP 

APR! 

AQM 

ARE AO 

ASH 

AS IS 

ASR 

ASRC 

A 1 

a a 

A3 

B 

BAOIN 

BB 

ec 

BLKCNT 

BN 

BOTS 

BSRCH 

BYFOUR 

BYTWO 

CHRI 

CIA 

CKAOR 

CKERR 

CKIT 

CKNEXT 

CKRT 

CKYN 

CL8 

CLEAR 

CMOYX 

CMG 

CON IN 

COPYGO 

CPY 

CRDKA 

CRLF 

CYMDE 

DAY 

D8RT 

DC 

DC DO 


46 


0!3m7 

DC OS 1 

0t?0 I 57 

022151 

DCDS8 

080170 

084134 

OOP! 

030057 

084i4o 

OCCChD 

006436 

084135 

OECCON 

006571 

01 3708 

DEC INN 

080833 

oam36 

DECNM 

030040 

084077 

OECPRT 

006554 

088386 

OECRET 

006513 

000068 

OECSING 

081761 

08 I 60 I 

DEC TRW 

006344 

038140 

DECT 3 

006413 

033438 

CFLAG 

080741 

034784 

DINI 

080840 

081^60 

DISKIO 

003481 

081480 

DKRD 

080817 

08 i £ I 3 

DMODC 

005477 

08 l 406 

DNM1 

084848 

081365 

DNM8 

084845 

088140 

OPR IT 

081560 

081433 

ORT 

083573 

088807 

0RUT 

083600 

088818 

DSEL 

005458 

081376 

OS TOP 

081642 

081463 

otape 

083610 

081361 

DTBLK 

084006 

088036 

OTERR 

083547 

081085 

o:fl 

083513 

088360 

DUN ! T 

080155 

013413 

03 

083616 

080816 

05 

083780 

08 I 65 I 

E INC 

080431 

030805 

ELEAV 

020500 

080348 

ENDEC 

080866 

088 * 3C 

ENDEC I 

080868 

088078 

ENOSP 

080451 

081775 

EPRNT 

08341 t 

0017^8 

EQK 

080483 

088104 

ES fRT 

080375 

081630 

ESI 

080456 

0880 l 3 

ES8 

08G44I 

080661 

ES3 

080444 

088085 

ES4 

080416 

028181 

ES5 

080406 

023588 

ES6 

080474 

083487 

EX 

088673 

022454 

EXPER 

088453 

030053 

EXPID 

030000 

020747 

Exp i of 

030037 

080572 

EXP 1 

032220 

080135 

EXP8 

033518 

020832 

EXP3 

035004 

006737 

fadd 

300000 

028564 

FC i A 

013658 

022678 

FCLA 

0 13666 

024141 

FDAC 

000000 

083*745 

FOl v 

7000G0 

080874 

r EQL 

082440 


FEXT 

0131 12 

GN7 

FT ix 

013506 

GOOD 

FGET 

022480 

COM 

FHP 

022705 

GRECL 

F 1 NT 

0 I 305 I 

GS I N 

flac 

800000 

GSLS 

flext 

023056 

GSN 

r^OAT 

013460 

GSPRT 

FI 14 

023035 

GSQM 

fmil 

088677 

GTS 

FMT 

083447 

GYN 

fmul 

500000 

GYNOS 

FPRT 

081856 

HBFF 

FRDSH 

081652 

HIGHPR 

FRCAD 

023361 

HI TBA 

FRET 

021300 

MlTCNt 

FR1 

083365 

HITS 

FSAME 

023237 

1 

FSIGN 

0 I 3545 

loeur 

FSING 

022560 

idflva 

FSM 

023275 

10f*T 

FSUM 

023254 

IDSH 

FTC 

081773 

I END 

FTH 

082702 

IM 

FTMP 

088674 

INCNT 

F7SH 

088320 

{NEXT 

FXT 

083406 

INOK 

F l 

023020 

1NSEL 

FI I 

021278 

IORN 

F2 

023086 

1 1 

GA 

021832 

18 

GAIN 

030044 

J 

GALP 

081341 

JE NO 

GANY 

021888 

JMS08 

GB 

021135 

JMSRO 

GBA 

081131 

LB 

GOSH 

08 m 4 

LC 

GETI 

0228V 0 

LEND 

GEX 

081 124 

LEX1 

GFRA 

082777 

LGET 

gfrac 

023060 

L 1 8L 1 T 

GFft <T 

023141 

LINK 

GF 1 

0231 13 

UNSV 

GF2 

083 I 21 

LIVERS 

GF 3 

083105 

LMRE 

GINC 

021718 

LNX 

GLS 

02 1 040 

LOOK 

GN 

021653 

lor 

GNOS 

081735 

LRGO 

GNOSP 

081023 

LSH 

GNQM 

021703 

LSP 

GNSP 

081836 

LSI 

GN 1 

021748 

LS2 

GN2 

021788 

L53 

GN3 

021725 

MAGTPT 

GN4 

081676 

MATCH 

GN5 

021666 

MESAG 

GN6 

021753 

MESSNO 


021 *31 

MESSOI 

080014 

088264 

MESS02 

020017 

020775 

MESS03 

080043 

020601 

MES504 

020047 

021068 

MESSG5 

020061 

08| 164 

MESS06 

020034 

081047 

MESS 07 

0200^5 

081304 

MESS24 

006314 

08 1 11 0 

MESS 30 

020067 

02IC3I 

MESS31 

080075 

080751 

MESS80 

013046 

080757 

MESS81 

013016 

031200 

MESS68 

013028 

006712 

MESS83 

012772 

024846 

MESS84 

012740 

080736 

MESS85 

012745 

020737 

MESS86 

018758 

082324 

MESS87 

013026 

084080 

MESS88 

C 1 3033 

082458 

MESS89 

013043 

088356 

MESS90 

C 1 2777 

022332 

MESS9I 

bl 3008 

02241 1 

MESS98 

0 1 3006 

030047 

MESS93 

t) 130 18 

021774 

MESS94 

018733 

082284 

MESS95 

018756 

021001 

MESS96 

012764 

007667 

MG 

081843 

028414 

MOD 

080735 

031501 

MONTH 

022671 

084243 

MSP T 

024210 

088385 

MS 100 

020102 

088387 

MS! 01 

0201 15 

024131 

MS 102 

020122 

723156 

MS 104 

020130 

023325 

MTFG 

030055 

083647 

NOTBF 

021576 

083353 

NDTSA 

021567 

083305 

NEND 

ocfoei 

023753 

NEXT 1 0 

020606 

024247 

NEXTSH 

080582 

084137 

N 1 0 

020740 

084136 

NLOOP 

02224 1 

030034 

NMCTR 

022106 

083640 

NOJNP 

020273 

083667 

NONE 

084015 

023458 

NOR 

013486 

023354 

NREEL5 

080734 

C80876 

NUMBA 

088105 

083300 

NUMERIC 

081577 

081046 

NUMS 

021574 

038723 

NUMSH 

081777 

034215 

NUMTMP 

081772 

035507 

HUM 1 

031502 

011367 

NUM8 

038774 

024166 

NUM3 

034255 

007000 

NX0 

020354 

021776 

NXNBA 

022155 
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NXTAPE 

020731 

SCHP2 

024223 

ZPRAC 

023153 

Nl 

024241 

SCHP3 

024232 

Zi 

021302 

n a 

024244 

SCNT 

021575 

Zfl EAD 

020742 

0 l 8K 

024 i oo 

SET2 

02 l 453 



01 OB 

oam i7 

SHIN 

02144 1 



OtOBAO 

oam33 

SHORE 

020327 



0 ! DBRS 

oama6 

50MSP 

021010 



OIOBSV 

024132 

SOPAL 

021477 



0100 

oa^i i 3 

SOR 

022765 



0 l JHS 

024 1 \ \ 

SPN 

021340 



OILF 

084 1 os 

SPNUMER 

021600 



0 ! LO 

084103 

SPN 1 

03234! 



01 NX 

024107 

SPN2 

033633 



010 

084031 

SPN3 

035125 



0 1 OA 

024021 

SPRT 

021510 



OIOAC 

024151 

SRCH 

0227 ! 7 



0 1 PRO 

C24067 

SRNXT 

022725 



OIPT 

024 \ ^0 

SSEXT 

022730 



OKGO 

021615 

SSH 

0227 10 



OKSTP 

02 IP 46 

SSR 

022204 



OM 

030051 

sss 

022165 



OOUT 

024152 

statin 

03004! 



OPRT 

021521 

STOT IN 

030042 



ORN 

022065 

SUN I T 

02165C 



ORSP 

021473 

SXSHF 

022322 



PINF02 

004253 

SI 

0221 75 



PRINT 

006752 

S2 

022761 



PRTAL 

021526 

TaPCON 

003637 



PR 1 

02154! 

TB 

023172 



prb 

021 551 

TC 

012714 



PTFG 

030045 

TCN 

022 t 02 



PTH I TS 

020702 

TCPRT 

021320 



PUTIN 

023735 

TC V 

022103 



R 

022331 

TCVP4 

022772 



ROBCNT 

023034 

TC2 

023410 



RCBFf 

0230C4 

TC 3 

020275 



ROKID 

02350 1 

TEND 

023230 



READ 

012366 

TEXT 

023165 



REALHI 

030003 

TOPS 

030164 



RED! OP 

024 l 77 

TOR 

023233 



RET 

007436 

TSP 

021037 



RETC 

006257 

TSP 1 

032602 



RNC l 

020207 

TSP2 

034074 



RUNT 

023536 

TSP3 

035366 



RV 

021332 

T SSH 

023157 



RVALC 

021334 

TSSI 

024207 



RVALS 

021330 

UN ITCH 

021602 



RXR 

023534 

UPSET 

012005 



RXW 

023560 

HEIGHT 

030043 



S 

040000 

UORD 

022330 



SAGA 

030143 

XX 

740040 



5A1 A 

030122 

YEAR 

022670 



SALA 

030060 

YN 

021602 



SAHA 

030101 

YNSH 

022107 



SB 

022740 

YN 1 

0 32 1 33 



SCHB 

021573 

YN2 

033425 



SCH°A 

021564 

YN3 

034717 



SCW2I 

024214 

ZERON 

022436 
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020000 HI 3760 
020001 020076 
020002 7HI376 
020003 0227H9 
02000H 3HI376 
020005 0227H2 
020006 000000 


020020 

020021 

020022 

020023 

02002H 

020025 

020026 

020027 

020030 

020031 

020032 

020033 

02003H 

020035 

020036 

020037 



000000 

000000 

000000 

022332 

000000 

000000 

000000 

000000 

000000 

000000 

0H0000 

000000 

000000 

057700 

000000 

000000 

000000 


0200HI 


000000 


•• POPS/ 1 5 ASSEMBLY LISTING ••• 
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AD00IR-5725 

BCR- 1 3H 1 3 

BLKN0-6305 

CRLF-6737 

Df.CBLK-6922 

0CLETR-6QI7 

OIRFLO-8303 

OISONC-IOH07 

OTRCI-2535 

0TRE2-253H 

HCSAO-7000 

OOUT- 16267 

PRINT-6752 

PUNBIN-I 1600 

PUNSH-73H7 

R0BLK-2606 

ROOIR-OOSH 

REA01- 12376 

RET-7H36 

RETC-62S7 

RPAPCR- 1 1 565 

RTAPC-2600 

SC ARCH-61 HI 

UT0CC-65IH 

HTOIR-6072 

XX-7H0GH0 

/ FOCAL-RCO RUN HITH RALPH - NASA HANNEO SPACECRAFT CENTER. 
/ USES IHOEX REOISTERS: 


/ 

II. 12. 

13. IH. AND 16. 


.LOC 

20000 



HI 3760 


/ FOCAL 


START* I 




7HI376 


_ / FOCALO 


focalo 




SHI 376 


/ FOCALS 


FOCALS 

A 




.LOC 

20020 


TEXTP 

0 



XCT 

0 


/ UNPACK SHITCH 

OTEH 

0 


/ UNPACK STORAOE 

PC 

TLTZER 


/ PROGRAM COUNTER 

THISLN 

0 


/LINE PNTR FROM FINOLN 

THISOP 

0 


/ CURRENT EVAL OPER. 

LASTLN 

0 


/ BACK PNTR FROM FINOLN 

OCBOSH 

0 

/ OESUO 

SH; NONZERO FOR LITERAL 

PACKST 

0 


/ RUB-OUT PROTECTION. 

PTI 

0 


/ VAR. PNTR 

LASTV 

OUT SCO 


/ AOR OF LAST VAR. 

Tl 

0 



T3 

0 



BOTTOM 

57700 



INSUB 

0 

/ O-OETC 

- #0-R£ADC 

SORTCN 

0 


/ • IN TABLE FROM SORTC. 

LASTOP 

0 


/ LAST OPER FOR EVAL. 

EFOP-. 



/ FUNCTION CODE. 

ATSH 

0 


/ ASK - TYPE SWITCH. 


E-219 


r * 

X: 


*ry 

■f 
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020042 777760 


020043 

020044 

020049 

020046 

020047 

020090 

020091 

020092 

020093 


020060 

020061 

020062 

020063 
020064 
020069 
020066 
020067 
020070 
020071 
020072 
020073 
020074 
020079 
020076 
020077 
020100 
020101 
020102 
020303 
020104 
020109 
020106 
020107 
020110 
020111 
020112 
0201 13 
0201 IH 
020119 
020116 
020117 
020120 
020121 
020122 
020123 
020124 
020129 
020126 


040000 

002409 

000000 

000000 

000001 

000219 

000000 

000004 

000000 


000219 

000001 

777777 

020113 

020120 

020126 

777777 

026471 

026967 

022332 

026601 

026471 

040000 

791000 

602739 

200071 

040023 

206603 

040061 

140027 

200072 

063094 

202443 

740300 

600113 

760292 

126604 

777779 

040046 

200067 

040030 

043099 

102100 

101214 

020099 

000009 

102797 

600120 

102797 


CNTR 

STARTV- . 

BUFR 

FISH 

AOO 

XCTIN 

NA6SH 

CHAR 

L1NEN0 

OINC 

T2 

LIST6-. 


LIST7-. 


LISTS*. 

OHPSM 

INLIST- 


C0H6UF 

CFRS 

CFRSX 

coneoT 

END 

ENDT 

START 


I BAR 


IGNOR 


IRETN 


020094 000214 

020099 000207 

020096 000337 

020097 000212 


POPS/ 19 ASSEMBLY LISTING 
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BUFBEG 

2409 

0 

0 

1 

219 

0 

4 

0 


/ NEXT LOC IN BUFFER. 

/ PACK SWITCH 
/ LINE • - READ BY GETLN 
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020127 102757 

020130 20006? 

020131 063056 

020132 777777 

020133 040021 

020 1 3* 200035 

020135 063054 

020136 102216 

020137 103045 

020140 101421 

020141 600257 

020142 600172 

020143 440027 

020144 100202 

020145 200047 

020146 744010 

020147 750200 

020150 102454 

020151 200043 

020152 043055 

020153 777775 

020J 54 040046 

020155 200051 

020156 103057 

020157 I0304S 

020100 741000 

020161 102216 

020162 102757 

020163 777563 

020164 340050 

020165 740200 

020166 eoosei 

020167 102007 

020170 102275 

020171 600075 

020172 100402 

020173 020502 

020174 220023 

020175 741200 

020176 600075 

020177 040023 

020200 346603 

020201 600131 


020202 000000 

020203 I0304S 

020204 346605 

020205 751200 

020206 600220 

020207 140036 

020210 103026 

020211 1 0451 7 

020212 740020 

020213 652000 


••• P0P9/J5 ASSEMBLY LISTING 


in 


PAOC NO. 


3 


JMS 

PACBUF 

LAC 

COMBUF 

OONE DAC* 

AXOUT 

LAN 

-I 

OAC 

XCT 

LAC 

BOTTOM 

OAC* 

POLXR 

JMS 

OETC 

JMS 

SPNOR 

JMS 

TZSTN 

JMP 

OZERR 

JMP 

INPUTX 

ISZ 

ocbosh 

JMS 

OETLN 

LAC 

NAOSH 

RCL 


SZAICLA 


JMS 

ERRORS 

LAC 

BUFR 

OAC 

AX IN 

LAH 

-3 

OAC 

XCT IN 

LAC 

LINENO 

JMS 

STAX IN 

JMS 

SPNOR 

SKP 


JMS 

OETC 

SRETN JMS 

PACBUF 

LAH 

-215 

tao 

CHAR 

SZA 


JMP 

.-5 

JMS 

DELETE 

JMS 

ENOLN 

JMP 

START 

INPUTX JMS 

PUSHJ 

PROC 


LAC* 

PC 

SNA 


JMP 

START 

OAC 

PC 

tao 

(1) 

JMP 

OONE 

/ TEST LINE BUFFER 

FORMAT •• 

/•I POINTER OR -1 

IN LAST 

/«2 LINE NO 


/* 3 - *N*I IS TEST 


/«N CR-0 


OETLN 0 


JMS 

SPNOR 

TAO 

1-3011 

SNAICLA 


JMP 

TESTA 

OZM 

INSUB 

JMS 

OCCONV 

JMS 

FXO 

RAR 



/ SETUP CURRENT LINE 

/ IGNORE LEADING SPACES 
/ ODES LINE 0EOIN WITH 1-9? 

' £ER 100-1 LLEOAL GROUP ZERO USAGE 

• NO 


/ OAC* 10 
/ CHECK FOR C.R. 

/ PROCESS IMMEDIATE COMMAND. 

/ END OF PROGRAM? 

/ YES 



/ CALL OETC FROM INPUT VIA DECON 


LMO 
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0202 1* 3*6606 
020215 75*300 
020216 102*5* 
020217 6*0631 
020220 0M>051 
020221 101*21 
020222 102216 
020223 101*21 
02022* 600236 
020225 600250 
020226 200037 
020227 7*2010 
020230 3*0037 
020231 7*0010 
020232 3*0051 
020233 0*0051 
02023* 102216 
020235 101*21 
020236 102*5* 
020237 600250 
0202*0 200037 
0202*1 3*0051 
0202*2 0*0051 
0202*3 102216 
0202** 101*21 
0202*5 600236 
0202*S 7*1000 
0202*7 102*5* 
020250 200051 
020251 506607 
020252 7**200 
020253 7*0002 
02025* 200051 
020255 506610 
020256 7*0600 
020257 102*5* 
020260 7*0200 
020261 206611 
020262 7*0002 
020263 7*0020 
02026* 0*00*7 
020265 620202 


020266 0217** 
020267 0217*1 
020270 021037 
020271 022637 
020272 021*37 
020273 022715 
02027* 022623 
020275 022621 
020276 022625 
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TAD C-32) 

SNA I SZA 1 CLA I CLL 

JMS ERRCR2 / TOO LARGE. 

LLS 31 

TESTA DAC LINENO 

JMS TESTN 

JMS GETC / RE AO STEP « 

JMS TESTN 

JMP GERR / DOUBLE PER I COS 

JMP GEXIT / OTHER 

LAC SORTCN / NUMBER 

RTL 

TAD SORTCN 

RAL 

TAD LINENO 

DAC LINENO 

JMS GETC / REAO 2ND STEP •. 

JMS TESTN 

GERR JMS ERROR* / OOUBLE PERIODS 

JMP GEXIT /OTHER 

LAC SORTCN 

TAD LINENO 

DAC LINENO 

JMS GETC / CHECK FOR CORRECT TERM. 

JMS TESTN 

JMP GERR / . 

SKP 

JMS ERR0R2 / * TOO LARGE 

GEXIT LAC LINENO 

AND (777600) 

SZA I CLL 
CML 

LAC LINENO 

AND (177) 

SNLISZA 

GZERR JMS ERR0R2 / O.X ILLEGAL 

SZA 

LAC (200000) 

CML 

RAL 

OAC NAGSW 

JMP* GETLN 

/ RANGE OF ACCEPTABLE LINE *‘S - 1.01 TO 99 
/ NAGSW: 

/ GROUP-OOOOOO 
/ LINE -*00000 
/ ALL • I 

/ LIST OF FUNCTION ADDRESSES (NAMES ARE IN FNTABL ) 
FNTABF- . 

XA8S 

XSGN 

XINT 

FREG 

XRAN 

FOSS 

ARTN 

FEXP 

FLOG 
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020277 022627 
020300 022631 
020301 022633 
020302 022675 
020303 022700 
02030* 022*51 

020305 100202 
020306 200023 
020307 100361 
020310 100*15 
020311 100*31 
020312 0200*7 
020313 2000*7 
0203 1* 751100 
020315 6003*7 
020316 102165 
020317 7*0000 
020320 20002* 
020321 063067 
020322 22001* 
020323 100637 
02032* 102*5* 
020325 100*02 
020326 020*77 
020327 100*51 
020330 0200*7 
020331 220023 
020332 7*1200 
020333 600355 
02033* 3*6603 
020335 0*0031 
020336 2000*7 
020337 7*0300 
0203*0 6003** 
0203*1 220031 
0203*2 100637 
0203*3 600355 
0203** 220031 
0203*5 0*0051 
0203*6 600311 
0203*7 102165 
020350 102*5* 
020351 100*02 
020352 020501 
020353 100*51 
02035* 0200*7 
020355 100*23 
020356 220013 
020357 0*0023 
020360 600502 

020361 000000 
020362 0*0053 
020363 777777 
02036* 100372 
020365 200053 
020366 060013 


• ** 
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PS IN 

PCOS 

XSQRT 

PUT01S 

PUTREG 

ERR0R5 

/ RECRUSIVE OPERATE, XCT, 
00 JMS GETLN 

LAC PC 

JMS PUSHA 

JMS PUSH!' 

OGRP JMS PUSHF 

NAGSU 

LAC NAGSU 

SPA I CL A 

JMP DOONE 

JMS FI NOLI 

NOP 

LAC THISLt 

OAC* XRT 

LAC* 1 4 

JMS TSTGRF 

JMS ERRORc 

OGRP I JMS PUSHJ 

PROCESS-2 
JMS POPF 

NAGSU 

LAC* PC 

SNA 

JMP DCONT 

TAD ( I ) 

OAC PTI 

LAC NAGSU 

SMAISZA 
JMP . 

LAC* PT I 

JMS TSTGRF 

JMP OCONT 

LAC* PT 1 

OAC LINENC 

JMP OGRP 

OOONE JMS FINOLN 

JMS ERRORS 

JMS PUSHJ 

PROCESS 
JMS POPF 

NAGSU 

OCONT JMS POP I 7 

LAC* 13 

OAC PC 

JMP PROC 

/ PUSH OOUN LIST CONTROLS 
PUSHA 0 

OAC T2 

LAM -I 

JMS PCHK 

LAC T2 

OAC* 1 3 


OR CALL 

/ EXECUTE i LINE. A GROUP. OR ALL 

/ SAVE CURRENT LINE AOR. 

/ SAVE REST OF LINE. 

/ SAVE NAGSU; CHAR; AND LINENO 

/ SKIP IF GROUP OR ALL. 

/ 00 I LINE 

/ I NIT FOR GROUP AND SET THISLN 
/ TEST FOR 0000 GROUP • . 


/ NO SUCH •. 

/ XCT OBJECT LINE ANO SET PC. 
/ RESTORE DATA. 


/ ENO OF TEXT? 

/ YES 

/ SAVE PNT TO LINENO. 


/ 00 ALL 


/ NOT IN GROUP. 

/ RE AO NEXT LINL 

/ CONTINUE SUBR. 
/ FIND THE LINE. 
/ NO SUCH LINE • 
/ XCT IT. 

/ RESTORE CHAR 


/ POLXR 

/ RESTORE AOR OF CURRENT LINE. 

/ CONTINUE PROCESSING THIS LINE. 

/ PUSH AC. 

/ BACK UP POINTER 
/ THEN CHECK CORE USAGE. 


/ POLXR 
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tv 
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020367 777777 

0S0370 100372 

020371 620361 

020372 000000 

020373 363054 

020374 063054 

020375 104210 

020376 340032 

020377 751400 

020400 102454 

020401 620372 

020402 000000 

020403 220402 

020404 040053 

020405 777777 

020406 100372 

020407 200402 

020410 346603 

020411 060013 

020412 777777 

020413 100372 

020414 620053 

020415 000000 

020416 223056 

020417 040020 

020420 100431 

020421 020020 

020422 620415 

020423 OOQO'jO 

020424 100451 

020425 020020 

020426 200020 

020427 063056 

020430 620423 

020431 000000 

020432 777777 

020433 360431 

020434 440431 

020435 063067 

020436 777775 

020437 100372 

020440 777775 

020441 040052 

020442 220014 

020443 060013 

020444 440053 

020445 600442 

020446 777775 

020447 100372 

020450 62043! 

02045! 000000 

020452 777777 

020453 360451 

020454 440451 

020455 063067 • 

020456 77777$ 

020457 040053 

020460 220013 
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PCHK 


PUSHJ 


PUSH 17 


POP 17 


PUSHF 


POPF 


UAH 

-I 

JHS 

PCHK 

JHP* 

PUSHA 

0 


TAD* 

POLXR 

DAC* 

POLXR 

%MS 

CK A 

TAD 

LASTV 

SZLiCLA 


JHS 

ERR0R3 

JHP* 

PCHK 

0 


LAC* 

PUSHJ 

DAC 

T2 

UAH 

-1 

JHS 

PCHK 

LAC 

PUSHJ 

TAD 

Cl) 

DAC* 

23 

LAN 

-1 

JHS 

PCHK 

JHP* 

T2 

0 


LAC* 

AXOUT 

DAC 

TEXTP 

JHS 

PUSHF 

TEXTP 


JHP* 

PUSH 17 

0 


JHS 

POPF 

TEXTP 


LAC 

TEXTP 

DAC* 

AXOUT 

JHP* 

POP 17 

0 


LAW 

•1 

TAD* 

PUSHF 

!SZ 

PUSHF 

DAC* 

XRT 

LkU 

-3 

JHS 

PCHK 

LAW 

-3 

OAC 

T2 

LAC* 

1*4 

OAC* 

13 

ISZ 

T2 

JKP 

.-3 

LAM 

-3 

JHS 

PCHK 

JHP* 

PUSHF 

0 


LAM 

•I 

TAD* 

POPF 

ISZ 

POPF 

OAC* 

XRT 

LAM 

-3 

OAC 

T2 

LAC* 

13 


/ STORAGE FILLED 
/ RECURSIVE SUBROUTINE CALL, 
/ SAVE SU8R ADR. 

/ POLXR - SAVE RETURN 
/ TRANSFER CONSOL. 


/ SAVE FLOATING PNT *. 
/ COMPUTE VAR. ADR. 


/ POLXR 

/ RESET POINTER 
/ RESTORE FLT PNT ». 
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02046 I 

060014 

020462 

440053 

020463 

600460 

020464 

620451 

020465 

020774 

020466 

021034 

020467 

0224S1 

020470 

020762 

020471 

020501 

020472 

020504 

020473 

100202 

020474 

102444 

020475 

102165 

020476 

102454 

020477 

200024 

020500 

040023 

020501 

102216 

020502 

200050 

020503 

546612 

020504 

601451 

020505 

100614 

020506 

021256 

020507 

600501 

020510 

200050 

02051 1 

506613 

020512 

100361 

020513 

102216 

020514 

100614 

020515 

021256 

020516 

74I0G0 

020517 

600513 

020520 

220013 

020521 

101214 

020522 

020666 

020523 

000153 

020524 

1 02454 

020525 

100202 

020526 

200050 

020527 

546614 

020530 

601126 

020531 

440027 

020532 

102165 

020533 

600562 

020534 

200051 

020535 

750200 

020536 

102337 

020537 

102216 

020540 

1 02420 

020541 

200050 

020542 

546612 

020543 

741000 

020544 

600537 

020545 

220024 

020546 

741200 

020547 

600564 

020550 

346603 

020551 

040031 




f 
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DAC* 

14 


ISZ 

TS 


JMP 

.-3 


JMP* 

POPF 

FLIST2 

FLIMIT 
F INF IN 
ERRORS 


FLIST1 

FI NCR 

PROCESS 

PCI 


GOTO 

JMS 

GETLN 


JMS 

OZMTEL 


JMS 

FINOLN 


JHS 

ERR0R2 


LAC 

thisln 


OAC 

PC 

PROCESS 

JHS 

GETC 

PROC 

LAC 

CHAR 


SAD 

(215) 

PCI 

JMP 

POPJ 


JMS 

GLIST-1 

SORTC 


JMP 

PROCESS 


LAC 

CHAR 


ANO 

(377) 


JMS 

PUSHA 


JMS 

GETC 


JMS 

GLIST-1 

SKP 

SORTC 


JMP 

.-4 


LAC* 

13 


JMS 

COMLST-I 

SORTJ 


CGHGO-CQHLST 


JMS 

ERRORS 

/ OUTPUT 

COMMAND TEXT 

HR1TE 

JMS 

GETLN 


LAC 

CHAR 


SAD 

(242) 


JMP 

TGUOT 


ISZ 

0E8GSH 


JMS 

FINOLN 


JMP 

HTESTG 


LAC 

S2AICLA 

LINENO 


JMS 

PRNTLN 


JMS 

GETC 


JMS 

PRINTC 


LAC 

CHAR 


SAD 

SKP 

(215) 


JMP 

.-5 


LAC* 

THISLN 

NTEST2 

SNA 



JMP 

MX-2 


TAD 

Ml 


DAC 

PTI 


/ . -STAOARD 

/{-SHORT 

/CR-OUMB 

/, -STANDARD FORMAT 
/;-SET;PLUS. . . 

/CR-SET COMMAND 
/ READ LINE m 

/ LOCATE IT ANO RESET TEXTP. 
/ NOT THERE 

/ SET PC 


/ CR? 

/ EXIT ‘PROCESS' 

/ IGNORE ‘SPACE 1 ,ANO 


/ SAVE COMMAND CHAR. 


/ GO TO TERMINATOR 


/ XCT COMMAND 


t ILLEGAL COMMAND 
/ SET LINENO. 

/ * 

/ DISABLE TRACE 
/ • NOT THERE 


/ PRINT LINE » AND A SPACE. 
/ PRINT TEXT OF LINE. 

/ C.R? 

/ SKIP IF END OF LINE. 


/ END OF TEXT? 

/ EXIT; 00 NEXT INOIRECT LINE. 
SAVE PNT TO LINENO OF NEXT. 
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0(9991 

(00047 


LAC 

NAOSH 


0*0991 

740100 


ORA 



0*0994 

((0011 


LAC* 

PT1 


0*0999 

100017 


JHS 

TSTORP 

/ TRY Nf XT LINCNO POR OROUP. 

0*0999 

000900 


JHP 

MX 


0*0997 

((0011 

HALL 

LAC* 

PTl 

/ SCT LINCNO. 

0(0900 

040091 


OAC 

LINCNO 


0*0901 

00091* 


JHP 

NRITC*9 


0*090* 

(000(4 

HTCSTO 

LAC 

TH1SLN 

/ 1NIT OROUP PRINTOUT. 

0*0901 

000940 


JHP 

HTCSTS 


0(0904 

0400(7 


OAC 

OCSOfW 


0(0909 

001491 


JHP 

POPJ 


0(0900 

*00047 

HX 

LAC 

NAOSH 


0(0907 

791100 


SPAIONAICLA 

/ SKIP IP ALL. 

0*0970 

000904 


J HP 

HX-* 


0*0971 

10*4*0 


JHS 

PRINTC 

/ PRINT CR AOAIN 

0*097* 

000997 


JHP 

HALL 


0(0971 

000000 

TCSTC 

0 


/ TCST NATURE OP NCXT ALPHANUHCRIC 

0(0974 

101049 


JHS 

SPNOR 


0(0979 

100014 


JHS 

OORTC 


0(0970 

0(1717 


TCRH5»-I 



0(0977 

0(0971 


JHP* 

TCSTC 

/ YCS SORT/CN IS SCT. 

0(0000 

(00090 


LAC 

CHAR 

/ NO 

0*0001 

440971 


ISZ 

TCSTC 


0*000* 

940019 


SAO 

MOO) 

/ PT 

0*0001 

00001 1 


JHP 

XT1 


0*0004 

1014(1 


JHS 

TCSTN 


0*0009 

0(0971 


JHP* 

TCSTC 

/ . 

0*0000 

741000 


SKP 


/ OTHER 

0*0007 

0(0971 


JHP* 

TCSTC 

/ NUHSCR 

0*00 10 

440971 


ISZ 

TCSTC 


0(001 1 

440971 

XT! 

ISZ 

TCSTC 

/ RETURNS T.N.P.A 

0(00 1* 

790000 


CLA 



occeii 

0(0971 


JHP* 

TCSTC 


0*0014 

090000 

OORTC 

0 


/ SORT CHAR AOAINST TASLC. 

0(0019 

((0014 


LAC n 

SORTC 


0(0010 

001070 


OAC* 

XRT( 


0(0017 

((001* 


LAC* 

l( 


0*00*9 

741100 


SPA 


/ LIST CNOCO OY NCO. «. 

0(00(1 

000011 


JHP 

SCXC 


0(00(( 

104(10 


JHS 

CIA 


0(00(1 

140090 


TAD 

CHAR 


0(00(4 

740(00 


SZA 



0(00(9 

000017 


JHP 

.-0 


0(00(0 

((0014 


LAC* 

SORTC 

/ COHPUTC INCREMENT 0-N 

0(00(7 

740001 


CHA 



0(0010 

101070 


TAO* 

XRT* 


0(0011 

040017 


OAC 

SORTCN 


0(001* 

741000 


SKP 



0(0011 

440014 

SCXC 

ISZ 

SORTC 


0(0014 

440014 


ISZ 

SORTC 


0(0019 

794000 


CLAICLL 



0(0010 

0(0014 


JHP* 

SORTC 


0(0017 

000000 

TOTORP 

0 


/ AC VS LINCNO 

0(0040 

000007 


AND 

1777000) 


0(0041 

104(10 


JHS 

CIA 


0(004* 

040091 


OAC 

T( 


0(0041 

(00091 


LAC 

LINCNO 
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020644 506607 
020645 3H0053 
020646 751200 
0206H7 440637 
020650 62063? 


020651 000000 
020652 200036 
020653 740200 
020654 600657 
020655 102216 
020656 620651 
020657 123571 
620660 101214 
020661 022326 
020662 777775 
020663 620651 
020664 020734 
020665 020501 
020666 020504 

020667 000323 
020670 000306 
020671 000311 
020672 000304 
020673 000307 
020674 000303 
020675 000301 
020676 000324 
020677 000314 
020700 000317 
020701 C00305 
020702 000327 
020703 000315 
020704 000321 
020705 000322 
020706 000252 
020707 000272 
020710 000332 
020711 777777 


020712 100573 
020713 101466 
020714 463054 
020715 101774 
020716 777776 
020717 040033 
020720 204175 
020721 740200 
020722 621046 
020723 104214 
020724 440033 
020725 751000 
020726 621046 
020727 101214 
02C73Q 021257 


pi "rf 
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AND 

C 777600) 



TAO 

T2 



SNA 1 CL A 




ISZ 

TSTGRP 



JMP* 

TSTGRP 


/ INPUT 

FROM TEXT 

OR KEYBOARD; 


/ BACKARROM RESTARTS INPUT 


INPUT 

0 




LAC 

INSUB 



SZA 

/ 

KEYBOARD? 


JMP 

.♦3 / 

YES 


JMS 

GETC 



JMP* 

INPUT 



JMS* 

INFLT 



JMS 

SORTJ 



SPECIAL- 

1 



INFIX-SPECIAL 



JMP* 

INPUT 


ILIST 

IF1 

/ 



PROCESS 

/ 

; 


PCI 

/ 

CR 

COMLST-. 





323 

/ SET 



306 

/ FOR 



311 

/ IF 



30H 

/ DO 



307 

/ GOTO 



303 

/ COMMENT 



301 

/ ASK 



32H 

/ TYPE 



31 H 

/ LIBRARY 



317 / OUT PUT DATA 

305 / ERASE 

327 / WRITE 

315 / MOOIFY 

321 / 0U1T 

322 / RETURN 

252 / • -EXPANDABLE CONHANO 

272 / : HS FLT OUT 

332 / Z FOR RETURN TO RALPH... 

“1 / END OF LIST 

/ THIS COMMAND IS SPEED OPTIMIZED* 

/ CONDITIONAL TRANSFER PROCESS 
IF JMS TESTC 

JMS ECALL / T 

ISZ- POLXR / N-OUMP THE (EFOPl 

JMS PARTEST / F -CHECK FOR PAREN MATCH 

LAH -2 / A 

OAC T 1 

LAC AC / TEST Ft AC ) -.0.- 

SZA 

JMP* C0MG0+4 / NEC 

JMS ACZ 

1F3 1SZ T 1 

SKPlCLA 

JMP- CONGO *4 / TRANSFER 

JMS SORTJ / SEARCH TEST TIL . ;CR 

TLIST-I 
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020731 

777404 


ILIST-TLIST 

020732 

102216 


JMS 

OETC 

020733 

600727 


JMP 

. -* 

020734 

102216 

IF 1 

JMS 

OETC 

020735 

600724 


JMP 

IF3 



/ LOOP 

CONTROL STATEMENT 



SET* . 



020736 

100402 

FOR 

JMS 

PUSHJ 

020737 

021267 


GETARG 


020740 

103045 


JMS 

SPNOR 

020741 

546616 


SAD 

<275> 

020742 

741000 


SKP 


020743 

I 02454 


JMS 

ERROR* 

020744 

200031 


LAC 

PT1 

020745 

100361 


JMS 

PUSHA 

020746 

100402 


JMS 

PUSHJ 

020747 

021477 


EVAL-I 


020750 

220013 


LAC* 

13 

020751 

040031 


OAC 

PT! 

020752 

104071 


JMS 

EIM 

020753 

060031 


FPUT* 

PT! 

020754 

740000 


NOP 


020755 

750000 


CLA 


020756 

101214 


JMS 

SORTJ 

020757 

021257 


TLIST-1 


020760 

777210 


FUST1- 

TL 1ST 

020761 

102454 


JMS 

ERROR* 

620762 

200031 

FINCR 

LAC 

PTI 

030763 

100361 


JMS 

PUSHA 

0C0764 

100402 


JMS 

PUSHJ 

021765 

021477 


EVAL-t 


021V766 

100431 


JMS 

PUSHF 

020767 

021757 


FLARG 


020770 

101214 


JMS 

SORT J 

020771 

021257 


TLIST-I 


020772 

777205 


FLIST2- 

TLIST 

020773 

102454 


JMS 

ERROR* 

020774 

100402 

FLIMIT 

JMS 

PUSHJ 

020775 

021477 


EVAL-I 


020776 

100431 


JMS 

PUSHF 

020777 

021757 


FLARG 


021000 

100415 

FCONT 

JMS 

PUSH 17 

021001 

100402 


JMS 

PUSHJ 

021002 

020501 


PROCESS 


021003 

100423 


JMS 

POP 17 

021004 

100451 


JMS 

POPF 

021005 

021656 


ITERI 


021006 

100451 


JMS 

POPF 

021007 

021757 


FLARG 


021010 

220013 


LAC* 

13 

02101 1 

040031 


OAC 

PTI 

021012 

104071 


JMS 

EIM 

021013 

220031 


FGET* 

PTI 

021014 

301656 


FSUH 

ITERI 

021015 

060031 


FPUT* 

PTI 

021016 

341757 


FHIN 

FLARG 

021017 

740000 


NOP 


021020 

204175 


LAC 

AC 


PAGE NO. 


/ MOVE PAST COMMA. 

/ SUBSET OF ‘FOR’. 

/ LOOPS. ETC. 

/ LOOK FOR » 

/ LEFT OF • IN ERROR 
/ SAVE POINTER TO VAR. 

/ GET INITIAL VALUE EXPRESSION. 


/ LIM 


/ SAVE VAR. AOR. 


/ SAVE LIMIT 
/ TEST TERMINATORS 


/ ILLEGAL TERM IN FOR 

/GET THE I NCR. 

/ SAVE I NCR. 

/ SAVE TEXT OF OBJECT. 

/ 00 OBJECT STATEMENTS 
/ RESTORE T T 

/ POP I NCR. 

/ POP LIMIT. 

/ GET VAR. AOR 


/ LIM 
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021021 

741200 

021022 

104214 

021023 

741000 

02 1024 

601451 

021025 

200031 

021026 

100361 

021027 

100431 

021030 

021757 

021031 

100431 

021032 

021656 

021033 

601000 

021 03** 

100431 

021035 

022334 

021036 

601000 

021037 

104540 

021040 

104332 

021041 

601747 

021042 

020736 

021043 

020736 

021044 

020712 

021045 

02030S 

021046 

020473 

021047 

020504 

021050 

021064 

021051 

021065 

021052 

023101 

021053 

023573 

021054 

022127 

021055 

020525 

021056 

021 154 

021057 

020075 

021060 

021447 

021061 

023516 

021062 

02354! 

021063 

006257 

021064 

750001 

021065 

040041 

021066 

140027 

02IQ67 

750000 

021070 

101214 

021071 

021251 

021072 

000203 

021073 

440041 

021074 

601 1 17 

021075 

100402 

021076 

021267 

021077 

200050 

021100 

100361 

021101 

203537 

021 102 

740200 

021103 

SOI iu6 

021104 

760272 

021 1 OS 

102420 

021106 

440036 

021107 

104071 


Ei 

■J 
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SNA 

JMS 

SKP 

JMP 

LAC 

JMS 

JMS 

FLARG 

JMS 

I TER I 

JMP 

F I NF I N JMS 

FLTONE 

JMP 

/TAKE INTEGER PART 

XI NT jms 

JMS 
JMP 

COMGO- . 


ACZ 

POPJ 

PTI 

PUSHA 

PUSHF 

PUSHF 

FCONT 

PUSHF 

FCONT 

F I XL 
FLOQ 
EFUN3 


/ SKIP IF NEG. 

/ NEG OR 0. 

/ SAVE AOR. 

/ SET (NCR TO I . 

' FLOAT integer PART 


SET 

FOR 

IF 

00 

GOTO 

PCI / COMMEN 

ASK 

TYPE 

LIBRARY 

DATA 

ERASE 

WRITE 

MODIFY 

START 

RETRN 

HSPX 

HSOUT 

RETC 

/ INPUT-OUTPUT 
ASK CLC 


TYPE oac atsw 

task ozm OEBGSW 

CLA 

JMS SORTJ 

ALIST-I 
ATLIST-AL 1ST 
ISZ ATSW 

JMP TYPE2 

JMS PUSHJ 

GET ARC 

LAC CHAR 

JMS PUSHA 

LAC HSPXSW 

SZA 

JMP . ♦3 

LAM 272 

JMS PRINTC 

ISZ INSUB 

JMS EIM 


/ RETURN TO tOMMANO MOOE VIA QUIT. 

/ SPECIAL CHAR? 

/ TYPE OR ASK? 

/ TYPE 

/ SAVE IN-LINE CHAR 


/ PRINT : IF TTY. 
/ TYPE : 

/ I NO I CATE READ 
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fj 

fi 

fj 

u 

H 

r? 


021110 moos I 

021133 060031 

021 1 12 7 **0000 

021 1 13 1 40036 

021 1 I** 220013 

021 1 19 0H0090 

021116 60 1 06** 

021117 I00H02 

021120 021900 

021121 101*071 

021122 92307** 

021123 7 **0000 

021 1 2** 790000 

021129 601069 

021126 ****0027 

021127 102216 

021130 I0I2IH 

021131 021263 

021132 001036 

021133 I02H20 

02113*4 60*127 

021139 102216 

021136 100202 

021137 200091 

02ll*t0 0*t00**H 

021 1 HI I0H071 

021 1**2 6600HH 

021 1**3 7 **0000 

021 1 •*•* 601066 

021 1**9 206612 

021 i**6 123079 

021 1 **7 601192 

021130 206612 

021191 102H20 

021192 102216 

021193 601066 


021 1 9** 100202 
021199 102169 
021196 1 02**9*» 
021197 2000**3 
021 160 0H3099 
021161 777779 
021 162 0**00**6 
021 163 200091 
02116** 103097 
021 169 203099 
021 166 0H0030 
021167 I02**01 
021170 OH0061 
021 871 ****0027 
021172 102216 
021173 I02H20 
02117** 10121** 
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021179 020037 

021170 001170 

021177 102797 

021200 001172 

021201 2000*43 

021202 3*0003 

021203 0*3099 

02120* 777779 

021209 0*00*0 

021200 102100 

021207 10121* 

021210 020093 

02121 1 001170 

021212 102797 

021213 001200 

02121* 000000 

021219 7*1200 

021210 200030 

021217 10*210 

021220 0*0093 

021221 22121* 

021222 **121* 

02 I 223 063070 

02122* 220012 

021229 7*1100 

021220 0012*1 

021227 3*0093 

021230 7*0200 

021231 00122* 

021232 223070 

021233 36121* 

02123* 0*0093 

021239 220093 

021236 0*0033 

021237 790000 

0212*0 020053 

0212*1 **121* 

0212*2 79*000 

0212*3 02121* 

0212** 021172 

0212*3 021167 

0212*6 021201 

0212*7 021170 

021290 020102 

021251 02121.2 

021292 S002*9 

021293 0002*2 

02125* 0002*1 

021253 0002*3 

021230 0002** 

021297 0002*0 

021200 00023* 

021261 000273 
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LISTS- I 



LISTOO- 

LIST3 


jus 

PACBUF 


JHP 

SCHAR 

SBAR 

LAC 

BUFR 


TAO 

( 1 ) 


OAC 

AX I N 


-3 



OAC 

XCTIN 

sfouno 

JHS 

REAOC 


JHS 

SORTJ 


LISTS-1 



SRNLST-I 

LISTS 

SOOT 

JHS 

PACBUF 


JHP 

SFOUNO 

SORTJ 

0 



SNA 



LAC 

CHAR 


JHS 

CIA 


OAC 

T2 


LAC* 

SORTj 


ISZ 

SORTJ 


OAC* 

XRT2 


LAC* 

12 


SPA 



JHP 

SEX 


tad 

T2 


SZA 



JHP 

.-5 


LAC* 

XRT2 


TAD* 

SORTJ 


OAC 

T2 


LAC* 

T2 


OAC 

T2 


CLA 



JHP* 

T2 

sex 

ISZ 

SORTJ 


CLAICLL 



JHP* 

SORTJ 

SRNLST-. 




SCHAR 

/ F.F. • 


SCONT 

/ SELL - 


SOAR 

/ B.A. * 


SCONT* i 

/ L.F. - 

LISTGQ® . 




SR£TN 

/ C.R. - 


SOOT 

/ CHAR - 

AL 1ST* . 




245 

/ * 


242 

/ • 


241 

/ EXCLAM 


243 

/ c 


244 

/ S 

GLIST*. 




240 

/ SPACE 


/ SAVE NEH LINE 


/ READ PROM TTY 
/ TEST 


/ PACK CHAR. 

/ MORE 

/ SORT AND BRANCH ROUTINE 
/ ASSUME CHAR IF AC-0. 

/ SAVE SORT ITEM. 


/ REAO EXIT 

/ FIND MATCH? 
/ NO 


/ MATCH NOT FOUND. 

/ RETURN TO CALLING SEO. 

/ MODIFY CONTROL TABLE 
CONTINUE 

CHANGE SEARCH CHAR. 

RESTART 

FINISH LINE AS BEFORE 

END LINE HERE S IS 
SEARCH CHAR 

/ ASK-TYPE LIST OF CONTROLS. 


TLIST-. 


29* 

273 


/ . 
/ ; 
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321262 000219 

021263 777777 

02 1 26* 0002*2 

021269 000219 

021266 77777? 

021267 100973 

021270 7*0000 

021271 7*0000 

021272 102*9* 

021273 777779 

02127* 0*00*6 

021279 102797 

021276 2000*9 

021277 7**000 

021300 6*071* 

021301 0*00*9 

021302 102216 

021303 10061* 

02130* 021717 

021309 601330 

021306 200090 

021307 906617 

021310 660706 

021311 3*00*9 

021312 0*00*9 

021313 102216 

02131* 10061* 

021319 021717 

021316 601330 

021317 200090 

021320 9066 1 7 

021321 3*00*9 

021322 0*00*9 

021323 102216 

02132* 10061* 

021329 021717 

021326 601330 

021327 601323 

021330 101762 

021331 6013*1 

021332 2000*9 

021333 0*00*1 

02133* 101*66 

021339 220013 

021336 0*00*9 

021337 10177* 

0213*0 10*9*0 

0213*1 0*30*9 

0213*2 2000*3 

0213*3 0*0031 

0213** 10*210 

0213*9 3*0032 

0213*6 7*1300 

0213*7 601360 

021390 220031 

021391 10*210 

021392 3*00*9 

021393 791200 
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LISTING '== PAGE NO. 

021354 

601404 


JMP 

GFND1 

/ FOUND XX. 

021355 

200031 

GSH 

LAC 

PT1 

/ TRY NEXT. 

021356 

340052 


TAD 

GINC 


021357 

601343 


JMP 

GS3 


021360 

200032 

GS2 

LAC 

LASTV 

/ ADO THE VAR. 

021361 

346620 


TAD 

C 13) 


021362 

104210 


JMS 

CIA 


021363 

363054 


TAD* 

PDLXR 


021364 

750400 


SNLICLA 


/ TEST STORAGE LIMITS. 

021365 

102454 


JMS 

ERROR3 


021366 

200032 


LAC 

LASTV 


021367 

340052 


TAD 

GINC 

/ UPDATE LIST. 

021370 

040032 


DAC 

LASTV 


021371 

200045 


LAC 

ADD 

/ SAVE NAME 

021372 

060031 


DAC* 

PT1 


021373 

440031 


ISZ 

PT1 


021374 

203045 


LAC 

SUBS 

/ SAVE SUBSCRIPT. 

021375 

060031 


DAC* 

PT1 


021376 

440031 


ISZ 

PT1 


021377 

104071 


JMS 

EIM 


021400 

750000 


CLA 


/ FCLA 

021401 

060031 


FPUT • 

PT 1 


021402 

740000 


NOP 



021403 

601451 


JMP 

POPJ 


021404 

200031 

GFND1 

LAC 

PT 1 


021405 

063067 


DAC* 

XRT 

/ TEST SUBSCRIPTS 

021406 

220014 


LAC* 

14 


021407 

104210 


JMS 

CIA 


021410 

343045 


TAD 

SUBS 


02141 1 

750200 


SZA1CLA 



021412 

601355 


JMP 

GS4 

/ WRONG SUBSCRIPT 

021413 

440031 


ISZ 

PTI 


021414 

440031 


ISZ 

PT 1 


021415 

601451 


JMP 

POPJ 


021416 

000000 

RANO 

0 


/ RANDOM • STORAGE 

021417 

200000 


200000 



021420 

000000 


0 



021421 

000000 

TESTN 

0 


/ RETURNS: OTHER- OR • 

021422 

200050 


LAC 

CHAR 


021423 

546621 


SAD 

(256) 

/ PERIOD? 

021424 

741000 


SKP 



021425 

441421 


ISZ 

TESTN 

/ NO 

021426 

346622 


TAD 

(-260) 


021427 

040037 


DAC 

SORTCN 

/ SAVE VALUE OF #. 

021430 

755100 


SPA ICLA1 CLL 

/ TEST FOR DIGIT. 

021431 

621421 


JMP* 

TESTN 

/ OTHER 

021432 

777507 


LAN 

-271 


021433 

340050 


TAD 

CHAR 


021434 

755300 


SPA 1 SNA 1 CLA 1 CLL 


021435 

44142 1 


ISZ 

TESTN 

/ m 

021436 

621421 


JMP* 

TESTN 


021437 

104071 

XRAN 

JMS 

EIM 

/ PSUEOO-RANOOM * GENERATOR. 

021440 

302415 


FSUM 

RANO 

/ ADO RUNNING RESULT TO ARG. 

021441 

401444 


FHUL 

.♦3 


021442 

041416 


FPUT 

RANO 

/ HOW 

021443 

740000 


NOP 



021444 

141420 


DZN 

RANO+2 

/ CONVERT TO ,5 THRU .999 

021445 

144176 


OZM 

AC+ 1 

/ SAME TO F ( AC ) . 
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021446 601747 

02 1447 200071 
02 1450 040023 
021491 220013 
021452 040053 
021453 750000 
021454 620053 

021455 021135 
021456 021126 
021457 021150 
021460 021145 
021461 022554 
021462 021152 
021463 021152 
021464 020501 
021465 020504 


021466 000000 
021467 200037 
021470 100361 
021471 200040 
021472 100361 
021473 200041 
021474 100361 
021475 201466 
021476 100361 
021477 102216 
021500 040040 
021501 100573 
021502 601517 
021503 601661 
021504 601673 
021505 100402 
021506 021273 
021507 100573 
021510 601534 
021511 740000 
021512 740000 
021513 102454 
021514 000212 
021515 000377 
021516 777777 
021517 200071 
021920 040031 
021521 777776 
021522 340037 
021523 741200 
021524 601537 
021525 346603 
021526 741200 
021527 601644 
021530 777767 
021531 340037 
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JMP EFUN3 

/EXIT FROM A 00 SUBROUTINE 
RETRN LAC CFRSX / IPC) ■> 0 

OAC PC 

POPJ LAC* 13 / RECURSIVE EXIT 

OAC T2 

CLA 

JMP* . T2 

ATLIST-. / ASK-TYPE CONTROL CHAR TABLE 

TINTR / t FORMAT DELIMITER 

TOUOT / “ LITERAL OELIMITER 

TCRLF / I CR AND LF 

TCRLF2 / • CR ONLY 

TOUMP / S / OUMP SYMBOL TABLE 

TASK4 / SP TERM FOR NAMES . 

TASK4 / . TERM FOR EXPRESSIONS 

PROCESS / ; TERM FOR COMMANDS 

PCI / CR TERM FOR STRINGS 

/ S FOR TOUMP TERMINATES COMMAND. 

/ EVALUATE EXPRESSION HHICH 
/ TERMINATES MITH AN R-PAREN ; OR CR ANO 
/ LEAVE RESULT IN Ft AC> ANO FLARG. 

ECALL 0 / RECURSIVE CALL TO EVAL 


EVAL 

OPNEXT 

ECHOLST 

ETERMI 
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021532 

741100 


SPA 



021533 

601713 


JMP 

ELPAR 

/ MIGHT BE LEFT PAREN. 

021534 

101762 

ETERMN 

JMS 

TSTLPR 

021535 

741000 


SKP 



021536 

102454 


JMS 

ERR0R4 

/ OPR HISSING BEFORE PAREN 

021537 

200037 

ETERM 

LAC 

SORTCN 

/ SET FMOM TESTC TO SORTC . 

021540 

040025 


OAC 

THISOP 

021541 

346623 


TAD 

(-11) 


021542 

740100 


SMA 


/ ENO? 

021543 

140025 


OZM 

THISOP 

/ THISOP • END OF EXP. 

021544 

200025 

ETERM2 

LAC 

THISOP 

021545 

104210 


JMS 

CIA 

/ COMPARE PRIORITIES. 

021546 

340040 


TAD 

LASTOP 

021547 

745100 


SPAICLL 



021550 

601631 


JMP 

EPAR 

/ CONTINUE 

021551 

200040 


LAC 

LASTOP 


021552 

506624 


AND 

(7) 


021553 

741200 


SNA 



021554 

206611 


LAC 

(200000) 


021555 

546605 


SAD 

( 1 1 


021556 

206625 


LAC 

(300000) 


021557 

546626 


SAD 

(2) 


021560 

206627 


LAC 

(340000) 


02156! 

546630 


SAD 

(.31 


021562 

206631 


LAC 

(440000) 


021563 

546632 


SAD 

(4) 


021 '564 

206633 


LAC 

(400000) 


021565 

546634 


SAD 

(5) 


021566 

601617 


JMP 

UPAR 


021567 

341652 


TAD 

OPTABL 


021570 

041602 


DAC 

PLOP 


021571 

200040 


LAC 

LASTOP 


021572 

751200 


SNA 1 CL A 


/ ENO OF DATA INTO FlACl? 

021573 

601601 


JMP 

.♦6 

021574 

100451 


JMS 

POPP 

/ GET LAST OATA. 

021575 

021653 


PTEMP 



021576 

104071 


JMS 

EIM 


021577 

201653 


POET 

PTEMP 


021600 

740000 


NOP 



021601 

104071 


JMS 

EIM 


021602 

000000 

PLOP 

0 


/ FLOPR* PTI 

021603 

041757 


PPUT 

PLARO 


021604 

740000 


NOP 



021605 

206635 


LAC 

(PLARO) 


021606 

040031 


OAC 

PT1 


021607 

200025 


LAC 

THISOP 


021610 

340040 


TAD 

LASTOP 


02161 1 

741200 


SNA 



021612 

601451 


JMP 

POPJ 

/EXIT EVAL 

021613 

220013 


LAC* 

13 

/ GET PRIOR OPR. 

021614 

040040 


DAC 

LASTOP 


021615 

601544 


JMP 

ETERM2 


021616 

101622 


JMS 

PUPAR 


021617 

201619 

UPAR 

LAC 

.-1 


021620 

041602 


OAC 

PLOP 


021621 

601571 


JMP 

PLOP- 1 1 


021622 

000000 

PUPA* 

0 



021623 

105570 


JMS 

LOO 



JE-235 


03/01/73 FOCAL-RCD RUN WITH RALPH 




02162*4 10*4071 

021625 *420031 

021626 105667 

021627 1 0H07 1 

021630 621622 

021631 101762 

021632 7*41000 

021633 601715 

02163H 2000*40 

021635 100361 

021636 200031 

021637 0*416*41 

Q21640 100*431 

0216*41 000000 

0216*42 200025 

0216*43 0*400*40 

0216*4*4 102216 

0216*45 100573 

0216*46 601713 

02 1 6*47 601661 

021650 601673 

021651 601505 

021652 020031 

021653 000000 

02165*4 000000 

021655 000000 

021656 000000 

021657 000000 

021660 000000 

021661 206635 

021662 0*40031 

021663 1 *46*463 

02 1 66*4 1 0*4071 

021665 0**1653 

021666 I *4065 1 

021667 060031 

021670 201653 

021671 7*40000 

021672 601507 

021673 0*400*41 

02167*4 102216 

021675 10061*4 

021676 021717 

021677 60170*4 

021700 2000*41 

02 1 70 1 7*4*40 1 0 

021702 3*40050 

021703 601673 

02170*4 101762 

021705 1 02*45*4 

021706 101*465 

021707 220013 

021710 10121*4 

021711 022106 

021712 776157 

021713 101762 

02171*4 1 02*45*4 

021715 101*466 
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JMS 

ESM 




FMUL* 

PT1 




JMS 

EXP 




JMS 

E1M 




JMP* 

FUPAR 



EPAR 

JMS 

TSTLPR 

/ 

TEST FOR SUB-EXPRESSION. 


SKP 





JMP 

EPAR2 

/ 

EVALUATE EXPRESSION. 


LAC 

LASTOP 

/ 

CONT REAOING EXPRESSION. 


JMS 

PUSHA 

/ 

SAVE LASTOP. 


LAC 

PTI 




DAC 

.♦e 




JMS 

PUSHF 

/ 

SAVE LAST ARG. 


0 

LAC 

THISOP 




DAC 

LASTOP 



ARGNXT 

JMS 

GETC 

/ 

REAO 1ST CHAR OF ARG. 


JMS 

TESTC 




JMP 

ELPAR 

/ 

MAY BE L PAREN. 


JMP 

ENUM 

/ 

N 


JMP 

EFUN 

/ 

F 


JMP 

OPNEXT-2 

/ 

L 

OPTABL 

CAL* 

PTI 



FTEMP 

0 

0 


/ 

TEMP FLOATING AC. 

ITER1 

0 

0 

0 




ENUH 

0 

LAC 

(FLARG) 




DAC 

PTI 




DZM 

INFLG 

/ 

PICK UP CHAR. 


JMS 

EIM 




FPUT 

FTEMP 

/ 

SAVE Ft AC I 


DZM 

INPUT 

/ 

GET FLOATING *. 


FPUT* 

PTI 




FGET 

FTEMP 




NOR 





JMP 

OPNEXT 



EFUN 

OAC 

EFOP ' 




JMS 

GETC 

/ 

REAO FUNCTION NAME (1.2. OPR 3 LETTERS) 


JMS 

SORTC 

/ 

TERM CHAR? 


TERMS- 

1 




■Ljn 
wl IT 

EFUN2 

/ 

YES 


LAC 

EFOP 




RCL 


i 

MISH-MASH HASH COOE . 


TAD 

CHAR 




JMP 

EFUN 



EFUN2 

JHS 

TSTLPR 




JMS 

ERROR** 

/ 

FOLLOH WITH PARENS TO SET ARG. 


JMS 

ECALL 




LAC* 

13 

/ 

BRNACH ON FUNC COOE; RETURN VIA EFUN3I 


JMS 

SORTJ 




FNTABL 

-I 




FNTABF 

-FNTABL 



ELPAR 

JMS 

TSTLPR 




JHS 

ERROR** 

/ 

DOUBLE OPR OR ILLEGAL FUNC NAME. 

EPAR2 

JHS 

ECALL 

/ 

EVAL NESTED EXPR. 
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021716 

463054 


ISZ* 

POLXR 

021717 

601747 


JMP 

EFUN3 



TERMS" . 



021720 

000240 


240 

/ SPACE 

021721 

000253 


253 

/ ♦ 

021722 

000255 


255 

/ - 

021723 

000257 


257 

/ / 

021724 

000252 


252 

/ * 

021725 

000336 


336 

/ UPARR 

021726 

000250 


250 


021727 

000333 


333 

/LBRACKT 

021730 

000274 


274 

/ < 

021731 

000251 


251 

/ ) 

021732 

000335 


335 

/RBRACKT 

021733 

000276 


276 

/ > 

021734 

000254 


254 

/ , 

021735 

000273 


273 

/ ; 

021736 

000215 


215 

/ CR 

021737 

000275 


275 

/ • 

021740 

777777 


-1 

/ END OF 



/ TWO MINOR FUNCTIONS 

021741 

204175 

XSGN 

LAC 

AC 

021742 

104332 


JMS 

floq 

021743 

601747 


JMP 

EFUN3 

021744 

201760 

XABS 

LAC 

FLARG* 1 

021745 

751100 


SPAICLA 


021746 

144175 


DZM 

AC 

021747 

104731 

EFUN3 

JMS 

NOR 

021750 

104071 


JMS 

E1M 

021751 

041757 


FPUT 

FLARG 

021752 

740000 


NOP 


021753 

206635 


LAC 

(FLARG) 

021754 

040031 


OAC 

PT1 

021755 

101774 


JMS 

PARTEST 

021756 

601507 


JMP 

OPNEXT 

021757 

000000 

FLARG 

0 


021760 

000000 


0 


021761 

000000 


0 


021762 

000000 

TSTLPR 

0 


021763 

777767 


LAW 

-I I 

021764 

340037 


TAD 

SORTCN 

021765 

750100 


SNA 1 CL A 


021766 

621762 


JMP* 

TSTLPR 

021767 

777773 


LAW 

-5 

021770 

340037 


TAO 

SORTCN 

021771 

750300 


SMA1SZA1 

CLA 

021772 

441762 


ISZ 

TSTLPR 

021773 

621762 


JMP* 

TSTLPR 

021774 

000000 

PARTEST 

0 


021775 

220013 


LAC* 

13 

021776 

040040 


OAC 

LASTOP 

021777 

206630 


LAC 

(3) 

022000 

360013 


TAO* 

13 

022001 

104210 


JHS 

CIA 

022002 

340037 


TAO 

SORTCN 

022003 

740200 


SZA 


022004 

102454 


JHS 

ERR0R4 

022005 

102216 


JHS 

GETC 


/ DUMP EXTRA ARC. 

/ TERM TABLE FOR EVAL ANO GET VAR 

0 

a 

3 

4 

5 

/ C LEFT PAREN 6 
7 
10 
1 1 
12 
13 
m 

15 

16 

LIST 


/ NORMALIZE FUNC RET. 
/ SAVE FUNC VAL. 


/ SKIP IF LEFT PAREN. 


/ TEST PAREN MATCHES 


/(STILL SET FROM LAST EVAL) 


/ MOVE PAST R-PAREN. 
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022006 62177* 


022007 

022010 

022011 

022012 

022013 

02201* 

022016 

022016 

022017 

022020 

022021 

022022 

022023 

02202 * 

022025 

022026 

022027 

022030 

022031 

022032 

022033 

02203* 

022035 

022036 

022037 

0220*0 

0220*1 

0220*2 

0220*3 

0220 ** 

0220*5 

0220*6 

0220*7 

022050 

022051 

022052 

022053 

02205* 

022055 

022056 

022057 

022060 

022061 

022062 

022063 

02206* 

022065 

022066 

022067 

022070 

022071 

022072 

022073 

02207* 

022075 

022076 


000000 

102165 

622007 

**0027 

102216 

200050 

5*6612 

7*1000 

602013 

223056 

7*0001 

3*002* 

0 * 00*2 

200070 

10*210 

3*002* 

751200 

600075 

22002 * 

060026 

200070 

0*0053 

220053 

7*1200 

602052 

0*0033 

20002 * 

10*210 

3*0033 

751*00 

2000*2 

3*0033 

060053 

200033 

60203* 

750001 

3*002* 

063067 

2000*2 

7*0001 

3*002* 

063070 

2000*2 

3*00*3 

0*00*3 

203055 

7*0001 

363070 

0*0033 

203055 

3*00*2 

0*3055 

220012 

06001* 

**0033 

602073 
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/ DELETE 
DELETE 


OOK 


OONE 


JHP* 

A LINE 
0 

JMS 

JMP* 

ISZ 

JMS 

LAC 

SAD 

SKP 

JMP 

LAC # 

CMA 

TAD 

OAC 

LAC 

JMS 

TAO 

SNA I CLA 
JMP 
LAC* 
OAC* 

LAC 

DAC 

LAC* 

SNA 

JMP 

OAC 

LAC 

JMS 

TAO 

SZLICLA 

LAC 

TAO 

OAC* 

LAC 

JMP 

CLC 

TAO 

DAC* 

LAC 

CMA 

TAD 

OAC* 

LAC 

TAD 

OAC 

LAC 

CMA 

TAO* 

OAC 

LAC 

TAO 

OAC 

LAC* 

OAC* 

K5Z 

JMP 


PARTEST 


FINOLN 

OELETE 

0E9GSH 

GEYC 

CHAR 

1215) 

.-* 

AXOUT 

THISLN 

CNTR 

CFRS 

CIA 

THISLN 

START 

THISLN 

LASTLN 

CFRS 

T2 

T2 

DONE 

Tl 

THISLN 

CIA 

Tl 

CNTR 

Tl 

T2 

Tl 

DDK 

THISLN 

XRT 

CNTR 

THISLN 

XRT2 

CNTR 

BUFR 

BUFR 

AXIN 

XRT2 

Tl 

AXIN 

CNTR 

AXIN 

12 

I* 

Tl 
. -3 


/ SETS TH1S1N ANO LASTIN. 
/ ALREADY DONE 
/ DISABLE TRACE 
/ MEASURE LENGTH 

/ CR? 

/ YES 


/ LENGTH 

/ ILLEGAL TO OELETE 1ST LINE. 


/ DISCONNECT. 

/ START LIST AT TOP. 


/ TEST FOR END. 


/ CHANGE IX) TO ACCOUNT FOR 
/ GARBAGE. 


/ BACK UP LINE FOR XR. 


/ SIPHON LOWER PART. 


E-238 


FOCAL -RCO RUN MITH RALPH 

••• P0P9/I! 

022077 

6020 10 


JHP 

022100 

000000 

READC 

0 

022101 

1 0240 1 


JHS 

022102 

7H1 200 


SNA 

022103 

602101 


JHP 

02210H 

040050 


DAC 

02210S 

750000 


CLA 

022106 

622100 


JHP* 



FNTABL- 

# 

022107 

002533 


2533 

022110 

002650 


2650 

022111 

002636 


2636 

0221 12 

002631 


2631 

022113 

002630 


2630 

022114 

002565 


2555 

0221 IS 

002572 


2572 

022116 

002624 


2624 

022117 

002625 


2625 

022120 

002654 


2654 

022121 

002575 


2575 

022122 

002702 


2702 

022123 

005765 


5765 

022124 

006031 


6031 

022125 

000330 


0330 

022126 

777777 


-1 



/ ERASE 

SINGLE L 

022127 

100573 

ERASE 

JHS 

022130 

602162 


JHP 

022131 

602145 


JHP 

022132 

602136 


JHP 

022133 

200050 


LAC 

022134 

546636 


SAD 

022135 

741000 


SKP 

022136 

1 02454 


JHS 

022137 

200074 

ERT 

LAC 

022140 

040043 


DAC 

022141 

160070 


D2H* 

022142 

200043 

ERV 

LAC 

022143 

040032 


DAC 

022144 

600075 


JHP 

022145 

100202 

ERL 

JHS 

022146 

200043 


LAC 

022147 

043055 


DAC 

022150 

1 02007 

ERG 

JHS 

022151 

440024 


ISZ 

022152 

200047 


LAC 

022153 

750100 


SNA I CLA 

022154 

220024 


LAC* 

022155 

100637 


JHS 

022156 

602142 


JHP 

022157 

220024 


LAC* 

022160 

040051 


DAC 

022161 

602150 


JHP 

022162 

200043 

ERVX 

LAC 

022163 

040032 


DAC 

022164 

601451 


JHP 



/ ROUTINE 

FINOLN. 



/ SEARCH FOR GIVEI 


PAGE NO. 


OELETE* 

INDEV 

.-e 

CHAR 

READC 


I / RESET LASTN. THISLN 
/ READ IN A CHAR. 


/ IT 0, TRY AGAIN. 


TESTC 

ERVX 

ERL 

.♦4 

CHAR 

(301 ) 

ERR0R3 

ENDT 

BUFR 

CFRS 

STARTV 

LASTV 

START 

GETLN 

BUFR 

AXIN 

DELETE 

THISLN 

NAGSH 

THISLN 

TSTGRP 

ERV 

THISLN 

LINENO 

ERG 

STARTV 

LASTV 

POPJ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


ABS 

SGN 

ITR 

REG 

RAN 

0!S 

ATN 

EXP 

LOG 

SIN 

COS 

SOT 

PD IS 

PREG 

X 


OR VARIABLES. 

/ TEST 2N0 WORD IF ANY. 
/ ERASE VAR. 

/ LINES OR GROUPS 
/ ERROR 
/ ALL TEXT 


/ BAD ARG FOR ERASE. 
/ ERASE ALL TEXT** 


/ ERASE VAR. 

/ POINTERS HAY BE DIFFERENT NOW. 
/ ERASE LINES. 

/ PROTECT REST OF TEXT. 

/ EXTRAC* ME LINE. 


/ SKIP IF G ( AC ) - G (LINENO) 


/ INI T VAR. 


'(LINENO) 
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022165 

000000 

022166 

200070 

022167 

040026 

022170 

040024 

022171 

063067 

022172 

200051 

022173 

104210 

022174 

360014 

022175 

741200 

022176 

602207 

022177 

751400 

022200 

602210 

022201 

200024 

022202 

040026 

022203 

220024 

022204 

741200 

022205 

602210 

022206 

602170 

022207 

442165 

022210 

200024 

022211 

346603 

022212 

063056 

022213 

750001 

022214 

040021 

022215 

622165 

022216 

000000 

022217 

102252 

022220 

751100 

022221 

206837 

022222 

346640 

022223 

340050 

022224 

741200 

022225 

602240 

022226 

346641 

022227 

040050 

022230 

200027 

022231 

340061 

022232 

751200 

022233 

102420 

022234 

622216 

022235 

102252 

022236 

740001 

022237 

602220 

022240 

200027 

022241 

750200 

022242 

602250 

022243 

200061 

022244 

751200 

022245 

206603 

022246 

040061 

022247 

602217 

022250 

346642 

022251 

602227 
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/ 1ST RETURN IF NOT FOUND. 

/ 2ND RETURN IF FOUNO. 

/ THISLN - FOUNO LINE OR LARGER. 


/ LASTLN - LESSER AND/OR LAST 


/ TEXTP 

IS SET 


FINDLN 

0 



LAC 

CFRS 


DAC 

LASTLN 

FINDN 

OAC 

THISLN 


DAC* 

XRT 


LAC 

LINENO 


JHS 

CIA 


TAD* 

SNA 

14 


JHP 

SZLICLA 

FEND3-1 


JHP 

FEND3 


LAC 

THISLN 


OAC 

LASTLN 


LAC* 

SNA 

THISLN 


JHP 

FEND3 


JHP 

FINDN 


ISZ 

FINDLN 

FEND3 

LAC 

THISLN 


TAD 

( 1 ) 


DAC* 

CLC 

AXOUT 


OAC 

XCT 


JHP* 

FINDLN 

GETC 

0 



JMS 

GET 1 

UTE 

SPA 1 CL A 



LAC 

(100) 


TAD 

(-137) 


TAD 

SNA 

CHAR 


JHP 

UTX 


TAD 

(337) 

UTQ 

DAC 

CHAR 


LAC 

DE6GSH 


TAD 

SNA 1 CL A 

DHPSW 


JMS 

PRINTC 


JHP* 

GETC 

EXTR 

JHS 

CHA 

GET 1 


JHP 

UTE 

UTX 

LAC 

SZA1CLA 

OEBGSW 


JHP 

.♦6 


LAC 

SNA! CL A 

OMPSM 


LAC 

(1) 


DAC 

DHPSW 


JHP 

GE1C* 1 


TAD 

(277) 


JHP 

UTQ 


/ INIT POINTERS TO 1ST LINE. 


/ LINENO-O WILL ALSO BF FOUND. 

/ FOUND IT. 

/ PAST IT. 

/ MOVE POINTERS. 

/ END OF TEXT? 

/ YES 

/ 2ND EX IT -FOUNO. 

/ 1ST EX IT -NOT FOUND. 

/ SET TEXTP 


/ 300-337 t 3NQ-376 
/ 240-276 l 200-236 


/ ? FOUND 


/ PRINT ONL. :F BOTH 0. 


/ TEST FOR TRACE ENABLE 


/FLIP TRACE 


/ GET NEXT CHAR INSTEAD. 

/ TRACE DISABLE -RETUPN ? 


E-240 




RCD RUN WITH 

RALPH 

• • * 

POPS/ I 5 

ASSEMBLY LISTING*** PAGE 

082258 

000000 

GET 1 

0 

/ UNPACK 6 BITS. 

088853 

44002! 


1SZ 

XCT 

082254 

741000 


SKP 


082255 

608871 


JMP 

GET3 

022256 

200022 


LAC 

GTEM 

022257 

640514 

GEND 

LRS 

14 

088860 

506617 


AND 

(77) 

022261 

040050 


DAC 

CHAR 

022262 

641002 


LACQ 


088863 

040028 


DAC 

GTEM 

022264 

200050 


LAC 

CHAR 

022265 

546617 


SAD 

(77) 

022266 

602235 


JMP 

EXTR 

022267 

346643 


TAD 

(-40) 

022270 

682258 


JMP* 

GET! 

082871 

777775 

GET3 

LAW 

-3 

028872 

040021 


DAC 

XCT 

022273 

220016 


LAC* 

16 

022274 

602257 


JMP 

GEND 

022275 

000000 

ENDLN 

0 

/ TERM BUFFERED LINE... 

022276 

880026 


LAC* 

LASTLN / SAVE OLD POINTER. 

028277 

060043 


DAC* 

BUFR 

022300 

200043 


LAC 

BUFR / POINT TO NEW LAST LINE 

022301 

060026 


DAC* 

LASTLN 

022302 

200045 


LAC 

AOD 

022303 

745200 


SNA 1 CLL 


022304 

602314 


JMP 

.♦10 

088305 

652000 


LMQ 


022306 

777776 


-2 


088307 

540046 


SAD 

XCT IN 

082310 

640606 


LLS 

6 

022311 

640606 


LLS 

6 

022312 

641002 


LACQ 


022313 

103057 


JMS 

STAX IN 

022314 

203055 


LAC 

AX IN / COMPUTE NEW END OF BUFFER. 

022315 

346603 


tad 

( 1 ) 

022316 

040043 


DAC 

BUFR 

028317 

800043 


LAC 

START V / RESET VAR LIST. 

022320 

040032 


DAC 

LASTV 

022321 

622275 


JMP* 

ENDLN 



TLIST3-. 


/ LITERAL TERMINATORS. 

028388 

021 152 


TASK4 

/ - 

022383 

023654 


LT 

/ CR * AUTO QUOTE MATCH. 



INFIX*. 


/ DATA CONTP 

022384 

026256 


F INPUT* 1 

/ LEFT ARROW - KILL 

022325 

020658 


INPUT* 1 

/ L.F. - IGNORE 

022326 

777777 


-1 




SPECIAL*. 



022387 

000337 


337 

/ LEFT ARROW 

022330 

000212 


212 

/LINE FEED 

022331 

777777 


-l 


022332 

000000 

FLT2ER 

0 

/ ML 

022333 

000000 


0 

/ S*MH 

022334 

000001 

FLTONE 

1 

/ EXP #S ARE OVERLAPPED IF 3 WORO. 

022335 

200000 


200000 


022336 

0G0001 


1 


022337 

000000 

PRNTLN 

0 

/ PRINT LINE • 

022340 

200051 


LAC 

LINENO 


23 
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022341 

652000 


LHQ 



022342 

640613 


LLS 

13 


022343 

506617 


AND 

(77) 


022344 

102355 


JHS 

PRNT 


022345 

760256 


LAM 

256 

/ PRINT . FOR SEPARATION 

022346 

102420 


JHS 

PRINTC 


022347 

200051 


LAC 

LiNENO 


022350 

1 02355 


JHS 

PRNT 

/ TMO DIGIT STEP • 

022351 

777640 


LAM 

-140 


022352 

040050 


OAC 

CHAR 


022353 

1 02420 


JHS 

PRINTC 

/ PRINT TRAILING SPACE 

022354 

622337 


JHP* 

PRNTLN 


022355 

000000 

PRNT 

0 


/ PRINT 2 OEC. DIGITS. 

022356 

506610 


AND 

( 177) 


022357 

040033 


DAC 

Tl 


022360 

206644 


LAC 

(260) 


022361 

040034 


DAC 

T3 


022362 

602365 


JHP 

.♦3 


022363 

440034 


ISZ 

T3 


022364 

040033 

XY2 

DAC 

Tl 


022365 

200033 


LAC 

TI 


022366 

346645 


TAD 

(-12) 


022367 

740100 


SHA 



022370 

602363 


JHP 

XYZ-1 


022371 

200034 


LAC 

T3 


022372 

1 02420 


JHS 

PRINTC 


022373 

200033 


LAC 

Tl 


022374 

346644 


TAD 

(260) 


022375 

102420 


JHS 

PRINTC 


022376 

622355 


JHP* 

PRNT 


022377 

123100 


JHS* 

INI 0 


022400 

622401 


JHP* 

INOEV 


022401 

000000 

INOEV 

0 



022402 

202443 


LAC 

TELSM 


022403 

740300 


SZAISHA 



022404 

602377 


JHP 

INOEV-2 


022405 

126646 


JHS® 

(READ1 ) 

/ DEMAND A CHAR FROM TTY. 

022406 

546647 


SAD 

(220) 


022407 

600111 


JHP 

I BAR-2 


022410 

546612 


SAD 

(215) 


022411 

741000 


SKP 



022412 

622401 


JHP* 

INOEV 


022413 

126650 


JHS* 

(CRLF) 


022414 

206612 


LAC 

(215) 


022415 

622401 


JHP* 

INDEV 


022416 

123075 


JHS* 

OUT 10 


022417 

622420 


JHP* 

PRINTC 


022420 

000000 

PRINTC 

0 


/ OUTPUT A CHAR 

022421 

506613 


AND 

( 377 j 


022422 

741200 


SNA 



022423 

200050 


LAC 

CHAR 


022424 

042401 


DAC 

INOEV 

/ SAVE CHAR. 

022425 

202443 


LAC 

TELSM 


022426 

751100 


SPA 1 CL A 


/ TEL OR PAPER? 

022427 

602416 


JHP 

PRINTC-2 


022430 

202401 


LAC 

INOEV 


022431 

543651 


SAD 

(3761 

/ ALT MODE? 

022432 

602441 


JHP 

TELSM-2 

/ YES 
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022433 

C22434 

G£2435 

022436 

022437 

022440 

022441 

022442 

022443 

022444 

022445 

022446 

022447 

022450 

022451 

022452 

022453 


022454 

022455 

022456 

022457 

022460 

022461 

022462 

022463 

022464 

022465 

022466 

022467 

022470 

022471 

022472 

022473 

022474 

022475 

022476 

022477 

022500 

022501 

022502 

022503 

022504 

022505 

022506 

022507 

C22510 

022511 

0225E2 

022513 

022514 

022515 

022516 

022517 

022520 

022521 


540612 

602441 

740200 

126604 

750000 

622420 

126650 

602437 

000000 

000000 

142443 

206604 

043075 

622444 

200053 

042454 

741000 


000000 

750001 

342454 

040051 

777760 

040042 

206652 

043055 

750000 

103057 

440042 

602464 

102444 

760277 

102420 

200051 

126653 

440023 

220023 

741200 

602507 

040051 

760300 

102420 

760240 

102420 

102337 

760215 

102420 

103560 

206626 

044206 

600075 

777775 

540046 

602532 

200045 

744000 


TELSN 

OZMTEL 


/ ERROR 
ERR0R5 


ERRORS- 

ERR0R3- 

ERR0R4 


RECOVX 


sue i 
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PAGE NO. 25 


SAD 

(815) 



JMP 

7ELSH-8 



SZA 


f 00N ’ T 

PRINT NULLS. 

JHS* 

(PRINT) 



CLA 




JHP* 

PRINTC 



JHS* 

(CRLF) 



JM? 

.-3 



0 




0 




DZH 

TELSW 



LAC 

(PRINT) 



OAC 

OUTIO 



JHP* 

OZMTEL 



RECOVERY 

PROCEDURE 



LAC 

T8 



OAC 

.♦8 

/ ERROR 

CALLED FROM TABLE 

SKP 





0 


/ LIMIT EXCEEOEO 

CLC 


/ COMPUTE CALLING AOR 

TAO 

ERR0R2 

/ ANO USE AS ERROR CODE 

OAC 

LINENO 

/ SAVE CODE. 

LAN 

-20 


OAC 

CNTR 


LAC 

< iOBur-n 


OAC 

AXIN 


CLA 



JHS 

STAXIN 


ISZ 

CNTR 

/ OONE? 

JHP 

.-3 

/ NO 

JHS 

OZMTEL 


LAN 

277 


JHS 

PRINTC 

/ PRINT A ? 

LAC 

LINENO 


JHS* 

(OOUT) 

/ PRINT ERROR • 

ISZ 

PC 


LAC* 

PC 


SNA 



JMP 

.♦7 


OAC 

LINENO 


LAN 

300 

/ ATSIGN 

JHS 

PRINTC 


LAN 

240 


JHS 

PRINTC 

/ PRINT SPACE. 

JHS 

PRNTLN 

/ PRINT LINE OF ERROR. 

LAN 

215 


JHS 

PRINTC 


JHS 

HSRSET 


LAC 

(2) 

/ SET OATA MOOE 

OAC 

OH 


JHP 

START 


LAN 

-3 


SAD 

XCTIN 


JHP 

RUBS 


LAC 

ADD 


CLL 
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022922 

6*0506 


LR5 

6 

022923 

0*00*5 


DAC 

AOD 

02292* 

777777 


-1 


022929 

3*00*6 


TAO 

XCTIN 

022926 

0*00*6 

RUB* 

OAC 

XCT1N 

022527 

76033* 


LAN 

33* 

022930 

12660* 


JMS* 

tPRINTl 

022531 

622757 


JMP* 

PACBUF 

022932 

203055 

RU82 

LAC 

AX IN 

022933 

10*210 


JMS 

CIA 

02253* 

3*0030 


TAO 

PACKST 

022935 

750100 


SMAiCLA 


022936 

602527 


JMP 

RUB** 1 

022937 

1025*7 


JMS 

RUBS 

0225*0 

103063 


JMS 

LACK IN 

0229*1 

7**000 


CLL 


0229*2 

6*0506 


LRS 

6 

0225*3 

0*00*9 


OAC 

AOD 

0229** 

1025*7 


JMS 

RUBS 

0229*9 

777777 


-1 


0229*6 

602926 


JMP 

RUB* 

0229*7 

000000 

RU83 

0 


022990 

777777 


-1 


022991 

3*3059 


TAO 

AXIN 

022992 

0*3055 


OAC 

AXIN 

022953 

6225*7 


JMP* 

RUB3 



/ SYMBOL 

tabu typeout 

02295* 

2000*3 

TOUHP 

LAC 

STARTV 

022599 

0*0031 


OAC 

PT! 

022956 

200032 


LAC 

LASTV 

022957 

10*210 


JMS 

CIA 

022960 

3*0031 


TAO 

PT! 

022561 

751200 


SNAICLA 


022962 

60n5l 


JMP 

POPs! 

022963 

220031 


LAC* 

PTI 

02296* 

0*6*65 


OAC 

OP+I 

022565 

206*6* 


LAC 

OP 

022966 

063056 


OAC* 

AXOUT 

02296? 

777777 


LAN 


022570 

0*0021 


OAC 

XCT 

022571 

102216 


JMS 

CETC 

022572 

102*20 


JMS 

PR INTO 

022973 

102216 


JMS 

OETC 

02297* 

102*20 


JMS 

PR INTO 

022975 

102216 


JMS 

OETC 

022976 

102*20 


JMS 

PRINTC 

022577 

102216 


JMS 

OETC 

022600 

102*20 


JMS 

PRINTC 

022601 

**0031 


ISZ 

PTI 

022602 

220031 


LAC* 

PTI 

022603 

102355 


JMS 

PRNT 

02260* 

102216 


JMS 

OETC 

022605 

102*20 


JMS 

PRINTC 

022606 

**0031 


ISZ 

PTI 

022607 

10*071 


JMS 

cm 

022610 

220031 


FOCT* 

PTI 

022611 

502*20 


AND 

PRINTC 

022612 

7*0000 


NOP 



/ END OF LIST 


/ SETUP UNPACK PNTRS. 


/ RE AO AND PRINT 


/ PRINT > 
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022613 

760215 


02261V 

I02V20 


022615 

777776 


022616 

3V0052 


022617 

3V0031 


022620 

602555 


022621 

105667 

FEXP 

022622 

60I7V7 


022623 

I053V7 

ARTN 

02262V 

60I7V7 


022625 

105570 

FLOG 

022626 

60I7V7 


022627 

1 05V 76 

FSIN 

022630 

60I7V7 


022631 

105V65 

FCOS 

022632 

60I7V7 


022633 

I0V07I 

XSORT 

02263V 

7V6000 


022635 

7V0000 


022636 

60I7V7 


022637 

I026V7 

FREG 

G226V0 

0V26V2 


0226V 1 

I0V07I 


0226V2 

7V7002 


0226V3 

222757 


0226VV 

7V7002 


0226V5 

7V0000 


0226V6 

6017V7 


0226V7 

000000 

FREQR 

022650 

I0V5V0 


022651 

7VI300 


022652 

I02V5V 


022653 

652000 


02265V 

3V665V 


022655 

7V03P3 


022656 

I02V5V 


022657 

6VI002 


022660 

5V6603 


022661 

751091 


022662 

5V6626 


022663 

602671 


02266V 

7VV0I0 


022665 

3V665S 


022666 

0V2757 


022667 

2026VV 


022670 

6226V7 


022671 

3V6656 

FREG I 

022672 

0V2757 


022673 

206657 


02287V 

6226V7 


022675 

102721 

PUTOIS 

022676 

202717 


022677 

7V1000 


022700 

I026V7 

PUTREG 

022701 

3V2710 


022702 

10177V 


022703 

220013 


02270V 

220013 
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PAGE NO 


LAN 

215 

JMS 

PR1NTC 

LAN 

-2 

TAD 

OINC 

TAO 

PTI 

JMP 

TOUHP* 1 

JHS 

EXP 

JMP 

EFUN3 

JHS 

ATN 

JMP 

EFUN3 

JMS 

LOG 

JMP 

EFUN3 

JMS 

SIN 

JMP 

EFUN3 

JMS 

COS 

JMP 

EFUN3 

JMS 

EIH 

NOP+6000 


NOP 


JMP 

EFUN3 

JMS 

FREGR 

OAC 

.♦2 

JMS 

EIH 

7*7002 


POET* 

PACBUF 

7*7002 


NOP 


JMP 

EFUN3 

0 


JMS 

fixl 

SNA 1 SPA 


JMS 

ERR0R2 

LHQ 


TAO 

<-viv> 

SMA1SZA 


JMS 

ERRORS 

LACQ 


SAD 

Ml 

SKPICLC 


SAD 

(2) 

JMP 

FREG1 

RCL 


TAO 

(166001 

OAC 

PACBUF 

LAC 

FREG«5 

uHP* 

FREGR 

TAO 

(166011 

OAC 

PACBUF 

LAC 

(7V7003I 

JMP* 

FREGR 

JMS 

FOISR 

LAC 

F0IS«2 

SKP 


JMS 

FREGR 

OAC 

.♦7 

JMS 

PARTEST 

LAC* 

13 

LAC* 

13 


• NODE 2 


/ • TOO SHALL. 

/ SAVE AC 

/ * TOO LARGE. 

/ REG US ARE OATA MODE 3. 
/ AOR OF OATA REGISTERS. 

/ MODE S 

/ NODE 3 


S7 
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082705 

0*0031 


OAC 

PT1 



022706 

10*071 


JMS 

EIM 



022707 

220031 


FGET* 

PTI 



022710 

7*7002 


7*7002 




022711 

062757 


FPUT* 

PACBUF 



022712 

7*7002 


7*7002 




022713 

7*0000 


NOP 




02271* 

601*51 


JMP 

POPJ 



022715 

102721 

FOIS 

JMS 

FDISR 



022716 

10*071 


JMS 

EIM 



022717 

7*7001 


7*7001 


/ 

MOOE 1 

022720 

6026*3 


JMP 

FREGR-* 



022721 

000000 

FDISR 

0 




022722 

10*5*0 


JMS 

FI XL 



022723 

7*1100 


SPA 




02272* 

1 02*5* 


JMS 

ERR0R2 

/ 

* CAN'T BE 

022725 

652000 


LMQ 




022726 

3*6660 


TAD 

C-*00> 



022727 

7*0100 


SMA 




022730 

102*5* 


JMS 

ERR0R2 

/ 

• TOO LARGE. 

022731 

6*1002 


LACO 




022732 

366661 


TAO* 

(OISONE) 

✓ 

01 SPLAY ADDRESS 

022733 

0*2757 


OAC 

PACBUF 



02273* 

622721 


JMP* 

FDISR 



022735 

206662 

BEGIN 

LAC 

(MESFOC ) 



022736 

126663 


JMS* 

(HE SAG) 



022737 

203300 


LAC 

KILL*3 



0227*0 

0*0C76 


DAC 

START* 1 



0227*1 

602137 


JMP 

ERT 



0227*2 

20666* 

FOCALS 

LAC 

( ) 

/ 

GIVE DO COMMAND 

0227*3 

600131 


JMP 

GONE 



0227** 

0*7715 


0*7715 




0227*5 

206665 

FOCALG 

LAC 

i , * 1 5 



0227*6 

600131 


JMP 

GONE 



0227*7 

1**01 1 


1**01 1 




022750 

*00217 


*00217 


f 

L 1 BOOT 

022751 

172*77 


172*77 




022752 

157715 


157715 




022753 

061703 

MESFOC 

061703 


/ 

FOC 

02275* 

011*55 


011*55 


/ 

AL- 

022755 

22030* 


22030* 



RCD 

022756 

000000 


0 




022757 

000000 

PACBUF 

0 




022760 

200050 


LAC 

CHAR 



022761 

5*6613 


SAD 

( 377 ) 



022762 

602515 


JMP 

RU61 



022763 

5*66*2 


SAD 

(277) 



02276* 

206666 


LAC 

(37) 



022765 

5*6651 


SAD 

(376) 



022766 

602777 


JMP 

PCK1-* 



022767 

5*6612 


SAD 

(215) 



022770 

602773 


JMP 

. *3 



022771 

103003 


JMS 

PCK1 



022772 

622757 


JMP* 

PACBUF 



022773 

760077 


LA U 

77 



02277* 

103003 


JMS 

PCK1 



022775 

760015 


LAN 

15 



022776 

602771 


JMP 

. *5 
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022777 760077 

023000 103003 

023001 760076 

023002 602771 

023003 000000 

02300* 660506 

023005 2000*5 

023006 6*0606 

023007 0*00*5 

023010 **00*6 

023011 623003 

023012 103057 

023013 3*00*5 

02301* 777775 

023015 0*00*6 

023016 22305* 

023017 10*210 

023020 3*6620 

023021 3*3055 

023022 75**00 

023023 623003 

02302* 102*5* 

023025 6063*0 

023026 000000 

023027 1*6*63 

023030 203025 

023031 0*6**2 

023032 0*6**5 

023033 10*071 

02303* 1*0651 

023035 7*0000 

023036 2030*3 

023037 0*6**2 

0230*0 2030** 

0230*! 0*6**5 

0230*2 623026 

0230*3 606322 

0230** 60637* 

0230*5 000000 

0230*6 200050 

0230*7 5*6667 

023050 7*1000 

023051 6230*5 

023052 102216 

023053 6030*6 

02305* 000013 

023055 000000 

023056 000016 

023057 000000 

023060 **3055 

023061 063055 

023062 623057 

023063 000000 

02306* **3055 

023065 223055 

023C66 623063 

023067 00001* 
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LAW 

77 


JMS 

PCK1 


LAM 

76 


J HP 

.-11 

PCK1 

0 



LRSS 

6 


LAC 

AOD 


LLS 

6 


OAC 

AOD 


IS Z 

XCTIN 


JMP* 

PCK1 


JMS 

STAXIN 


OZM 

AOD 


LAM 

-3 


OAC 

XCTIN 


LAC* 

PDLXR 


JMS 

CIA 


TAO 

( 13) 


TAO 

AXIN 


SNL1CLLICLA 


JMP* 

PCKI 


JMS 

ERR0R2 


JMP 

I NAN 

DECONV 

0 



OZM 

INFLG 


LAC 

DECONV- 1 


OAC 

ECHK 


OAC 

PERCHK 


JMS 

EIH 


OZM 

NOP 

INPUT 


LAC 

-♦5 


OAC 

ECHK 


LAC 

.♦* 


OAC 

PERCHK 


JMP* 

DECONV 


JMP 

EXPN-1 


JMP 

DEC I 

SPNOR 

0 



LAC 

CHAR 


SAD 

SKP 

(2*0) 


JMP* 

SPNOR 


JMS 

GETC 


JMP 

SPNOR* 1 

SUBS "SPNOR 


PDLXR 

13 


AXIN 

0 


AXOUT 

16 


STAX IN 

0 



ISZ 

AXIN 


OAC* 

AXIN 


JMP* 

STAXIN 

LACK IN 

0 



ISZ 

AXIN 


LAC* 

AXIN 


JMP* 

LACK IN 

XRT 

l<* 



/ CHECK TOR OVERFLOW 


/ CAUSE FLT PNT PACKAGE TO EXIT 
/ ON E OR . 

/ INPUT ». 

/ RESTORE FLOATING INPUT. 


/ PSEUDO INDEX REG 10. 

/ TREAT AXIN AS AN INDEX REG 10. 
/ AS IF OAC* 10 

/ AS IF LAC* 10 


*3 
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30 


023070 

0000X2 

XRT2 

12 


02307! 

00000 X 

I0SM 

1 


023072 

020651 

10 

INPUT 

/ INPUT ROUTINE SM. 

023073 

000000 

TERBUF 

0 

/ TERM BUFFER INDICATOR 

02307H 

022*420 

outflt 

PRINTC 

/ OUT ROUTINE FOR FLOATING POINT. 

023075 

006752 

OUT 10 

PRINT 

/ OUTPUT ROUTINE SH. 

023076 

031X77 

8UF0UT 

31X77 

/ ADR OF OUTBUF FOR OECTAPE 

023077 

777775 

BUFCNT 

-3 


023100 

023623 

1NIO 

PREAD 


023! OX 

1 030*45 

LIBRARY 

JMS 

SPNOR 

023102 

1*43572 


DZH 

OECPAP 

023103 

1 0 12 1 *4 


JMS 

SORTJ 

023X0H 

023106 


LIBLST- 1 


023X05 

0000X3 


LIBGO-LIBLST 

023X06 

X 02*45*4 


JMS 

ERR0R2 / INAPROPRIATE COMMAND. 

023X07 

0003X7 

LIBLST 

317 

/ 0 

0231 XO 

000327 


327 

/ M 

023 X X X 

000303 


303 

/ C 

023X12 

0003X1 


311 

/ I 

0231X3 

00032*4 


32*4 

/ T 

023 X X*4 

000313 


313 

/ K 

023XX5 

00030*4 


30*4 

/ 0 

023XX6 

0003X *4 


31*4 

/ L 

023X17 

000323 


323 

/ S 

023X20 

000320 


320 

/ P 

023I2X 

777777 


-X 


023X22 

023 13*4 

LX 660 

OECOPN 

/ OPEN FILE 

023X23 

0232*43 


DECMT 

/ MRITE 

023X2*4 

02326*4 


OECLOS 

/ CLOSE FILE 

023X25 

023*423 


OECIN 

/ INPUT FILE 

023X26 

023275 


KILL 

/ KILL FILE 

023X27 

023275 


KILL 


023130 

0233*47 


OECDEL 

/ OELETE FILE 

023 X 3 X 

023360 


OECLIB 

/ PRINT INOEX 

023X32 

023753 


RSEQ 

/ READ SEQ. 

023X33 

023771 


PSEQ 

/ PUNCH SEQ. 

023 13*4 

1*43071 

OECOPN 

OZM 

XOSM / INDICATE FILL OPEN 

023X35 

103161 


JMS 

DEC6ET 

023X36 

777775 


LAN 

-3 

023X37 

0*43077 


OAC 

BUFCNT 

023 X HO 

603300 


JMP 

K ILL+3 

0231*41 

000000 

DECGT 1 

0 


0231*42 

1 *400*45 


OZM 

ADD 

0231*43 

777775 


LAM 

-3 / GET 3 CHAR 

0231*4*4 

0*432*42 


OAC 

DEC NT 

023 ! *45 

1022X6 


JMS 

GETC 

0231 *46 

103QH5 


JMS 

SPNOP 

023 1 *47 

7*4*4002 


STL 

/ SET LINK TO INDICATE END 

023150 

5H6612 


SAD 

(2X5! 

023151 

6231*41 


JMP* 

OECGT1 

023X52 

660506 


LRSS 

6 

023153 

2000*45 


LAC 

ADD 

02315*4 

6*40606 


LLS 

6 

023155 

0*400*45 


OAC 

ADD 

023156 

*4*432*42 


1SZ 

OECNT 

023157 

6031*45 


JMP 

OECGT 1 ♦H 

023160 

6231 HI 


JMP* 

DECGT 1 

023161 

000000 

OCCGET 

0 
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023162 

103111 

023163 

200015 

02316** 

066670 

023165 

030100 

023166 

110015 

023167 

711200 

023170 

623161 

023171 

710100 

023172 

103111 

023173 

200015 

023 I7H 

066671 

023175 

030377 

023176 

126672 

023177 

710200 

023200 

102151 

023201 

103210 

023202 

226673 

023203 

066671 

02320** 

066673 

023205 

206676 

023206 

013076 

023207 

623161 

023210 

000000 

02321 1 

203071 

023212 

710200 

023213 

603216 

02321** 

126677 

023215 

711000 

023216 

126700 

023217 

226701 

023220 

710200 

023221 

102151 

023222 

623210 

023223 

000000 

02322** 

652000 

023225 

777775 

023226 

013161 

023227 

611606 

023230 

711200 

023231 

603237 

023232 

316613 

023233 

711 100 

02323** 

31663? 

023235 

316667 

023236 

126601 

023237 

113161 

0232H0 

603227 

023211 

623223 

023212 

000000 

023213 

203071 

023211 

710200 

023215 

102151 

023216 

102216 

023217 

777777 

023250 

012113 

023251 

*26670 

023252 

710200 

023253 

603256 


CHECK 


OECPRT 


OECNT 

OECHT 
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JMS 

LAC 

OAC* 

OAC 

DZM 

SNA 

JMP* 

SNL 

JMS 

LAC 

OAC* 

OAC 

JMS* 

SZA 

JMS 

JMS 

LAC* 

OAC* 

OAC* 

LAC 

OAC 

JMP* 

0 

LAC 

SZA 

JMP 

JMS* 

SKP 

JMS* 

LAC* 

SZA 

JMS 

JMP* 

0 

LMQ 

LAM 

OAC 

611606 

SNA 

JMP 

TAD 

SPA 

TAO 

TAO 

JMS* 

ISZ 

JMP 

JMP* 

0 

LAC 

SZA 

JMS 

JMS 

LAN 

OAC 

LAC* 

SZA 

JMP 


OECGTI / READ 3 CHAR 
AOO 

(DTRE2) 

10100 / 30100 

AOO 

/ DONE? 

OECGET / YES 

/ C.R? 

OECGTI / NO 

AOO 

(DTREi) / LOU ORDER 

10377 / 30377 

(ROOIR) / READ OIRECTORY 

/ BAD READ? 

ERROR** / YES 

CHECK / RETURN IF ALL OK IN DIR. 
(BLKNO) 

(OECBLK) / SETUP BLOCK. 

(R08LK) 

(31 1775 

BUFOUT 

OECGET 

I OSH 

/ OUT OR IN? 

. *3 

(AOOOIR) / OUT. 

(SEARCH) / IN. 

(OIRFLG) 

ERROR** 

CHECK 


-3 

OECGET / SET TO PRINT 3 CHAR 
/ CLA LLS 6 

.♦6 

(- 10 ) 

/ FORM ALPHA! ...ERIC CODE. 

( 100 ) 

( 2 ** 0 ) 

(PRINT) 

OECGET 

.-II 

OECPRT 

I OSH 

ERROR** / MUST OPEN FILE FIRST. 

GETC 

-I 

TELSM / SET TO OECTAPE OUTPUT. 
iDTREB) 


.♦3 


/ PAPER PUNCH? 
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02325V 

206702 


LAC 

023255 

7VI000 


SKP 

023256 

206703 


LAC 

023257 

0V3075 


OAC 

023260 

I00V02 


JHS 

023261 

029525 


HRITE 

023262 

I02VVV 


JHS 

023263 

60IV5I 


JHP 

02326V 

203071 

OECLOS 

LAC 

023265 

7V0200 


SZA 

023266 

I02V5V 


JHS 

023267 

226670 


LAC* 

023270 

751200 


SNA 1 CL) 

023271 

603275 


JHP 

023272 

VV3073 


1SZ 

023273 

10331 1 


JHS 

02327V 

12670V 


JHS* 

023275 

1V3572 

KILL 

OZH 

023276 

206603 


LAC 

023277 

0V307I 


OAC 

023300 

I02VVV 


JHS 

023301 

103560 


JHS 

023302 

60IVSI 


JHP 

023303 

000000 

OECPUT 

0 

02330V 

7VI200 


SNA 

023305 

202 VO 1 


LAC 

023306 

7V0200 


SZA 

023307 

10331 1 


JHS 

023310 

623303 


JHP* 

02331 1 

000000 

OECO 

0 

023312 

508613 


AND 

023313 

5V6705 


SAD 

02331V 

6233)1 


JHP* 

023315 

652000 


LKG 

023316 

200050 


LAC 

023317 

0V3210 


OAC 

023320 

6VI002 


LACQ 

023321 

0V0050 


OAC 

023322 

2036V5 


LAC 

023323 

ovoovs 


OAC 

02332V 

203077 


LAC 

023325 

0V00V6 


OAC 

023326 

203076 


LAC 

023327 

0V3055 


OAC 

023330 

102757 


JHS 

023331 

203210 


LAC 

023332 

0V0050 


OAC 

023333 

2000V5 


LAC 

02333V 

0V36V5 


OAC 

023335 

2000V6 


LAC 

023336 

0V3077 


OAC 

023337 

203055 


LAC 

0233V0 

0V3076 


OAC 

0233V 1 

SV6706 


SAD 

0233V2 

603V06 


JHP 

0233V3 

203073 


LAC 

0233VV 

750200 


SZA 1 CL A 

0233V5 

603315 


JHP 


ASSEMBLY LISTING ••• PAGE NO. 32 

(PUNCH) / YES 

(OECPUT) / OUT ROUTINE. 

OUT 10 
PUSHJ 

OZHTEL 
POPJ 
I OSH 

ERROR 1 * / CAN'T CLOSE FILE IF NOT OPEN. 

(DTRE2) 

/ PAPER PUNCH? 

KILL / YES 

TERBUF / SET CLOSE FLAG 

DECO 

(UTOIR) 

OECPAP 

(I) 

I OSH 

DZMTEL / SET TO CLOSED FILE. 

HSRSET 

POPJ 


INDEV 

/ DON'T OUTPUT 0. 

OECO 

OECPUT 

(377) 

( 212 ) 

OECO 

/ SAVE AC 

CHAR / SAVE CHAR 

CHECK 

CHAR 

PUNCH 

ADD 

BUFCNT 

XCTIN / SET UP REG. FOR PCKI. 

BUFOUT 

AX IN 

PACBUF 

CHECK / RESTORE CHAR. 

CHAR 

ADO 

PUNCH 

XCTIN / SAVE PCKI REGS. 

BUFCNT 
AX IN 
BUFOUT 

(31577) / BUFFER FULL? 

OECO I / YES 

TEROUF 

DECO*** / ZERO REST OF BUF. 
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023346 

023347 

023350 

023351 

023352 

027.353 

023354 

023325 

023356 

023357 

023360 

023361 

023362 

023363 

023364 

023365 

023366 

023367 

023370 

023371 

023372 

023373 

023374 

023375 

023376 

023377 

023400 

023401 

023402 

023403 

023404 

023405 

023406 

023407 

023410 

923411 

023412 

023413 

023414 

023415 

023416 

023417 

023420 

023421 

023422 

023423 

023424 

023425 

023426 

023427 

023430 

023431 

023432 

023433 

023434 

023435 

023436 

023437 


623311 

750001 OECOEL 

043071 

103161 

226670 

066707 

226671 

066710 

126711 

603274 

126672 0ECL1B 

212603 

741200 

601451 

104210 

043242 

206712 

043141 

346713 

043434 

443141 0ECL11 

443434 

223141 

741200 

603372 

103223 

223434 

103223 

126650 

443242 

603372 

601451 

206714 DEC01 

126715 

206676 

043076 

203073 

751200 

62331 1 

143073 

211577 

751200 

62331 1 

151200 

603406 

750001 OECIN 

043071 

103161 

200074 

040043 

160070 

040032 

103434 

600075 

000000 DEC INI 

226670 

740200 

603442 


JMP* 

OECO 

CL£ 


OAC 

I OSH 

JKS 

DECOET 

LAC* 

(DTRE2) 

OAC* 

(8CR+3) 

LAC* 

(0TRE1) 

DAC* 

(8CR+1 > 

JMS* 

(OELETR) 

JMP 

KILL-1 

JMS* 

tRDDIR) 

LAC 

12603 

SNA 


JMP 

POPJ 

JMS 

CIA 

OAC 

OECNT 

LAC 

(32603) 

DAC 

DECGT1 

TAD 

(200) 

OAC 

DEC INI 

ISZ 

OECCTi 

ISZ 

OEC INI 

LAC* 

DEC6T1 

SNA 


JMP 

OECL I 1 

JMS 

DECPRT 

LAC* 

DEC I N 1 

JMS 

DECPRT 

JMS* 

(CRLF) 

ISZ 

OECNT 

JMP 

OECL 11 

JMP 

POPJ 

LAC 

(31200) 

JMS* 

CHTDEC) 

LAC 

(31 177) 

DAC 

bufout 

LAC 

TERBUF 

SNA ICLA 


JMP* 

OECO 

OZM 

TERBUF 

LAC 

11577 

SNA I CL A 


JMP* 

DECO 

OZM 

1 3200 

JMP 

0EC01 

CLC 


DAC 

IOSW 

JMS 

DECGET 

LAC 

ENDT 

OAC 

BUFR 

DZM* 

CFRS 

DAC 

LASTV 

JMS 

DEC INI 

JMP 

START 

0 


LAC* 

(0TRE2) 

SZA 


JMP 

.♦3 


/ * OF ID'S 
/ INDEX IS CLEAR. 

/ LOU OROER ID 
/ HIGH OROER 10 

/ SLOT OCCUPIEO? 

/ NO 

/ OONE 
/ YES 

/ OUTPUT BUFFER 

/ TERM BUF? 

/ NO 

/ 31577 

/ ALREADY TERMINATED. 

/ INDICATE INPUT 
/ ERASE PREVIOUS PROG. 


tsz-a 
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023440 

206716 

023441 

603450 

023442 

206676 

023443 

043161 

Q23444 

346603 

023445 

126717 

023446 

466675 

023447 

206720 

023450 

043100 

023451 

206603 

023452 

042443 

023453 

623434 

023454 

000000 

023455 

203071 

023456 

040021 

023457 

203161 

023460 

063056 

023461 

203210 

023462 

040022 

023463 

440027 

023464 

102216 

023465 

140027 

023466 

200022 

023467 

043210 

023470 

200021 

023471 

043071 

023472 

223056 

023473 

043161 

023474 

546706 

023475 

741000 

023476 

603504 

023477 

202443 

023500 

043560 

023501 

103434 

023502 

203560 

023503 

042443 

023504 

200050 

023505 

546721 

023506 

741000 

023507 

623454 

023510 

140050 

02351 1 

1 02444 

023512 

206603 

023513 

043071 

023514 

103560 

023515 

600075 

023515 

203537 

023517 

740001 

023520 

043537 

023521 

• 741200 

023522 

603532 

023523 

203572 

023524 

741200 

023525 

603530 

023526 

206720 

023527 

741000 

023530 

206716 

C2353I 

741000 


DECIN2 


0EC1N3 


HSPX 


'W« / 


W 7 
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LAC 

(PREAO) 

JHP 

.♦7 

LAC 

(31177) 

OAC 

OECGET 

TAO 

( 1 ) 

JHS* 

(RTAPE) 

ISZ* 

(RDBLK) 

LAC 

IDECIN2) 

DAC 

1NIO 

LAC 

(1) 

OAC 

TELSH 

J HP* 

OEC INI 

0 


LAC 

I OSH 

OAC 

XCT 

LAC 

OECGET 

OAC* 

AXOUT 

LAC 

CHECK 

OAC 

GTEM 

ISZ 

OEBGSH 

JHS 

GETC 

DZM 

r IBOSH 

LAC 

GTEM 

OAC 

CHECK 

LAC 

XCT 

OAC 

10SH 

LAC* 

AXOUT 

OAC 

OECGET 

SAD 

(31577) 

SKP 


JHP 

0ECIN3 

LAC 

TELSH 

OAC 

HSRSET 

JHS 

OECIN! 

LAC 

HSRSET 

OAC 

TELSH 

LAC 

CHAR 

SAD 

(300) 

SKP 


JHP* 

0ECIN2 

OZH 

CHAR 

JHS 

OZMTEL 

LAC 

(i) 

OAC 

I OSH 

JHS 

HSRSET 

JHP 

START 

LAC 

HSPXSU 

CHA 


OAC 

HSPXSU 

SNA 


JHP 

.♦10 

LAC 

OECPAP 

SNA 


JHP 

.♦3 


LAC (0ECIN21 


SKP 


LAC 


SKP 


/ BUFAOR. 

/ SETUP INPUT ROUTINE. 
/ SET UP TO USE GETC 


/ END OF BUFFER? 

/ SAVE TELSH 

/ RESET TELSH 
/ END OF CHARS? 

/ YES 

/ MULT I -USES OF • FLIP-FLOP THE SH. 


(PREAD) 


E-252 
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023532 

206722 


LAC 

< REAOC) 

023533 

04357! 


OAC 

INFLT 

023534 

143540 


OZM 

LORFG 

023535 

600502 


JMP 

PROC 

023536 

000000 

HSOSW 

0 


023537 

000000 

HSPXSW 

0 

/ 0 TEI 

023540 

000000 

LORFG 

0 


023541 

023542 

203536 

740001 

HSOUT 

LAC 

CMA 

HSOSW / MULT 

023543 

023544 

043536 

741200 


OAC 

SNA 

HSOSW 

023545 

603555 


JMP 

.♦10 

023546 

023547 

203572 

741200 


LAC 

SNA 

OECPAP 

023550 

603553 


JMP 

.♦3 

023551 

023552 

206703 

741000 


LAC 

SKP 

COECPUT) 

023553 

206702 


LAC 

C PUNCH) 

023554 

741000 


SKP 


023555 

206723 


LAC 

IPRSNTC ) 

023556 

043074 


OAC 

OUTFLT 

023557 

600502 


JMP 

PROC 

023560 

000000 

HSRSET 

0 


023561 

206723 


LAC 

CPRINTC ) 

023562 

043074 


OAC 

OUTFLT 

023563 

206722 


LAC 

1 REAOC) 

023564 

043571 


OAC 

INFLT 

023565 

143536 


DZM 

HSOSW 

G23566 

143537 


OZM 

HSPXSW 

023567 

143540 


DZM 

LORFG 

023570 

623560 


JMP* 

HSRSET 

023571 

022100 

I NFL 7 

REAOC 


023572 

000000 

OECPAP 

0 


023573 

750001 

DATA 

CLC 


023574 

043572 


OAC 

OECPAP / SET T 

023575 

103045 


JMS 

SPNOR 

023576 

101214 


JMS 

SORTJ 

023577 

023106 


LIBLST- 

1 

023600 

000473 


LIBDAT- 

LIBLST 

023601 

1 02454 


JMS 

ERR0R2 

023602 

023615 

LI BOAT 

DATAOP 

/ OPEN FILE 

023603 

022451 


ERR0R5 

/ ILLEGAL 

023604 

023264 


OECLOS 

/ CLOSE FILE 

023605 

023610 


DATA IN 

/ INPUT DATA 

023606 

023275 


KILL 

/ STOP OATA FLOW 

023607 

023275 


KILL 

/ STOP 

023610 

750001 

DATA IN 

CLC 


023611 

043071 


DAC 

IOSW 

023612 

103161 


JMS 

OECGET / GET N 

023613 

103434 


JMS 

DEC INI / READ 

023614 

603300 


JMP 

K!LL>3 

023615 

143071 

DATAOP 

OZM 

IOSW 

023616 

103161 


JMS 

OECGET 

023617 

023620 

226670 

741200 


LAC* 

SNA 

(0TRE2) 

023621 

102454 


JMS 

ERR0R4 / NO NA 

023822 

603136 


JMP 

OECOPN+2 

023623 

000000 

PREAD 

0 
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35 


FLIP-PLOP THE SM. 


INDICATE 
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! 023624 20672H 

J 023325 066785 

083626 70010** 

083687 686786 

083630 7**1800 

083631 603636 

083638 043540 

083633 040050 

08363** 800050 

? 083635 683623 

U 083636 803540 PREAO I 

! 083637 7HI200 

l\ 083640 60362** 

? 083641 108444 

1 083648 103560 

’ 083643 140050 

083644 603634 

f. 083645 000000 PUNCH 

083646 741800 

083647 808401 

| 083650 546705 

ft 083651 74 IOCS 

083658 186787 

083653 683645 

083654 808443 LT 

083655 140087 

083656 740100 

083657 601451 

083660 760815 

083661 108480 

083668 601451 

083663 000000 BINARY 

083664 804060 

083665 741100 

083666 603715 

083667 444060 

083670 346730 

083671 044061 

083678 884061 

023673 040050 

083674 740100 

023675 683663 

083676 044060 

083677 804065 

083700 546731 

08370! 806738 

083708 346638 

083703 044065 

083704 546733 

923705 444064 

083706 804064 

083707 546734 

083710 741000 

083711 603715 

983712 806733 

083713 044064 

083714 444088 

083715 804061 BINL1 


i 

i 
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023716 444060 

023717 603723 

023720 777775 

023721 044Q60 

023722 126725 

023723 741200 

023724 603744 

023725 044070 

023726 633606 

023727 346643 

023730 741100 

023731 346637 

023732 346667 

023733 546721 

023734 603747 

023735 546735 

023736 346637 

023737 040050 

023740 641002 

023741 044061 

023742 200050 

023743 623663 

023744 2Q4070 

023745 741200 

023746 603720 

023747 1 44070 

023750 144060 

02375! 206612 

023752 603737 

023753 200074 

023754 040043 

023755 180070 

023756 040032 

023757 206736 

023760 043100 

023761 206603 

023762 042443 

023763 144060 

023764 206733 

023765 044064 

023766 044065 

023767 044062 

023770 600075 

823771 142337 

023772 777775 

023773 043663 

023774 102216 

023775 777777 

023776 042443 

023777 206737 

024000 603257 

024001 000000 

024002 044060 

024003 202337 

024004 044061 

024005 142337 

024006 750200 

024007 624061 
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PACE NO . 37 


B1NY 


BINY2 

B1NY1 

RSEQ 


PSEQ 

BINOUT 


IS z 

BINl 

JMP 

.♦4 

LAW 

-3 

OAC 

B!Ni 

JUS* 

CRPAPER) 

SNA 

JMP 

B1NY2 

OAC 

BIN3 

653606 

TAD 

(-H0) 

SPA 

TAD 

uoo) 

TAO 

(2H0) 

SAD 

(300) 

JMP 

B2KYI 

SAD 

(276) 

TAD 

(100) 

DAC 

CHAR 

LACQ 

DAC 

S1N2 

LAC 

CHAR 

JMP* 

BINARY 

LAC 

B1N3 

SNA 

JMP 

B1NY 

DZM 

BIN3 

DZM 

BINl 

LAC 

(215) 

JMP 

BINY2-5 

LAC 

ENDT 

DAC 

BUFR 

DZM* 

CFRS 

OAC 

LASTV 

LAC 

(BINARY) 

DAC 

1NIO 

LAC 

(1) 

DAC 

telsh 

DZM 

BINl 

LAC 

(261 ) 

DAC 

BIN2+3 

OAC 

BIN2+4 

OAC 

BIN2+ 1 

JMP 

START 

DZM 

PRNTLN 

LAW 

-3 

OAC 

BINARY 

JMS 

GETC 

LAW 

-1 

DAC 

TELSH 

LAC 

(BINOUT) 

JMP 

0ECL0S-5 

0 

DAC 

BINl 

LAC 

PRNTLN 

DAC 

BIN2 

DZM 

PRNTLN 


SZA1CLA 


/ MORE INPUT? 
/ YES 

/ END? 

/ YES 

/ LMO LLS+6 
/ CR? 

/. ALTMODE? 


/ ALREADY HAVE CR? 
/ YES 


£r ~ 4 


BIN2 


/ DON'T OUTPUT LINE #. 
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024010 200051 

02401 1 74 1200 

024012 624001 

024013 204060 

024014 741200 

024015 202401 

024016 546705 

024017 624001 

024020 546612 

024021 604034 

024022 640506 

024023 204070 

024024 S40606 

024025 044070 

024025 443663 

024027 624001 

024030 126740 

024031 777775 

024032 043663 

024033 624001 

024034 777775 

024035 543663 

024036 604044 

024037 204070 

024040 650606 

024041 443663 

024042 604040 

024043 126740 

024044 204070 

024045 751200 

024046 604031 

024047 144070 

024050 126740 

024051 777740 

024052 043663 

024053 750000 

024054 126727 

924055 443663 

024056 604053 

024057 604031 

024060 000000 

024061 000Q00 

024062 000261 

024063 000256 

024064 000261 

024065 000261 

024066 000240 

024067 777777 

024070 000000 
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LAC 

SNA 

JMP # 

LAC 

SNA 

LAC 

SAD 

JMP* 

SAD 

JMP 

LRS 

LAC 

LLS 

DAC 

ISZ 

JMP* 

JMS* 

LAW 

DAC 

JMP* 

B1N01 LAW 

SAD 
JMP 
LAC 

650605 

ISZ 

JMP 

JMS* 

LAC 

SNA I CLA 
JMP 
OZM 
JMS* 

LAW 

DAC 

CLA 

JMS* 

ISZ 

JMP 

JMP 

BINS 0 

BIN2 0 

261 

256 

26! 

261 

240 

-1 

BIN3 0 

FG£T«200000 
FPUT-040000 
FSUM-300000 
FMN-340000 
FHUL-400000 
FOVD»440000 


LINENO 

/ DON'T PUNCH LINE 0. 

BINOUT 

BIN1 

I NOE V 

(212) / DON'T OUTPUT LINEFEEO. 

BINOUT 

(2159 

BINO! 

6 

BIN3 

6 

BIN3 

BINARY 

BINOUT 

(PUNBIN5 

-3 

BINARY 

BINOUT 

-3 

BINARY 

.♦6 

B1N3 

/ CLQ LLS+6 

BINARY 

.-2 

CPUNBIN) 

BIN3 

BIN01-3 / DON'T GIVE TWO CR IN A ROW. 

BIN3 

(PUNBIN) 

-40 

BINARY 

CPUNSH) / PUNCH LEADE 

BINARY 

.-3 

C3INOI-3 
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02H07I 

024072 

024073 

024074 

Q24075 

024076 

024077 

02m 00 

02H1 01 

02 m 02 

02m 03 

02m oh 
02m 05 

02m 06 

024107 
0241 10 
024111 
0241 12 
024113 


740040 

224071 

544541 

624071 

653605 

744020 

546741 

604134 

3441 14 

044111 

641505 

204071 

506742 

640002 

044205 

744400 

740040 

2242C5 

604107 


/ 

/ INTERPRETER for POP-9 or 
/ FOR POP- 1 5 IN BANK MODE 


EIH 


EIH 
PI XL* 1 
EIH 


C 17) 
FOPR 
* * i 3 
.♦7 

EIH 

(60000) 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


KLT 
LAC* 

SAO 
JHP* 

653605 
RCR 
SAO 
JHP 
TAD 
OAC 

641505 
LAC 
AND 

640QQ2 
OAC 

744400 
HLT 
LAC* 

JHP 

floating point arithmetic 

DATA FORMATS: 

3 THREE WORD FLOATING 
5 TWO WORD FLOATING 
I ONE WORD SIGNED INTEGER 
0 ONE WORO DATA 
I NTERPRET I VE ! NSTRUCT I 0N5 

tMr — - - . 


START INTERPRETIVE MOOE 
6£v ? 4 £XT INSTRUCTION. 
LEAVE INTERPRETER IF NOP. 

OP-CCOE TO AC AND 
INDIRECT BIT TO LINK 
OPERATE CLASS 
TESTED SEPARATELY. 

SET UP BRANCH 
TO FUNCTION. 

13 SIT ADDRESS TO HO, 
COMBINE WITH BANK 8 ITS. 


AOR 


ADR 

.-4 


INDIRECT ADDRESS IF REOUIREC 
AND GO TO EXECUTE FUNCTION 


JMS 
NOP 
DAC 
LAC 
LAW 
OZH 
AND 
EAE 
IOT 
CAL 
IOT 
ADO 
TAD 
XCT 
ISZ 
XOR 
JMS 
JMP 
SAO 
OPR 
OPR 
OPR 
OPR 
OPR 
OPR 
OPR 
OPR 
OPR 


EIH 

X 

X 

N 

R 

R 

XXYY 

N 

L 

0 

X 

X 

X 

X 

X 

L 

L 

X 

0 

1000 

2000 

3000 

4000 

SfwWI 

6000 

7O0W 

10000 


ENTER INTERPRETER 
LEAVE INTERPRETER 
STORE FAC IN X 
LOAD FAC FROM X 
IMMEDIATE LOAO N TO FAC 
INPUT TO FAC USING R 
OUTPUT FROM FAC USING R 
SET OUTPUT FORMAT 
START N-FOLD LOOP 
INCREMENT L BY DATA NODE 
LOOP END INDICATOR 
ADD X TO F 'C 
SU0YRACT ROM FAC 
MULTIPLY FAC BY X 
OIV10E FAC BY X 
DIVIDE X BY FAC TO FAC 
JMS TO L, FLOATING MOOE 
TRANSFER CONTROL TO L 
COMPARE AND BRANCH 
LEAVE INTERPRETER 
SQUARE OF FAC 
SET FAC SIGN POSITIVE 
CHANGE SIGN OF FAC 
SET MAGNITUDE TO ONE 
COMPARE IMMEDIATE. BRANCH 
SQUARE ROOT OF FAC 
/ SET DATA MOOE TO N - 
/ SET FAC TO ZERO 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

✓ 


I 

3 

4 

5 

19 

20 
22 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
49 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 


r* 
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024114 6041 15 

0241 15 50451* 

024116 604450 

024117 604311 

024120 606253 

024121 604353 

024122 605205 

024123 604774 

024124 604767 

024125 605117 

024126 605212 

024127 605756 

024130 604403 

024131 604330 

024132 605736 

024133 604555 

024134 745400 

024135 604321 

024136 641604 

024137 344142 

024140 044141 

024141 740040 

024142 624142 

024143 025266 

024144 024161 

024145 024163 

024146 024365 

024147 024373 

024150 025276 

024151 024167 

024152 024156 

024153 024727 

024154 024723 

024155 024725 

024156 144200 

024157 144S77 

024160 144176 

024161 144175 

024162 605264 

024163 206603 

024164 244175 

024165 044175 

024166 605264 

024167 641611 

024170 044206 

024171 745202 

024172 750010 

024173 044207 

024174 605264 


024175 
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PAGE NO 


HO 


/ 

OPR 

1INNN 

/ 

OPR 

12NNN 

/ 

OPR 

13NNN 

/ INDIRECT A00RESS1NQ MAY 

/ LAC. 

OAC* ADO* 

TAO. XCT. 

/ XOR. 

JMS, JMP. 

SAO, CAL. 

/ 

JMP 

.♦I 


JMP 

FINO 


JMP 

FOAC 


JMP 

FJM5 


JMP 

FINP 


JMP 

FLAC 


JMP 

RDIV 


JMP 

FAOO 


JMP 

FSUB 


JMP 

FMPY 


JMP 

FDIV 


JMP 

FOUT 


JMP 

FCAS 


JMP 

SRTN 


JMP 

FMT 


JMP 

FINX 

FOPR 

7H5H00 



JMP 

FLOD 


6HI60H 

TAD 

.♦3 


OAC 

,♦1 


HLT 

JKP* 

SOAX 

FZAC+3 

FZAC*5 

FSGN 

FCZ 

SQRX 

FSOH 


F2AC 

F2AC 

MPIR 

A01R 

OVIR 

OZM 

AC+3 


OZM 

AC.2 


OZM 

AC1 


OZM 

AC 


JMP 

8AK 


LAC 

(1) 


XOR 

AC 


OAC 

AC 


JMP 

BAK 

FSOH 

6H161I 



OAC 

OM 


7H5202 

GLK 

OAC 

DM* I 


JMP 

BAX 


/ IMMEDIATE MULTIPLY 
/ IMMEDIATE ADD 
/ IMMEDIATE DIVIDE 
K USED WITH 
ISZ. 

IOT. 


/ CAL » INCREMENT. 

/ OAC • DEPOSIT FAC. 

/ JMS « JMS. 

/ LAC * LOAD FAC. 

/ XOR » INVERT DIVIDE. 

/ AOD • FLOATING ADO. 

/ TAD - SUBTRACT. 

/ XCT * MULTIPLY. 

/ ISZ • 0! VIDE. 

/ SAD • THREE-WAY COMPARE. 
/ JMP • JMP. 

/ IOT « LOOP CONTROL. 

/ OPERATE CLASS DECODE. 

/ LAW IS IMMEDIATE LOAO. 


/ 3000 SQUARE FAC. 

/ 2000 ABSOLUTE VALUE. 

/ 3000 CHANGE SIGN. 

/ HOOD UNIT MAGNITUDE. 

/ 5000 BRANCH ON ZERO. 

/ 6000 SQUARE ROOT. 

/ 7000 OATA MODE * 

/ 10000 CLEAR FAC. 

/ 11000 IMMEDIATE MULTIPLY. 
/ 12000 IMMEDIATE AOD. 

/ 33000 IMMEOI/ DIVIDE. 

/ ZERO TO FAC. 


/ SET SIGN PLUS. 
/ CHANGE SIGN. 


/ SET DATA MODE. 


83 

8H 

85 

86 

87 

88 

89 

90 

91 

92 

93 
9H 

95 

96 

97 

98 

99 
100 
10 ! 
102 
103 
10H 
105 
8 06 

107 

108 
109 

no 

i i i 
1 12 
113 
1 1H 

115 

1 16 

117 

1 18 

119 

120 
121 
122 
123 
I2H 

125 

126 

127 

128 

129 

130 

131 

132 

133 
23H 

135 

136 

137 

138 

139 
I HO 


/ 

AC 


@LOCK 


H 


' FLOATING ACCUMULATOR. 
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02^*201 


BC 

024205 

000000 

ADR 

024206 

000002 

OH 

024207 

000002 


024210 

740040 

CIA 

02421 I 

744001 


024212 

346603 


024213 

624210 


024214 

740040 

ACZ 

024215 

204177 


024216 

304200 


024217 

744200 


024220 

604224 


024221 

144176 


024222 

144175 


024223 

624214 


024224 

444214 


024225 

624214 


024226 

740040 

ecz 

024227 

204203 


024230 

304204 


024231 

744200 


024232 

444226 


024233 

624226 


024234 

740040 

SGN 

024235 

204175 


024236 

244201 


024237 

624234 


024240 

740040 

XAB 

024241 

204175 


024242 

740020 


024243 

204201 


024244 

044175 


024245 

750010 


024246 

044201 


024247 

204176 


024250 

652000 


024251 

204202 


024252 

044176 


024253 

641002 


024254 

044202 


024255 

204177 


024256 

652000 


024257 

204203 


024260 

044177 


024261 

641002 


024262 

044203 


024263 

204200 


024264 

652000 


024265 

204204 


024266 

044200 


024267 

641002 


024270 

044204 


024271 

624240 


024272 

740040 

5VM0 

024273 

740000 


024274 

204206 


024275 

044302 



.BLOCK 

H 

/ OPERAND OR ’HO*. 

0 


/ OPERAND AOORESS . 

2 

2 


/ DATA NODE INDICATOR. 

HLT 


/ TWO'S COHPLEMENT AC. 

7HHuul 

TAD 

(3) 


JHP» 

CIA 


HLT 


/ TEST FAC FOR ZERO. 

LAC 

AC*2 

AOO 

AC*3 


744200 


/ RETURN TO LQC+I IF 

JMP 

.♦H 

/ ZERO. TO LOC+2 IF 

DZM 

AC* I 

/ NOT ZERO. 

DZM 

AC 

JMP* 

ACZ 


ISZ 

ACZ 


JMP* 

ACZ 


HLT 


/ TEST OPERAND ZERO. 

LAC 

BC*2 

AOO 

BC*3 


744200 

ISZ 

BCZ 


JMP* 

ecz 


HLT 


/ COMPARE SIGNS OF 

LAC 

AC 

/ FAC ANO OPERANO. 

XOR 

BC 

JMP* 

SGN 


HLT 


/ EXCHANGE OPERANO ANO 

LAC 

RAR 

AC 

/ FLOATING ACCUMULATOR. 

LAC 

SC 


DAC 

AC 


GLK 

DAC 

BC 


LAC 

AC*! 


652000 

LAC 

BC* S 


OAC 

AC*1 


641002 

OAC 

BC-M 


LAC 

AC* 2 


652000 

LAC 

BC*2 


DAC 

AC*2 


6H1002 

OAC 

BC+2 


LAC 

AC+3 


652000 

LAC 

BC*3 


OAC 

AC* 3 


6H1002 

OAC 

BC*3 


JMP® 

XAB 


HLT 


/ SAVE OATA NODE. 

NOP 


/ THEN SET TO THREE. 

LAC 

DM 

OAC 

.*5 



HI 


1 HI 
1H2 


1H5 
IH6 
1H7 
S HQ 
1H9 

150 

151 

152 

153 
15H 

155 

156 

157 

158 

159 

160 
161 
162 
163 
16H 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17H 

175 

176 

177 

178 

179 

180 
181 
182 
183 
18H 

185 

186 

187 

188 

189 

190 

191 

192 

193 
I9H 

195 

196 

197 

198 


4 ®^ 
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024276 

206630 


LAC 

(3) 


199 

024277 

044206 


OAC 

DM 


200 

024300 

204272 


LAC 

SVMD 


201 

024301 

604330 


JMP 

67TN 

/ LEAVE IN INTERPRETIVE NODE. 

202 

024302 

740040 


HLT 



203 

024303 

740040 

RSMD 

HLT 


/ RESTORE USER OATA 

204 

024304 

740000 


NOP 


/ NODE AND LEAVE 

205 

024305 

204302 


LAC 

• -3 

7 INTERPRETER. 

206 

024306 

044206 


OAC 

OM 


207 

024307 

624303 


JMP* 

RSMO 


206 

024310 

024071 


EIM 



209 

024311 

544310 

FJMS 

SAD 

.-I 

/ FLOATING NODE JMS. 

210 

024312 

605264 


JMP 

BAK 


211 

024313 

204071 


LAC 

EIM 

/ JMS EIM AND JMS*' (EIM) ARE 

212 

024314 

346603 


TAO 

U) 

/ NO-OPS IN FLOATING MOOE. 

213 

024315 

064205 


OAC* 

ADR 


214 

024316 

204205 


LAC 

AOR 


215 

024317 

346603 


TAD 

Cl) 


216 

024320 

604330 


JMP 

SRTN 


217 

024321 

641002 

FLOD 

641002 


/ IMMEOI ATE LOAD I 3-0 IT 

218 

024322 

660505 


660505 


/ SIGNEO INTEGER TO FAC. 

219 

024323 

104332 


JMS 

FLOG 


220 

024324 

605264 


JMP 

BAK 


221 

024325 

740040 

FLOAT 

HLT 


/ FLOAT AN 16-BIT SIGNEO 

222 

024326 

104332 


JMS 

FLOQ 

/ TWO'S COMPLEMENT INTEGER 

223 

024327 

204325 


LAC 

FLOAT 

/ TO FAC ANO ENTER 

224 

024330 

044071 

SRTN 

DAC 

EIM 

/ INTERPRETIVE MOOE. 

225 

024331 

604072 


JMP 

E1M+1 


226 

024332 

740040 

FLOG 

HLT 


/ UTILITY ROUTINE FOR 

227 

024333 

664000 


664000 


/ FLOATING A SIGNEO 

228 

024334 

652000 


652000 


/ INTEGER TO FAC. 

229 

024335 

750010 


GLK 



230 

024336 

044175 


OAC 

AC 


231 

024337 

641002 


641002 



232 

024340 

344175 


TAO 

AC 


233 

024341 

650422 


650422 



234 

024342 

044177 


DAC 

AC*2 


235 

024343 

741200 


SNA 



236 

024344 

604350 


JMP 

.♦4 


237 

024345 

777700 


-100 



239 

024346 

640001 


640001 



239 

024347 

740001 


CMA 



240 

024350 

044176 


OAC 

AC*! 


241 

024351 

144200 


OZM 

AC*3 


242 

024352 

624332 


JMP* 

FLOQ 


243 

024353 

104572 

FLAC 

JMS 

GET 

i FLOATING LOAD c AC 

244 

024354 

204201 


LAC 

BC 

/ FROM MEMORY. • 

245 

024355 

044175 


OAC 

AC 

/ OPERAND THEN MOVE 

246 

024356 

204202 


LAC 

BC+1 

/ TO FAC. 

247 

024357 

044176 


OAC 

AC* 1 


248 

024360 

204203 


LAC 

BC+2 


249 

024361 

044177 


OAC 

AC*2 


250 

024362 

204204 


LAC 

BC+3 


251 

024363 

044200 


DAC 

AC+3 


252 

024364 

605264 


JMP 

BAK 


253 

024365 

206603 

FSGN 

LAC 

Cl) 

/ SET FAC MAGNITUDE 

254 

024366 

044176 


OAC 

AC+1 

/ TO ONE. LEAVE 

255 

024367 

560720 


660720 


/ SIGN UNCHANGED. 

256 
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024370 
024371 
024372 
024373 
024374 
024375 
024376 
024377 
024400 
024401 
024402 
024403 
024404 
024405 
024406 
024407 
024410 
02441 1 
024412 
024413 
024414 
024415 
024416 
024417 
024420 
024421 
024422 
024423 
024424 
024425 
024426 
024427 
024430 
024431 
024432 
024433 
024434 
024435 
024436 
024437 
024440 
024441 
024442 
024443 
024444 
024445 
024446 
024447 
024450 
024451 
024452 
024453 
024454 
024455 
024456 
024457 
024460 
024461 


044177 
144200 
605264 
104716 
604404 
204175 
740200 
605264 
444071 
444071 
605264 
104572 
104214 
604424 
104226 
604375 
104234 
740200 
604375 
104427 
741200 
604401 
740100 
604375 
204201 
740200 
604400 
605264 
104226 
60440 1 
604420 
740040 
204202 
104210 
344176 
740200 
624427 
204203 
104210 
344177 
740200 
624427 
204204 
104210 
344200 
740202 
740020 
624427 
204175 
744020 
750020 
244177 
652000 
204206 
744020 
741200 
604501 
204200 
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AC+2 

A03 257 

BAK 258 

IMOP / THREE-WAY COMPARE Iff 

FCAS+1 / IMMEDIATE OPERAND. If? 

AC 

£62 

BAK 263 

EIM 264 

EIM 265 

BAK 266 

GET / THREE-WAY COMPARE FAC ffZ 

ACZ / TO OPERAND. GO TO If! 

.♦17 / LOC+1 IF FAC LESS. 

BCZ / LOC+2 IF EQUAL. f 7 , 

FCZ+2 / LOC+3 IF GREATER. tip 

SON 27 S 

273 

FCZ+2 274 

CASQ 275 

276 

FCAS-2 277 

278 

FCZ+2 279 

BC 280 

281 

FCAS-3 282 

BAK 283 

BCZ 284 

FCAS-2 285 

.-6 286 

/ COMPARE MAGNITUDES OF ffZ 

BC+1 /FAC AND OPERAND. foo 

CIA / RETURN NEGATIVE IF fqn 

AC+1 / FAC LESS. ZERO IF JJ? 

' EQUAL< POSITIVE NON-ZERO i|p 

CASO /IF FAC CHEATER. J|f 

CIA 294 

AC +2 295 

296 

CASQ 297 

BC+3 298 

CIA 288 

AC+3 300 

301 

302 

CASQ 303 

AC / DEPOSIT FLOATING 

/ ACCUMULATOR TO MORY. 306 

AC+2 / HOVE HIGH MANTISSA fnl 

/ AND SIGN TO HO. THEN Igo 

OH / TEST OATA NODE: 

/ DATA MOOE 2 OR 3 ? IJi 

♦el / NO. MUST BE 1 OR 0. |Jf 

AC+3 / YES. |J* 
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02**62 

7*1*00 


02**63 

60**71 


02**6* 

5067*3 


0 2**65 

0**20* 


02**66 

20*176 


02**67 

5067** 


02**70 

2**20* 


02**71 

06*205 


02**72 

6*1002 


02**73 

***205 


02**7* 

06*205 


02**75 

7***00 


02**76 

60526* 


02**77 

20*176 


02*500 

60**73 


02*501 

7*1*00 


02*502 

60*511 


02*503 

20*175 


02*50* 

750200 


02*505 

60*512 


02*506 

10*517 


02*507 

3*6603 


02*510 

7*1020 


02*51 1 

10*5*0 


02*512 

06*205 


02*513 

60526* 


02*51* 

22*205 

FINQ 

02*515 

3**207 


02*516 

60*512 


02*517 

7*00*0 

FXQ 

02*520 

20*176 


02*521 

7**101 


02*522 

60*525 


02*523 

651000 


02*52* 

62*517 


02*525 

3*67*5 


02*526 

506617 


02*52 7 

2*67*6 


02*530 

0**53* 


02*531 

20*200 


02*532 

652000 


02*533 

20*177 


02*53* 

7*00*0 


02*535 

7*0020 


02*536 

6*1002 


02*537 

62*517 


02*5*0 

7*00*0 

F5XL 

02*5*1 

7*0000 


02*5*2 

10*517 


02*5*3 

3*6603 


02*5** 

7**020 


02*5*5 

7**010 


02*5*6 

2**175 


02*5*7 

7*0020 


02*550 

7*1*00 


02*551 

10*210 


02*552 

62*5*0 


02*553 
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024555 

740201 

FINX 

740201 

024556 

604564 


JHP 

024557 

444553 


ISZ 

024560 

741000 


SKP 

024561 

605264 


JMP 

024562 

204554 


LAC 

024563 

604330 


JMP 

024564 

346603 


TAD 

024565 

044553 


DAC 

024566 

444071 


ISZ 

024567 

304071 


LAC 

024570 

044554 


DAC 

024571 

604072 


JMP 

024572 

740040 

GET 

HLT 

024573 

204206 


LAC 

024574 

744020 


RCR 

024575 

740200 


SZA 

024576 

604516 


JMP 

024577 

324205 


LAC* 

024600 

740600 


749600 

024601 

604604 


JMP 

024602 

104675 


JMS 

024603 

624572 


JMP* 

024604 

740100 


SMA 

024605 

604602 


JMP 

024606 

744020 


RCR 

024607 

044203 


DAC 

024610 

750020 


750020 

02461 1 

044204 


DAC 

024612 

206747 


LAC 

024613 

044202 


DAC 

024614 

144201 


DZM 

024615 

624572 


JMP* 

024616 

224205 


LAC* 

024617 

652000 


652000 

024620 

444205 


ISZ 

024621 

224205 


LAC* 

024622 

660000 


660000 

024623 

506750 


AND 

024524 

044203 


DAC 

024625 

750010 


GLK 

Q24626 

044201 


DAC 

024627 

304206 


LAC 

024630 

744020 


RCR 

024631 

641002 


641002 

024632 

740400 


SNL 

024633 

506743 


AND 

024634 

044204 


DAC 

024635 

740400 


SNL 

024636 

694642 


JMP 

024637 

444205 


ISZ 

034640 

224205 


LAC* 

024641 

604644 


JMP 

024642 

640633 


640633 

024S43 

660511 


660511 

024644 

044202 


DAC 

024645 

204203 


LAC 

024646 

744010 


RCL 
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/ LOOP CONTROL. 

♦♦6 /IF ZERO OPERAND. 

FI NX-2 / INCREMENT LOOP COUNTER. 

/ CONTINUE LOOP OR LEAVE. 

BAK 

FI NX- I / SAVE LOOP START LOCATION 

SRTN / AND SET LOOP COUNTER. 

CD 

FI NX-2 
EIM 
EIM 
F I NX- 1 
EIM+1 

/ OPERAND FETCH. 

DM / TEST DATA MODE FOR 

/ FLOATING OR INTEGER. 

.♦20 / FLOATING. 

A DR / INTEGER. GET ONE WORD. 

/ TEST MODE FOR 0 OR I . 

.♦3 

BLSO / MODE I. USE S1GNEO INTEGER 

GET / LOAD ROUTINE. 

/ IF MODE 0 AND POSITIVE. 

-3 / USE SIGNED LOAD ROUTINE. 

/ IF ‘NEGATIVE*. THEN 
BC+2 / NORMALIZED DATA LOAD 

/ IS DEFINED EXACTLY. 

BC+3 

C22) 

8C*I 

BC 

GET 

ADR / FLOATING FORMAT. 2 OR 3 . 

/ PUT FIRST WORD IN HQ. 

ADR 

ADR / GET SECOND WORD. 

/ SAVE SIGN IN LINK. 

(377777) / MASK OFF SIGN AND 

BC*2 / PUT IN HIGH MANTISSA. 

/ MOVE LINK TO SIGN. 

3C 

DM 


(7/7000) 

BC>3 / IF MODE 2. DECOMPOSE 

/ FIRST WORD TO LOW 
♦4 / MANTISSA AND EXPONENT . 

ADR / IF MODE 3. GET THIRD 

ADR / WORD FOR EXPONENT. 

.♦3 


SC+1 / NORMALIZE FLOATING 

BC+2 / OPERAND REGISTER. 

/ IF BIT ONE IS SET. 


373 

374 

375 

376 

377 

378 

379 

380 

381 

382 
333 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 
41 I 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 
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024647 

741100 


SPA 


/ 

THEN ALREADY NORMAL. 

431 

05*4650 

624572 


JMP* 

GET 



432 

024651 

304204 


ADD 

BC+3 

/ 

IF MANTISSA IS ZERO. 

433 

024652 

740200 


SZA 


/ 

THEN CLEAR EXPONENT 

434 

024653 

604657 


JMP 

.♦4 

/ 

AND SIGN FOR 

435 

024654 

144201 


OZM 

BC 

/ 

NORMAL ZERO. 

436 

024655 

144202 


OZH 

BC*1 



437 

024656 

624572 


JHP* 

GET 



433 

024657 

204204 


LAC 

BC*3 

/ 

OTHERWISE. SHIFT LEFT 

439 

024680 

652000 


652000 


/ 

UNTIL NORMALIZED 

440 

024661 

204203 


LAC 

BC+2 

/ 

AND ADJUST EXPONENT. 

441 

024662 

660444 


660444 




442 

024663 

044203 


OAC 

8C+2 



443 

024664 

641002 


641002 




444 

024665 

044204 


DAC 

8C+3 



445 

024666 

777700 


-100 




446 

024667 

640001 


640001 




447 

0S4S70 

346745 


TAO 

(431 



448 

02467 1 

740001 


CHA 




449 

024672 

344202 


TAD 

BC+1 



450 

024673 

044202 


DAC 

BC+1 



45! 

024674 

624572 


JHP* 

GET 



452 

024675 

740040 

BLSO 

HLT 


/ 

LOAD SIGNED INTEGER 

453 

024676 

664000 


664000 


/ 

OPERAND TO FLOATING 

454 

024677 

652000 


652000 


/ 

OPERAND REGISTER. 

455 

024700 

750010 


GLK 




456 

024701 

044201 


DAC 

BC 



457 

024702 

641002 


641002 




438 

024703 

344201 


TAD 

BC 



459 

024704 

650422 


650422 




460 

024705 

044203 


OAC 

BC*2 



461 

024706 

741200 


SNA 




462 

024707 

604713 


JHP 

.♦4 



463 

024710 

777700 


-100 




464 

024711 

640001 


640001 




465 

024712 

740001 


CHA 




466 

024713 

044202 


DAC 

8C+ 1 



467 

024714 

1 44204 


OZH 

ec*3 



463 

024715 

624675 


JHP* 

BLSO 



469 

024716 

740040 

I MOP 

HLT 


/ 

MOVE IMMEDIATE OPERAND 

470 

024717 

641002 


341002 


/ 

TO FLOATING OPERAND 

471 

024720 

660511 


660511 


/ 

REGISTER. 

472 

024721 

104675 


JMS 

BLSO 



473 

024722 

624716 


JMP* 

I MOP 



474 

024723 

104716 

ADIR 

JHS 

I HOP 

/ 

ADO IMMEDIATE. 

475 

024724 

604777 


JMP 

FADD+3 



476 

024725 

104716 

DVIR 

JMS 

I MOP 

/ 

DIVIDE IMMEDIATE. 

477 

024726 

605217 


JMP 

FDI V*5 



478 

024727 

104716 

HP IR 

JMS 

IMOP 

/ 

MULTIPLY IMMEDIATE. 

479 

024730 

605120 


JMP 

FMPY+1 



480 

02473! 

740040 

NOR 

HLT 


/ 

NORMALIZE FAC . 

481 

024732 

204177 


LAC 

AC*2 



482 

024733 

745110 


745110 


/ 

•overflow* ? 

483 

024734 

604757 


JMP 

.♦23 

/ 

YES. 

484 

024735 

741100 


SPA 


/ 

NO. NORMALIZED ? 

485 

024736 

624731 


JMP* 

NOR 

/ 

YES. OWE. 

456 

024737 

104214 


JMS 

ACZ 

/ 

NO. ZERO ? 

487 

024740 

624731 


JMP* 

NOR 

/ 

YES. DONE. 

488 
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024741 

024742 

024743 

024744 

024745 

024746 

024747 

024750 

024751 

024752 

024753 

024754 

024755 

024756 

024757 

024760 

024761 

024762 

024763 

024764 

024765 

024766 

024767 

024770 

024771 

024772 

024773 

024774 

024775 

024776 

024777 

Q25000 

025001 

025002 

025003 

025004 

025005 

025008 

025007 

0250 10 

02501 1 

025012 

025013 

025014 

025015 

025016 

025017 

025020 

025021 

025022 

025023 

025024 

025025 

025026 

025027 

025030 

025031 

025032 


204200 

652000 

204177 

680444 

044177 

641002 

044200 

777700 

640001 

346745 

740001 

344176 

044176 

624731 

742020 

044177 

204200 

740020 

044200 

444176 

624731 

624731 

104572 

204201 

246603 

044201 

741000 

104572 

104226 

605264 

10421 4 

604354 

104427 

741100 

10424Q 

204202 

104210 

344176 

741201 

605027 

652004 

346745 

741100 

605264 

641002 

246746 

045023 

204204 

652000 

204203 

740040 

044203 

641002 

944204 

104234 

745200 

605042 

204204 


FSU8 


FADD 


LAC 

AC+3 

652000 


LAC 

AC*2 

660444 


DAC 

AC +2 

641002 


DAC 

AC*3 

-100 


640001 


TAD 

(43) 

CMA 


tao 

AC*1 

DAC 

AC+I 

JMP* 

NOR 

RYR 


DAC 

AC+2 

LAC 

AC+3 

RAR 


DAC 

AC+3 

ISZ 

AC* 1 

JMP* 

NOR 

JMP* 

NOR 

JMS 

GET 

LAC 

BC 

XOR 

('ll 

OAC 

BC 

SKP 


JMS 

GET 

JMS 

BCZ 

JMP 

BAX 

JMS 

ACZ 

JMP 

FLAG* I 

JMS 

CASG 

SPA 


JMS 

XAB 

LAC 

BC*I 

JMS 

CIA 

TAD 

AC* 1 

741201 


JMP 

.♦17 

652004 


TAD 

(43) 

SPA 


JMP 

BAK 

641002 


XOR 

(660500) 

DAC 

.♦4 

LAC 

BC*3 

652000 


LAC 

BC*2 

HLT 


OAC 

8C*2 

641002 


DAC 

BC*3 

JMS 

SGN 

745200 


JMP 

.♦1 1 

LAC 

BC*3 


/ NO. NORMALIZE 
/ MANTISSA AND 
/ ADJUST EXPONENT . 


/ OVERFLOW. MOVE DOUBLE 
/ MORO MANTISSA ONE 
/ BIT TO RIGHT AND 
/ INCREMENT EXPONENT . 


/ SUBTRACT. GET OPERAND. 
/ COMPLEMENT, AND 
/ GO TO ADD. 


/ ADD, GET OPERAND. 

/ IS ADDEND ZERO ? 

/ YES. DONE. 

/NO, IS AUGEND ZERO ? 

/ YES. MOVE ADDEND TO FAC. 
/ NO. COMPARE MAGNITUDES. 

/ IS ADDEND GREATER 7 
/ YES. EXCHANGE. 

/ CALCULATE EXPONENT 
/ DIFFERENCE FOR 
/ D£ NORMAL I ZAT I ON OF 'MO'. 
/ IS DIFFERENCE ZERO ? 

/ YES. 

/ NO. SHIFT 'MO* TO 
/ RIGHT UNTIL EXPONENTS 
/ ARE EQUALIZED. 


/ COMPARE SIGNS. 

/ DIFFERENT 7 
/ NO. 

/ YES. COMPLEMENT MO' . 


47 


469 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

51 1 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 
535 

537 

538 

539 

540 

541 

542 

543 
344 

545 

546 
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025033 104210 

025034 044204 

025035 204203 

025036 741401 

025037 346603 

025040 044203 

025041 744000 

025042 204200 

025043 344204 

025044 044200 

025045 750010 

025046 344177 

025047 344203 

C25C50 044177 

025051 605263 

025052 740040 MPTN 

025053 204 1 76 

025054 346630 

025055 044176 

025056 204200 

025057 652000 

025060 204177 

025061 660502 

025062 045074 

025063 641002 

025064 344200 

025065 044200 

025066 750010 

025067 345074 

025070 344177 

025071 044177 

025072 104731 

025073 625052 

I 025074 740040 OVTN 

I 025075 777774 

| 025076 344176 

1 025077 044176 

I 025100 204200 

02SI0! 652000 

025102 204177 

025103 860323 

025104 500000 

025105 045052 

025106 641002 

025107 044177 

025110 20505? 

025111 650323 

025112 500000 

025113 641002 

025114 044200 

025115 £04731 

0251 16 625074 

023117 104572 FHPY 

025120 104234 

025121 044175 

025122 204176 

025123 344202 

025124 044173 
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48 


JHS 

CIA 


547 

OAC 

BC*3 


548 

LAC 

BC+2 


549 

7m HOI 



550 

TAO 

( t > 


55! 

DAC 

8C*2 


552 

CLL 



553 

LAC 

AC*3 

/ PERFORM DOUBLE 

554 

TAO 

BC*3 

/ PRECISION ADD. 

555 

OAC 

AC*3 


556 

3LK 



557 

TAO 

AC*2 


558 

TAO 

0C*2 


559 

OAC 

AC*2 

/ GO TO NORMALIZE 

530 

JHP 

AOT 

/ ANO OUT. 

561 

HLT 


/ MULTIPLY FAC BY 10. 

562 

LAC 

AC* I 


563 

TAO 

(3) 

/ ADO 3 TO EXPONENT. 

564 

OAC 

AC* t 


565 

LAC 

AC*3 

/ PUT TWO-MORO MANTISSA 

566 

652000 


/ IN AC ANO MQ. 

567 

LAC 

AC*2 


566 

660502 


/ 01 VIDE BY FOUR. 

569 

OAC 

DVTN 

/ SAVE HIGH MANTISSA. 

570 

6410Q2 


/ GET AOJUSTED LOU 

571 

TAD 

AC*3 

/ MANTISSA ANO ADD TO 

572 

OAC 

AC*3 

/ ORIGINAL. 

573 

GLK 


/ GET OVERFLOW. 

574 

TAO 

OVTN 

/ ADO AO JUSTED HIGH 

575 

TAD 

AC*2 

/ MANTISSA ANO ORIGINAL. 

576 

OAC 

AC*2 

/ PUT IN HIGH MANTISSA. 

577 

JMS 

NOR 

/ NORMALIZE.' 

578 

JHP» 

HPTN 


579 

HLT 


/ OIVIOE FAC BY 10. 

580 

-4 


/ REDUCE EXPONENT 

581 

TAO 

AC* I 

/ BY FOUR. 

582 

DAC 

AC* l 


583 

LAC 

AC*3 

/ OIVIOE TMO-MORD 

584 

652000 


/ MANTISSA BY 10. 

585 

LAC 

AC *2 


566 

660323 



587 

500000 



588 

OAC 

HPTN 

/ SAVE REMAINOER. 

589 

641002 



590 

DAC 

AC*2 

/ STORE QUOTIENT . HIGH. 

591 

LAC 

HPTN 


592 

650323 


/ OIVIOE REMAINOER BY 10. 

593 

500000 



594 

641002 


/ STORE SECOND QUOTIENT 

595 

DAC 

AC*3 

/ IN LOM MANTISSA. 

596 

JHS 

NOR 

/ NORMALIZE. 

597 

JHP* 

OVTN 


598 

JHS 

GET 

/ MULTIPLY. 

599 

JHS 

SON 

/ GET SIGN OF RESULT. 

600 

DAC 

AC 


601 

LAC 

AC*i 

/ ADO EXPONENTS. 

602 

TAO 

BC*1 


603 

DAC 

AC*I 


504 
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025185 

02SI26 

025127 

025130 

02S13I 

025132 

025133 

0251 34 

025135 

025136 

025137 

0251 HO 

025141 

025142 

025143 

025144 

025145 

025146 

025147 

025150 

025151 

025152 

025153 

025154 

025155 

025156 

025157 

025160 

025161 

025162 

025163 

025164 

025165 

025166 

025167 

025170 

025171 

025172 

025173 

025174 

025175 

025176 

025177 

025200 

025201 

025202 

025203 

025204 

025205 

025206 

025207 

025210 

025211 

025212 

025213 

025214 

025215 

025216 


204204 

744010 

045140 

045157 

204203 

740010 

045144 

045174 

144203 

204200 

S53122 

740040 

044201 

204200 

653122 

740040 

044202 

641002 

344201 

044201 

745400 

444202 

745000 

444203 

204177 

653122 

740040 

344202 

044202 

745400 

444203 

841002 

344201 

745400 

444202 

745000 

444203 

204177 

653122 

740040 

344203 

044177 

641002 

344202 

044200 

745400 

444177 

605263 

10457? ROIV 
104226 
804156 
1 04240 
S05215 

104214 FOIV 

605264 

104572 

104226 

604156 
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LAC 

RCL 

8C+3 

OAC 

.♦u 

OAC 

.♦27 

LAC 

ral 

8C+2 

DAC 

.♦21 

OAC 

.♦40 

DZH 

ec *2 

LAC 

653122 

HLT 

AC*3 

OAC 

BC 

LAC 

653122 

HLT 

AC^3 

OAC 

641002 

B Cm 

TAD 

BC 

DAC 

745400 

BC 

ISZ 

745000 

ecm 

ISZ 

BC+2 

LAC 

653122 

HLT 

AC^2 

TAD 

Bern 

DAC 

745400 

BC+1 

ISZ 

641002 

ec +2 

TAD 

745400 

BC 

ISZ 

745000 

BCm 

ISZ 

BC+2 

LAC 

653122 

HLT 

AC+2 

TAD 

BC+2 

DAC 

6H1 002 

AC+2 

TAD 

BCm 

OAC 

7*5400 

AC^3 

ISZ 

AC+2 

JHP 

AOT 

JMS 

GET 

JUS 

BCZ 

JHP 

FZAC 

JMS 

XAB 

JHP 

.♦4 

JHS 

ACZ 

JHP 

bak 

JHS 

GET 

JHS 

BCZ 

JHP 

FZAC 


/ DISTRIBUTE LOU ORDER 
/ MULTIPLIER. SHIFTEO 
/ TO IMPROVE PRECISION. 

/ DISTRIBUTE HIGH 
/ MULTIPLIER. SHIFTEO. 


/ ZERO HIGH PRODUCT. 


/ HIGH PART OF LOU * LOU 
/ THIRD UORO OF PRODUCT. 

/ HIGH PART OF LOU • HIGH. 
/ MIOOLE UORO OF PRODUCT. 

/ ADO LOU OF LOU • HIGH 
/ TO THIRO UORO ANO 
/ CARRY OVERFLOUS. 


605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 
617 
616 

619 

620 
621 
622 

623 

624 

625 

626 
627 
626 
629 


/ AOD HIGH OF HIGH • LOW 

630 

/ TO MIOOLE UORO AND 

631 

/ CARRY OVERFLOU. 

632 


633 


634 


635 

/ AOD LOU OF HIGH * LOU 

636 

/ AND CARRY OVERFLOUS. 

637 

63B 


639 


640 


641 

/ HIGH PART OF HIGH * HIGH 

642 

/ ADDED TO PREVIOUS HIGH 

643 

/ PRODUCT GOES TO 

644 

/ HIGH MANTISSA. 

645 


646 

/ ADD LOU PART OF HIGH • HIGH 

647 

/ ANO CARRY OVERFLOU. 

648 


649 

/ RETURN. 

650 


/ INVERSE 01 VIDE. GET 
/ OPERAND. THEN EXCHANGE. 


/ D1VI0E. IS FAC ZERO 1 
t YES. DONE. 

7 NO. GET OPERANO. 

7 IS OPERANO ZERO 7 
7 YES - CLEAR FAC ANO OUT. 


651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 


E-267 
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025217 

104234 


JMS 

025220 

044175 


DAC 

025221 

204202 


LAC 

025222 

104210 


JMS 

025223 

344176 


TAD 

025224 

044176 


OAC 

025225 

204204 


LAC 

025226 

744010 


RCL 

025227 

045237 


DAC 

025230 

204203 


LAC 

025231 

740010 


RAL 

025232 

045241 


OAC 

025233 

045252 


DAC 

025234 

045260 


OAC 

025235 

204177 


LAC 

025236 

653122 


653122 

025237 

740040 


HLT 

025240 

640323 


6H0323 

025241 

740040 


HLT 

025242 

641002 


SHI 002 

025243 

104210 


JMS 

025244 

344200 


TAD 

025245 

652000 


652000 

025246 

754400 


75**H00 

025247 

777777 

NE61 

-1 

025250 

344177 


TAD 

025251 

660323 


660323 

025252 

740040 


HLT 

025253 

044204 


DAC 

025254 

641002 


6m 002 

025255 

044177 


DAC 

025256 

204204 


LAC 

025257 

650323 


650323 

025260 

740040 


HLT 

025261 

641002 


6>il 002 

025262 

044200 

soo 

DAC 

025263 

104731 

aot 

JMS 

025264 

444071 

BAK 

ISZ 

025265 

604072 


JMP 

025266 

144175 

SOAX 

OZM 

025267 

204176 


LAC 

025270 

744010 


RCL 

025271 

044176 


OAC 

025272 

204177 


LAC 

025273 

044203 


DAC 

025274 

204200 


LAC 

025275 

605126 


JMP 

025276 

104214 

SQRX 

JMS 

025277 

605264 


JMP 

025300 

777775 


-3 

025301 

044175 


OAC 

025302 

204176 


LAC 

025303 

660000 


660000 

025304 

740020 


RAR 

025305 

044176 


OAC 

025306 

741400 


SZL 

025307 

605316 


JMP 

025310 

204177 


LAC 


ASSEMBLY LISTING *** 
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SON / NO. GET SIGN OF 

AC / QUOTIENT. 

0C*1 

CIA / SUBTRACT EXPONENTS FOR 

AC*1 / EXPONENT OF RESULT. 

AC*1 

BC*3 / LOW ORDER DIVISOR, 

/ SHIFTED LEFT TO 
.♦10 /AVOID OVERFLOW. 

BC*2 

/ HIGH ORDER DIVISOR 
.♦7 / SHiFTEO AND DISTRIBUTED 

.♦17 / FOR USE BY OIVIDES. 

.♦2H 

AC*2 / USE <A*0K>/(C*OK) » 

/ ( A+ IB-AD/C )K) /C , 

/ ALGORITHM BY D D METCALF. 


/ AD/C. 

CIA 

AC*3 

/ CB-AD/CIK. 


AC +2 / FINISH WITH DOUBLE 

/ PRECISION DIVIDE 
/ BY HIGH DIVISOR. 

BC*3 

AC*2 

BC*3 


AC+3 

NOR / ARITHMETIC RETURN. 

EIM / INCREMENT FPC AND 

EIM+I / CONTINUE INTERPRETER. 

AC / SQUARE OF FAC. 

AC* I 

AC* I 
AC*2 
0C*2 
AC*3 
FMPY*7 

ACZ / SQUARE ROOT OF FAC. 

BAK 

AC 

AC* 1 / DIVIDE EXPONENT BY TWO. 


AC*1 

/ ADJUST MANTISSA FOR EVEN 
• *7 / EXPONENT. THEN PERFORM 

AC *2 / NEWTON ITERATION ON 


663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 
670 

679 

680 
601 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 
7 1 I 

712 

713 

714 

715 

716 

717 
719 

719 

720 



892-a 
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02531 1 7 ‘*4020 

025312 044177 

025313 204200 

02531% 740020 

025315 044200 

025316 204177 

025317 346751 

025320 045326 

025321 045342 

025322 204200 

025323 652000 

025324 204177 

025325 660323 

025326 740040 

025327 044201 

025330 641002 

025331 345326 

025332 740020 

025333 444175 

025334 605320 

025335 044177 

025336 750020 

025337 044202 

025340 204201 

025341 640323 

0253*2 740040 

025343 641002 

025344 744020 

025345 344202 

025346 605262 

025347 740040 ATM 

025350 740000 

025351 204175 

025352 Q45465 

025353 144175 

025354 204176 

025355 754302 

025356 74001Q 

023357 045476 

025360 741200 

025361 605367 

025362 104071 

025363 045462 

025364 760001 

025365 445462 

025366 740000 

025367 104272 

025370 545446 

025371 605402 

025372 742000 

025373 045462 

025374 405446 

025375 752001 

025376 045457 

025377 205446 

025400 345462 

025401 445457 

025402 045462 


... P0P9/I5 ASSEMBLY LISTING 


• it 
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51 


BCR 

OAC 

LAC 

RAR 

OAC 

LAC 

TAO 

OAC 

OAC 

LAC 

652000 

LAC 

660323 

HLT 

OAC 

641002 

TAO 

RAR 

ISZ 

JMP 

OAC 

750020 

OAC 

LAC 

640323 

HLT 

641002 

RCR 

TAO 

JMP 

HLT 

MOP 

LAC 

OAC 

OZM 

LAC 

754302 

RAL 

OAC 

SNA 

JMP 

JNS 

OAC 

LAW 

ISZ 

NOP 

JMS 

SAD 

JttP 

OPR 

OAC 

XC? 

OPR 

OAC 

LAC 

TAD 

ISZ 

OAC 


/HIGH OROER PART OF A 
*02 / NUMBER BETWEEN 

AC*3 / ONE-HALF ANO TWO. 

ACO 1 ALGORITHM BY 0 D METCALF. 

AC*2 

(166712) 

.♦6 

.♦21 

AC*3 / ITERATE THREE TIMES 

/ ON HIGH OROER: 

AC*2 / 0(I*1)»(0(J)4X/0C !))/£. 


BC 

.-3 

AC 

.-14 

AC*2 / HIGH OROER ROOT. 

BC*1 / EXTEND PRECISION 

8C t TO LOW OROER 

/ WITH ROUNDING. 


BCM 

500 

/ ARCTANGENT. 

AC 

COS 

AC 

AO»I 


.♦6 

eiM 

COS-3 

I 

COS-3 

SVMO 
* !0T-6 
♦ II 
2000 
COS-3 
PIOT-6 
12001 
COS-6 
PIOT-6 
COS-3 
COS-6 
COS-3 


721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

702 

703 


& ^ 
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025H03 

7HI000 


OPR 

(000 

70H 

025*4 OH 

0N5H57 


OAC 

COS-6 

785 

Q25H05 

753015 


OPR 

130(5 

786 

025NQ6 

751 0*4*4 


OPR 

1 10*4*4 

787 

02SH07 

752013 


OPR 

(20(3 

788 

025HI0 

2H5H57 


XOR 

COS-6 

789 

025HI | 

751031 


OPR 

11031 

790 

025HI2 

752011 


OPR 

(291 ( 

791 

025*413 

2H5H57 


XOR 

COS-6 

792 

02SHIH 

751020 


OPR 

( (020 

793 

025HI5 

752007 


OPR 

(2007 

79*4 

025HI6 

2H5H57 


XOR 

COS-6 

795 

025HI7 

751 on 


OPR 

non 

796 

025*420 

752005 


CPR 

(2005 

797 

025H2I 

2H5H57 


XOR 

COS-6 

798 

025H22 

75I00H 


OPR 

1I00H 

799 

03SH23 

752003 


OPR 

(2003 

800 

02SH2*4 

2H5H57 


XOR 

COS-6 

sot 

025H25 

752001 


OPR 

(2001 

802 

02SH26 

2HSH62 


XOR 

COS-3 

803 

025H27 

7H5000 


OPR 

5000 

80*4 

025*430 

305H5I 


ADO 

PIOT-3 

805 

025*431 

7H0000 


NOP 


806 

025*432 

7H0000 


NOP 


807 

025H33 

20SH76 


LAC 

SIN 

808 

025*43*4 

0HHI75 


OAC 

AC 

809 

025*435 

7*4(200 


SNA 


810 

025*436 

605HH2 


JWP 


8(1 

025*437 

10*4071 


UHS 

tin 

812 

02SHH0 

305H5H 


ADO 

PIOT 

813 

025HHI 

7H0000 


NOP 


81*4 

025HH2 

! 0*4303 


JMS 

RSHD 

815 

02SHH3 

20SH65 


LAC 

COS 

816 

025*4*4*4 

0*4*4(75 


OAC 

AC 

817 

025HH5 

6253H7 


UMP* 

ATN 


025HH5 

H632QI 


*463201 


820 

025*4*47 

32H0H7 


32H0H7 


82* 

02SHS0 

777777 


-1 


822 

02SH5I 

552H2I 


552H21 


823 

025*452 

71(037 


71(037 


82*4 

025H53 

777777 


~I 


825 

025H5H 

552H2I 

PIOT 

552H2 I 


825 

025H55 

31 (037 


311037 


827 

025*456 

00000 I 


1 


828 

025*457 



.BLOCK 

6 

829 

02SH65 

7HOOHO 

COS 

HLT 

/ COSINE. 

830 

025*466 

7*40000 


NOP 


831 

025*467 

1*4*4(75 


Qin 

AC 

832 

025*470 

I *45*457 


OZH 

COS-6 

833 

02SH7I 

205H65 


LAC 

COS 

83*4 

025*472 

0H5H76 


OAC 

SIN 

835 

025*473 

(0H272 


JUS 

SVKD 

836 

02SH7H 

305H5H 


ADO 

PIOT 

837 

025*475 

60550*4 


JNP 

.♦7 

838 

025H76 

7*400*40 

SIN 

HLT 

/ SINE. 

839 

025*477 

7N0000 


NOP 


8*40 

025500 

20*4(75 


LAC 

AC 

8*4 » 

025501 

0H5H57 


OAC 

COS-6 

8H2 


270 


f 


03/01/73 FOCAL-RCO RUN H1TH RALPH 

025902 111175 
025503 10*1272 
0235 OH 113151 
025505 015162 
025505 710000 
025507 I01SI7 


025510 

711020 

02551 1 

015165 

025512 

101210 

025513 

101325 

025511 

305162 

025515 

710000 

025516 

205165 

025517 

710020 

025520 

710100 

025521 

605525 

025522 

101071 

025523 

752777 

025521 

710000 

025525 

205165 

025526 

712020 

025527 

750010 

025530 

215157 

025531 

011175 

025532 

101071 

025533 

105151 

025531 

015162 

025535 

71*000 

025536 

015157 

025537 

760001 


025510 710000 
025511 206752 
025512 015515 
025513 711001 
025511 653122 
025515 710010 


029516 

610611 

025517 

760753 

025550 

61061 I 

025551 

015551 

025552 

101071 

025553 

105157 

025551 

710010 

025555 

752001 

025556 

710000 

025557 

777776 

025560 

315515 

025561 

710200 

025562 

605512 

025563 

1C1071 

029561 

105162 

025565 

710000 

025566 

101303 

025567 

625176 

025570 

710010 

025571 

710000 

025572 

101211 

025573 

605651 


••• P0P9/I5 ASSEMBLY LISTING 
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dzm 

AC 


MS 

SVMO 

813 

IS z 

PIOT 

811 

OAC 

eos-3 

815 

NOP 


816 

MS 

FXO 

817 

RCR 


818 

OAC 

COS 

819 

MS 

CIA 

850 

MS 

FLOAT 

851 

AOD 

COS-3 

852 

NOP 


853 

LAC 

cos 

851 

RAR 


855 

SNL 


856 

JHP 

.♦1 

857 

MS 

EIH 

858 

OPR 

12777 

859 

NOP 


PSO 

LAC 

COS 

861 

RTR 


862 

0LK 


863 

XOR 

COS-6 

861 

OAC 

AC 

865 

MS 

EIN 

866 

XCT 

PIOT 

867 

OAC 

COS-3 

868 

OPR 

1000 

869 

OAC 

COS-6 

870 

LAN 

1 

871 

NOP 


872 

LAC 

(161 

873 

OAC 

.♦3 

871 

74400! 


875 

653138 


876 

HLT 


877 

64061 1 


878 

LAM 

753 

879 

64061 1 


820 

OAC 

.♦3 

881 

iit1S 

EIH 

862 

XCT 

COS-6 

883 

HLT 


881 

OPR 

12001 

885 

NOP 


886 

-a 


887 

tad 

.-13 

888 

SZA 


889 

MP 

.-20 

890 

MS 

EIH 

891 

XCT 

COS-3 

892 

NO> 


693 

MS 

RSIO 

891 

MP* 

SIN 

895 

HLT 

NOP 

/ NATIAAL LOGARITHM. 

901 

JHS 

MP 

f®* 7 *-00 OF ZERO IS ZERO. 

LUG 

905 

906 


90 ? 
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RUN WITH RALPH 

02557** 

144175 

025575 

204176 

025576 

744010 

025577 

3**52*»7 

025600 

045074 

025601 

206603 

025602 

044176 

025603 

104272 

025604 

**05653 

025605 

752002 

025606 

045664 

025607 

75277** 

025610 

445664 

025611 

04566** 

025612 

741000 

025613 

045661 

025614 

751011 

025615 

753013 

025616 

752001 

025617 

405661 

025620 

751007 

025621 

753011 

025622 

752001 

025623 

405661 

02562** 

751005 

025625 

753007 

025626 

752001 

025627 

405661 

025630 

751003 

025631 

753005 

025632 

752001 

025633 

405661 

02563** 

753003 

025635 

752001 

025636 

751002 

025637 

405664 

025640 

045664 

0256** 1 

740000 

025642 

205074 

025643 

104325 

0256** ** 

753002 

025645 

445656 

025646 

305664 

0256 **7 

740000 

025650 

104303 

025651 

205570 

025652 

625570 

025653 

714640 

025654 

265011 

025655 

000001 

025656 

354513 

025657 

270524 

025660 

000001 

025661 

000002 

025662 

000033 

025663 

000444 

02566** 

005555 

025665 

066666 


••• P0P9/I5 

OZM 

LAC 

RCL 

TAD 

OAC 

LAC 

OAC 

JHS 

XCT 

OPR 

OAC 

OPR 

ISZ 

OAC 

OPR 

OAC 

OPR 

OPR 

OPR 

XCT 

OPR 

OPR 

OPR 

XCT 

OPR 

OPR 

OPR 

XCT 

OPR 

OPR 

OPR 

XCT 

OPR 

OPR 

OPR 

XCT 

OAC 

NOP 

LAC 

JHS 

OPR 

ISZ 

ADO 

NOP 

JHS 

LOO LAC 

JHP* 
71H6H0 
26501! 

1 

35H5I3 

27052H 

! 

2 
33 

5555 

66666 


ASSEMBLY LISTING ••• 

AC / LOG OP ABSOLUTE VALUE. 

AC* 1 

NEC! 

OVTN 

cn 

AC* t 
SVHO 
EXP- 1H 
12002 
EXP-3 
I277H 
EXP-3 
EXP-3 
1000 
EXP-6 
UGH 
130X3 
12001 
EXP-6 
! 1007 
13011 
12001 
EXP-6 
11005 
13007 
12001 
EXP-6 
11003 
13005 
12001 
EXP-6 
13003 
12001 
11002 
EXP-3 
EXP-3 

OVTN 
FLOAT 
13002 
EXP- 11 
EXP-3 

RSMO 

LOG 

LOG 


PAGE NO. 


5H 


BOB 

909 

910 

911 

912 

913 
91 H 

915 

916 

917 

918 

919 

920 

921 

922 

923 
92H 

925 

926 

927 

928 

929 

930 

931 

932 

933 
93H 

935 

936 

937 

938 

939 
9H0 

QU \ 

9H2 
9H3 
9 HH 
945 

546 

547 

948 

949 

950 

951 

952 

953 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 
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* • • 


P0P9/I5 ASSEMBLY LISTING 
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55 


n-. ss<- 


035666 

777777 


777777 


025667 

740040 

EXP 

HLT 


025670 

740000 


NOP 


02567 1 

104272 


JMS 

SVMD 

025672 

405656 


XCT 

EXP- 11 

025673 

045664 


DAC 

EXP-3 

025674 

104540 


JMS 

F I XL 

025675 

045052 


DAC 

MPTN 

025676 

104210 


JMS 

CIA 

025677 

104325 


JMS 

FLOAT 

025700 

305664 


ADD 

EXP-3 

025701 

445656 


1SZ 

EXP- 11 

025702 

045664 


DAC 

EXP-3 

025703 

753011 


OPR 

13011 

025704 

752001 


OPR 

12001 

025705 

740000 


NOP 

025706 

777770 


-10 


025707 

045074 


DAC 

OVTN 

025710 

205703 


LAC 

.-5 

025711 

045715 


DAC 

.♦4 

025712 

605720 


JMP 

-♦6 

025713 

104071 


JMS 

EIM 

025714 

405664 


XCT 

EXP- 3 

025715 

740040 


HLT 


025716 

752001 


OPR 

12001 

025717 

740000 


NOP 

025720 

750001 


CLC 


025729 

345715 


TAD 

.-4 

025722 

045715 


DAC 

.-5 

025723 

445074 


ISZ 

OVTN 

025724 

605713 


JMP 

.-11 

025725 

104071 


JMS 

EIM 

025726 

405664 


XCT 

EXP-3 

025727 

75200 1 


OPR 

12001 

025730 

740000 


NOP 

025731 

205052 


LAC 

MPTN 

025732 

344176 


TAD 

AC+1 

025733 

044176 


DAC 

AC+1 

025734 

104303 


JMS 

RSMD 

025735 

625667 


JMP* 

EXP 

02573S 

653613 

FMT 

653613 

025737 

104210 


JMS 

CIA 

025740 

045751 


DAC 

INWD 

025741 

641607 


641607 

025742 

104210 


JMS 

CIA 

025743 

045752 


DAC 

FRWD 

025744 

605264 


JMP 

8AK 

025745 

000000 

EFMD 

0 


025746 

OOOOCC 

EXPAD 

0 


025747 

240000 


240000 


025750 

000004 


4 


025751 

777766 

INWD 

-12 


025752 

777773 

FRWO 

-5 


025753 

740040 


HLT 


025754 

021065 

FOOEV 

TYPE 


025755 

740040 


HLT 


025756 

045754 

FOUT 

DAC 

FODEV 

025757 

545745 


DZM 

EFMD 


/ NATURAL EXPONENT. 


/ SET OUTPUT FORMAT LMQ.CLA. LLS 13 
/ BY EAE AABB, 

/ WHERE: 

/ AA - ' INTEGER ' WIDTH. 

/ BB - 'FRACTION* WIDTH. 


/ E OR F MODE 


/ OUTPUT ONE OECIMAL 


966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 
9B9 

990 

991 

992 

993 

994 

995 
9SS 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 


101 1 
1012 

1014 

1015 

1016 


1017 

1018 

1019 

1020 
1 02 1 
1022 
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025760 

204071 

LAC 

EIH 

/ NUMBER PROM PAC 

1023 

025761 

045755 

OAC 

POUT- 1 

/ BY AND AORS. 

1 OSH 

925762 

200044 

LAC 

PISW 

/ WHERE AORS IS AOR OP CHAR OUT ROUTINE 


025763 

745200 

SNAtCLL 


/ E OR P OUTPUT? 


025764 

740002 

CHL 


/ E 


025765 

205752 

LAC 

PRWD 



025766 

740100 

SMA 




025767 

7S0001 

CLC 



1026 

025770 

741400 

SZL 




025771 

777772 

LAN 

-6 



025772 

046224 

OAC 

OGO 


1029 

025773 

045753 

OAC 

FRWD* I 



025774 

750010 

GLK 




025775 

045745 

OAC 

EFMO 

/ SET MODE SW 


025776 

104272 

JMS 

SVMO 


1030 

025777 

046214 

OAC 

SVPAC 

/ SAVE PAC POR RETURN. 

1031 

026000 

760005 

LAW 

5 

/ CALCULATE ROUNDING TERM. 

1032 

026001 

740000 

NOP 



1033 

026002 

105074 

JMS 

OVTN 


103H 

026003 

446224 

ISZ 

OGO 


1035 

0260 OH 

606002 

JMP 

.-2 


1036 

026005 

104071 

JMS 

CIM 


1037 

026006 

046221 

OAC 

DGO-3 


1038 

026007 

206214 

LAC 

SVPAC 


1039 

026010 

745000 

OPR 

5000 


10H0 

026011 

346221 

TAD 

DGO-3 

/ SUBTRACT OR AOO 

1 OH 1 

026012 

740000 

NOP 


/ ROUNOING TERM. 

10M2 

026013 

306321 

AOO 

DGO-3 


? 0H3 

026014 

740000 

NOP 



X OHM 

026015 

146221 

OZM 

PGO-3 



026016 

104214 

JMS 

ACZ 


1 OHS 

026017 

741000 

SKP 



10H6 

026020 

606024 

JMP 

.♦M 


1 0H7 

026021 

206753 

LAC 

(MO) 

/ SET 'SIGN* TO SPACE 


026022 

046217 

DAC 

000-5 

/ IP NUMBER IS ZERO. 

S0H9 

026023 

606038 

JMP 

PRO-6 


1050 

026024 

204175 

LAC 

AC 


1051 

026025 

740020 

RAR 



1052 

026026 

206753 

LAC 

(MO) 

/ SAVE SIGN AND SET 

1053 

026027 

741400 

SZL 


/ PAC POSITIVE. 

1 05H 

026030 

206754 

LAC 

(55) 


1055 

026031 

046217 

OAC 

DGO-5 


1056 

026032 

144175 

OZM 

AC 


1057 

026033 

204176 

LAC 

AC* 1 

/ IP NOT LESS TH; 1.0, 

1 05B 

026034 

740300 

SMAISZA 


/ GO TO ’ INTEGER * PRINT. 

1059 

026035 

606071 

JMP 

PRO! *2 



026036 

206603 

LAC 

(I) 


1061 

026037 

345751 

TAO 

1NWO 


1062 

0260H0 

741100 

SPA 


/ IP FRACTION ONLY, PRINT 

1063 

026041 

106244 

JMS 

SPAC 

/ LEADING SPACES. SIGN, 

I06H 

026042 

206217 

LAC 

DGO-5 

/ AND OECIMAL POINT. 

1065 

026043 

125754 

JMS* 

FODEV 


1066 

026044 

205753 FRO 

LAC 

FRM0+1 

/ PRINT FRACTIONAL 


026045 

740100 

SMA 


/ PART OP NUMBER. 

1068 

026046 

6CS143 

JMP 

OON 


1069 

026047 

205745 

LAC 

EFND 



026050 

741200 

SNA 




026051 

606062 

JMP 

.♦11 
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026052 206630 

0260S3 344176 

02605H 740100 

026055 606062 

026056 104071 

026057 405746 

026060 740000 

026061 606052 

026062 206755 

026063 125754 

026064 445753 

026065 741000 

026066 606143 

026067 106224 FROl 

026070 606064 

026071 105074 

026072 446221 

026073 204176 

026074 740300 

026075 606071 

026076 205751 

026077 346221 

026100 741100 

026101 606113 

026102 206217 

026103 125754 

026104 206755 

026105 125754 

026106 206603 

026107 045745 

026110 740020 

0261 1 1 206756 

026112 606120 

026113 346603 

026114 741100 

026115 106244 

026116 744000 

026117 206221 

026120 046255 

026121 740001 

026122 046220 

026123 206217 

026124 740400 

026125 125754 

026126 446220 

026127 741000 

026130 606133 

026131 106224 

026132 606126 

026133 205745 

026134 741200 

026135 606044 

026136 777772 

026137 346255 

026140 045753 

026141 741100 

926142 606067 

026143 205745 00N 
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r 

£T' ^ 
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026144 740200 
026145 606161 
026146 203536 
026147 741200 
026150 606153 
026151 760215 
026152 125754 
026153 104071 
026 154 206214 
026155 104303 
026156 205755 
026157 346603 
026160 604330 
026161 760305 
026162 125754 
026163 206221 
026164 744200 
026165 606202 
026166 206216 
026167 346603 
026170 745102 
026171 104210 
026172 046217 
026173 206754 
026174 744400 
026175 125754 
026176 206217 
026177 657323 
026200 000003 
026201 641002 
026202 653323 
026203 000012 
026204 046220 
026205 641002 
026206 306210 
026207 125754 
026210 760260 
026211 346220 
026212 125754 
026213 606146 
026214 

026224 740040 
026225 105052 
026226 104517 
026227 744020 
026230 246757 
026231 346603 
026232 506757 
026233 046241 
026234 641501 
026235 206760 
026236 640002 
026237 125754 
026240 104071 
026241 740040 
026242 740000 
0262*3 626224 
026244 740040 
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58 


EXPOUT 


SVFAC 

DGO 


SZA 

JMP 

LAC 

SNA 

JMP 

LAW 

JMS* 

JMS 

LAC 

JMS 

LAC 

TAD 

JMP 

LAW 

JMS* 

LAC 

SZA ! CLL 
JMP 
LAC 
TAD 

SPA I STL 
JMS 
DAC 
LAC 

SNLICLL 

JMS* 

LAC 

ID1VS 

3 

LACQ 

1DI V 

12 

DAC 

LACO 

ADD 

JMS* 

LAW 

TAD 

JMS* 

JMP 

.BLOCK 

HLT 

JMS 

JMS 

RCR 

XOR 

TAD 

AND 

DAC 

641501 

LAC 

OMQ 

JHS° 

JMS 

HLT 

NOP 

JMP* 

HLT 


EXPOUT 

HSOSW 

. +3 
215 
FODEV 
EIM 
SVFAC 
RSMD 
FOUT-1 
( 1 ) 

SRTN 

305 

FODEV 

DGO-3 

SVFAC- 12 
SVFAC+2 
( 1 ) 

CIA 

DGO-5 

(55) 

FODEV 

DGO-5 


0G0-4 

.+2 

FODEV 

260 

DGO-4 

FODEV 

ODN+3 

10 

MPTN 

FXG 

(752777) 
( 1 ) 

(752777) 

.♦6 

(60) 

FODEV 

EIM 


DGO 


/ RESTORE FAC. USER 
/ DATA MODE. AND 
/ RETURN. 


/ E 


/ INTEGER PART? 
/ YES 


/ PRINT - OR 


/ PRINT EXPONENT 


/ ROUTINE TO PRINT 
/ LEADING DIGIT, THEN 
/ SUBTRACT IT FROM 


/ 


PREVIOUS RESULT. 


1 1 1 
1 12 

113 

114 
1 15 


1 1 16 
1 I 17 
1 1 18 
l 1 19 
1 120 
1 121 
1 122 
1 123 
1 124 
1 125 
! 126 
1 127 
1 12B 
1 129 

1130 

1131 

1132 

1133 



SPAC 


/ PRINT N SPACES. 
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0262H5 0*16224 

026246 206733 

0262H7 1 25754 

026250 446224 

026251 6082*16 

026252 6262**** 

026253 | 06255 

02625** 60526** 

026255 000000 

026256 I **8373 

026257 146371 

026260 1***»!75 

026261 l*t**177 

026262 1 <***200 
026263 i 4420 1 
02626** l 44202 
026265 l <***203 
026266 1 41*204 

026267 2067**5 

026270 044176 

026271 !06**10 

026272 7HHI00 

026273 606276 

02627** 444 1 75 

026275 606271 

026276 046410 

025277 204177 

026300 653122 

026301 000012 

026302 6** 1 002 

026303 044 I 77 

026304 204200 

026305 653122 

026306 000012 

026307 344177 


026310 

044177 

026311 

641002 

026312 

346410 

026313 

044200 

026314 

741400 

026315 

•*44177 

026316 

204201 

026317 

344202 

026320 

044201 

026321 

606271 

026322 

1**6373 

026323 

106410 

026324 

744100 

026325 

606330 

026326 

044204 

026327 

606323 

026330 

046410 


026331 204203 
026332 653122 
026333 000012 
026334 6*tl002 
026335 346410 
026336 044203 


••• PQP9/13 ASSEMBLY LISTING 


FINP 
F INPUT 


NUH1 


EXPN 


OAC 

LAC 

JMS» 

ISZ 

JMP 

JMP» 

JMS 

JMP 

0 

DZM 

DZH 

OZM 

OZM 

OZM 

OZM 

OZM 

OZM 

OZM 

LAC 

OAC 

JMS 

SMA1CLL 

JMP 

ISZ 

JMP 

OAC 

LAC 

MUL 

12 

LACQ 

OAC 

LAC 

MUL 

12 

TAO 

OAC 

LACQ 

TAO 

OAC 

SZL 

ISZ 

LAC 

TAO 

OAC 

JMP 

OZM 

JMS 

SMAICLL 

JMP 

OAC 

JMP 

OAC 

LAC 

MUL 

12 

LACQ 

TAD 

OAC 


000 
C40) 
FOOEV 
000 
.-3 
SPAC 
F INPUT 
BAX 

CHRX+1 

NCHR 

AC 

Af>2 
AC *3 
ac 
BC+l 
BC*2 
8C+3 
(•*3) 
AC*I 
FCHAR 

.♦3 

AC 

NUM1 

FCHAR 

AC+2 


AC *-2 
AC*3 


AC*2 
AC *2 

FCHAR 

AC-*3 

AC*2 

BC 

ac*-i 

BC 

NUMI 

CHRX+I 

FCHAR 

.♦3 

BC+3 

EXPN 

FCHAR 

BC«2 


FCHAR 

BC*2 


/ ENTER MITH -N 
/ IN AC. 


/ 

/ 

/ 


* . * « rwz. • 

ONE FREE-F0RMA1 
DECIMAL NUMBER in FAC. 


/ CLEAR REGISTERS FOR 
/ SET-UP OF DEFAULTS. 


/ CHAR FOR MANTISSA. 

/ IF ‘MINUS’, SET 
' PAC NEGATIVE. 


' mantissa by ten AND 

/ AOD NEW DIGIT. 


/ Tww T rn F ^ n0N C0UNTER - 
1 THEN GO TOR 

/ NEXT CHARACTER. 


/ START EXPONENT. 

* ’MINUS • , SET 

f exponent negative. 


t ir DIGIT. MULTIPLY 
/ CURRENT EXPONENT 
/ BY TEN AND ADO 
/ NEH DIGIT . 


113** 

1135 

1136 
1 137 

1138 

1139 


1 1 *♦*♦ 
1 1H5 
1 1 46 
l l HI 
IIHB 

1149 

1150 

1151 
1 152 
1153 

1 155 
I 156 
1 157 
1 158 

1160 
1161 
1162 
1 !63 
I 164 

1165 

1166 
1 167 
1 168 

1 169 
1170 

2 1 72 

1173 

1174 

1175 
1 176 
1177 
1 178 
1179 

3 181 
1182 

1183 

1184 

£186 

1187 

1188 
1189 

1 191 
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026337 

606323 


026340 

104731 

I NAN 

026341 

204204 


026342 

740010 


026343 

204203 


026344 

741400 


026345 

104210 


026346 

344201 


026347 

741200 


026350 

626255 


026351 

044201 


026352 

740100 


026353 

104210 


026354 

044202 


026355 

204201 


026356 

740010 


026357 

206367 


026360 

745400 


026361 

2C6370 


026362 

046363 


026363 

74004Q 


026364 

444202 


026365 

606363 


026366 

626255 


026367 

105052 

PNTN 

026370 

105074 

POTN 

023371 

740040 

NCHR 

026372 

740040 

CHRX 

026373 

740040 


026374 

777777 

DZC1 

026375 

044202 


026376 

606271 


026377 

206373 

MI 

026400 

740201 


026401 

606340 


026402 

046373 


026403 

626410 


026404 

206373 

Ci 

026405 

745200 


026406 

606411 


026407 

606340 


026410 

740040 

FCHAR 

026411 

206463 


023412 

740200 


026413 

606417 


026414 

2Q0050 


026415 

045463 


026416 

74.1000 


026417 

124205 


026420 

200050 


026421 

506610 


026422 

046372 


026423 

546753 


026424 

606404 


026425 

546761 


026426 

606404 


026427 

745200 


026430 

604072 
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JMP 

EXPN 


I 192 

JMS 

NOR 

/ TERMINATOR . 

1 193 

LAC 

BC*3 


1 194 

RAL 


/ CALCULATE EFFECTIVE 

1 195 

LAC 

8C+2 

/ INPUT EXPONENT FROM 

1 196 

SZL 


/ EXPLICIT EXPONENT ANO 

1 197 

JMS 

CIA 

/ FRACTION COUNTER. 

1 1 98 

TAO 

BC 


1199 

SNA 


/ IF ZERO. RETURN. 

1200 

JMP* 

F INPUT 



OAC 

BC 


1202 

SHA 



1203 

JMS 

CIA 


1204 

OAC 

BC*1 


1205 

LAC 

BC 


1206 

RAL 


// MULTIPLY OR OIVIOE 

1207 

LAC 

PMTN 

/ FAC BY TEN UNTIL 

1208 

SZLICLL 


/ EFFECTIVE EXPONENT 

1209 

LAC 

FOTN 

/ IS ZERO. 

1210 

OAC 

.♦1 


1211 

HLT 



1212 

ISZ 

BC* 1 


1213 

JMP 

.-2 


1214 

JMP* 

F INPUT 



JMS 

MPTN 


1216 

JMS 

OVTN 


1217 

HLT 


/ INPUT CHARACTER COUNTER. 

1218 

HLT 


/ LAST INPUT CHARACTER. 

1219 

HLT 



1220 

-1 


/ SET FRACTION INDICATOR. 

1221 

OAC 

BC* I 


1222 

JMP 

NUM! 


1 223 

LAC 

CHRX* 1 


1224 

SZAICHA 


/ MINUS TERMINATES OR 

1225 

JMP 

I NAN 

/ NEGATES CURRENT 

1226 

OAC 

CHRX*! 

/ NUMBER PART. 

1227 

JMP* 

FCHAR 



LAC 

CHRX+1 

/ BLANK IS TERMINATOR 

2 229 

SNAICLL 


/ IF FOLLOWS NON-BLANK 

1230 

JMP 

FCHAR* 1 

/ NON-TERM tNATOR. 


JMP 

I NAN 


1232 

HLT 




LAC 

INFLG 



SZA 


/ USE CHAR IF 0. 


JMP 

.♦4 



LAC 

CHAR 



OAC 

INFLG 

/ SET FLAG. 


SKP 




JMS* 

ADR 

/ USE USER-SPEC IF IEO 

1234 

LAC 

CHAR 



AND 

C 1771 

/ CHARACTER ROUTINE. 

1235 

OAC 

CHRX 

/ SAVE CHARACTER. 

1236 

SAO 

(401 

/ TEST FOR BLANK. 

1237 

JMP 

CI 


1238 

SAO 

111) 

/ TREAT TAB AS BLANK. 

1239 

JMP 

CI 


1240 

SNAICLL 


/ IGNORE LEADER. 

1241 

JMP 

EIM*I 

i RESTART INPUT INSTRUCTION. 
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026431 

546762 

026432 

606404 

026433 

546333 

026434 

606411 

Q26435 

546610 

026436 

60641 S 

026437 

346754 

026440 

606377 

026441 

546763 

026442 

606322 

026443 

046373 

026444 

546755 

026445 

606374 

026446 

640504 

026447 

546630 

026450 

741000 


026451 606340 
026452 641604 
026453 652000 
026454 740001 
026455 346333 
026456 745100 
026457 606340 
026460 446371 
026461 641002 
026462 626410 
0264G3 000001 
026464 026464 
026465 000000 
026466 505100 


026567 000000 
026570 000000 
026571 035506 
026572 170301 
026573 145422 
026574 030440 
02S575 771500 
026576 000000 


026603 00000 I 
026604 006752 
026605 777477 
026606 777746 
026607 777600 
026610 000177 
02661 1 200000 
026612 000215 
025613 000377 
026614 000242 
026615 000306 
026616 000275 
026617 000077 
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ECHK 


PERCH* 


INFLG 

OP 


SAD 

(53) 

mn 

wrTr' 

Cl 

SAD 

I NAN-5 

JHP 

FCHAR*! 

SAD 

(177) 

JHP 

FCHAR.I 

SAD 

(55) 

JHP 

MI 

SAD 

(105) 

JHP 

EXPN-I 

OAC 

CHRX+I 

SAD 

(56) 

JHP 

OECI 

LRS 

4 

SAO 

(3) 

SKP 

JHP 

I NAN 

641604 

LMQ 

CNA 

TAD 

I NAN-5 

SPAICLL 

JHP 

I NAN 

ISZ 

NCHR 

LACQ 

JHP* 

FCHAR 


1 


t OR IS IGNOREO. 

/ IGNORE LINE-FEED. 


/ IGNORE RUB-OUT OR LEADER. 

/ •MINUS' NEGATES 
/ OR TERMINATES. 

/ *£■ STARTS EXPONENT. 

/ SET BLANK TERMINATOR. 

/ TEST FOR OECIMAL POINT. 

1 test FOR ASCII CODE 
/ FROM 60 THROUGH 7 I , 

/ IF NOT. TERMINATE. 


• IP LEGAL OIGIT. 

/ TRUNCATE TO FOUR 
/ BITS. INCREMENT 
/ CHARACTER COUNTER 
/ AND RETURN. 


0 

505100 

10BUF-. 

COME IN*! 0BUF.2 
COMEOUT -COME I N. 76 
-LOC 
0 
0 

035506 
170301 
145422 
03044Q 
771500 
0 

SUFQEG-40000 

.LOC 

-ENO 


FRST 


FRSTX 


COMEOUT 


/ OUMMY LINE • 
/ C-F 
/ OCA 
/ L.R 
/ CO 


I0BUF+H4 


61 


1243 

1244 

1245 

1247 


1249 

1250 

1251 


1253 

1254 


lc66 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 
1267 
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026620 

000013 

026621 

000256 

026622 

777520 

026623 

777767 

026624 

000007 

026625 

300000 

026626 

000002 

026627 

340000 

026630 

000003 

026631 

440000 

026632 

000004 

026633 

400000 

026634 

000005 

026635 

021757 

026636 

00030! 

026637 

000100 

026640 

777641 

026641 

000337 

026642 

000277 

026643 

777740 

026644 

000260 

026645 

777765 

026646 

012376 

026647 

000220 

026650 

006737 

026651 

000376 

026652 

026466 

026653 

016267 

026654 

777364 

026655 

016600 

026656 

01660! 

025657 

747303 

026660 

777400 

026661 

010407 

026662 

022753 

026663 

007000 

026664 

022743 

026665 

022746 

026666 

000037 

026667 

0QS240 

026670 

302534 

626671 

002535 

026672 

606054 

026673 

006305 

026674 

006522 

026675 

002605 

0266** 6 

031 177 

026677 

005725 

026700 

006141 

026701 

006303 

026702 

023645 

026703 

023303 

026704 

006072 

026705 

000212 

026706 

031577 

026707 

013415 

026710 

013414 

026711 

006017 
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026712 

032603 

026713 

000200 

0267 IN 

031200 

026715 

00651% 

026716 

023623 

0267*7 

002600 

026720 

023%5% 

026721 

000300 

026722 

022100 

026723 

022%20 

02672% 

023630 

026725 

01 1565 

026726 

007%36 

02672? 

O073%7 

026730 

02%Q62 

026731 

000271 

026732 

000255 

026733 

000261 

02673% 

000272 

026735 

000276 

026736 

023663 

026737 

02%00l 

026?% 0 

011600 

0267%! 

000017 

0267N2 

060000 

026?%3 

777000 

026?%% 

000777 

0267%5 

0Q00%3 

0267%6 

660500 

0267N7 

000022 

026750 

377777 

026751 

166712 

026752 

000016 

026753 

0000%0 

02675% 

000055 

026755 

000056 

026756 

000006 

026757 

752777 

026760 

000060 

026761 

000011 

026762 

000053 

026763 

000105 


V 

fs3 

00 


AC 

024175 

OCONT 

020355 

ACZ 

024214 

OEBGSH 

020027 

ADO 

020045 

OECBLK 

006522 

A 000 JR 

005725 

OECOEL 

0233*47 

AOIR 

024723 

DECOCT 

023161 

ADR 

024205 

OECGTI 

0231*41 

ALiST 

021252 

DEC IN 

023*423 

AOT 

025263 

0EC1NI 

023*43*4 

ARQNXT 

021644 

DEC I M2 

023*45*4 

ARTN 

022623 

0EC1N3 

02350*4 

ASK 

021064 

DC CUB 

023360 

ATLIST 

021 MSS 

OECLII 

023372 

ATN 

025347 

OECLOS 

02326*4 

ATSH 

020041 

OECNT 

0232*42 

AXIM 

023055 

DECO 

02331 1 

AXOUT 

023056 

DECONV 

023026 

BAK 

025264 

OECORN 

02313*4 

BC 

024201 

DECOI 

023*406 

BCR 

013413 

OECPAP 

023572 

BCZ 

024226 

OECPRT 

023223 

BEGIN 

022735 

OECPUT 

023303 

BINARY 

023603 

OECNT 

0232*43 

8INLI 

023715 

0EC1 

02637*4 

SI MOOT 

Q24001 

DELETE 

022007 

binoi 

024034 

OELETR 

006017 

BINT 

023720 

OGO 

02622*4 

B1NYI 

023747 

OORP 

02031 1 

B1NYS 

023744 

DGRPI 

020325 

BtNI 

024060 

DIRFLG 

006303 

BINS 

024061 

DISONE 

010*407 

BINS 

02M070 

ON 

02*4206 

BLKNO 

006305 

OMPSH 

020061 

SLSO 

02H675 

DO 

020305 

BOTTOM 

020035 

OOK 

02203*4 

BUT8C0 

0*40000 

DONE 

022052 

BUFCNT 

023077 

OOONE 

0203*47 

BUT OUT 

023076 

0TRE1 

002535 

BUFR 

0200*43 

0TRE2 

00253*4 

CASQ 

02*4*427 

OVIR 

02*4725 

CFRS 

020070 

OVTN 

02507*4 

CFRSX 

020071 

OZMTEL 

022*4*4*4 

CHAR 

020050 

ECALL 

021*466 

CHECK 

023210 

ECHK 

026*4*42 

CHRX 

026372 

ECHOLST 

02151*4 

Cl 

026*40*4 

ECHO 

0257*45 

CIA 

02*4210 

EFOP 

0200*41 

CNTR 

0200*42 

EFUN 

021673 

COMBO T 

020072 

EKUN2 

02170*4 

COHBUF 

020067 

EFUN3 

0217*47 

CONE IN 

026*471 

EIH 

02*4071 

COME OUT 

026567 

ELPAR 

021713 

CONGO 

0210*42 

END 

020073 

COMLST 

020667 

ENOLN 

022275 

COS 

02SH65 

ENOT 

02007*4 

CRLF 

006737 

ENUH 

021661 

OATA 

023573 

EPAR 

021631 

OATAIN 

023610 

EPAR2 

021715 

OATAOR 

023615 

ERASE 

022127 
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ERG 

022150 

FHT 

ERL 

0221*45 

FHUL 

ERRORS 

022*45*4 

FNTABF 

ERRORS 

022*45*4 

fntabl 

ERROR *4 

022*45*1 

FOCALO 

ERRORS 

022*451 

FOCALS 

ERT 

022137 

FOOEV 

ERV 

0221*42 

FOPR 

ERVX 

022162 

FOR 

ETERH 

021537 

FOUT 

ETERHN 

02153*4 

FPUT 

ETERH 1 

021517 

FREG 

ETERN2 

0215*4*4 

FREGR 

EVAL 

021500 

FREG! 

EXP 

025667 

FRO 

EXPAO 

0257*46 

FROl 

EXPN 

026323 

FRST 

EXPOUT 

026161 

FRSTX 

EXTR 

022235 

FRHD 

FAOO 

02*477*4 

FSOK 

FCAS 

02*4*403 

FSGN 

FCHAR 

026*410 

FSIN 

FCONT 

021000 

FSUB 

FCOS 

022631 

FSUH 

FCZ 

02*4373 

FTEMP 

FOAC 

02*4*450 

FUPAR 

FOIS 

022715 

FXQ 

FOISR 

022721 

FZAC 

FOIV 

025212 

GEND 

FOVD 

*4*40000 

GERR 

FEND3 

022210 

GET 

FEXP 

022621 

GETARG 

FGET 

200000 

GETC 

FINCR 

020762 

GETLN 

FINDLN 

022165 

GET VAR 

FINON 

022170 

GET! 

FINFIN 

02103*4 

GET3 

FI HP 

026253 

GEXIT 

F INPUT 

026255 

GFN01 

finq 

02M5IH 

GINC 

F I NX 

024555 

GLIST 

F1SM 

020044 

GONE 

FI XL 

024540 

GOTO 

FUNS 

02431 1 

GSERCH 

FLAC 

024353 

GSI 

FLARG 

021757 

GS2 

FLIHIT 

020774 

GS3 

FLISTI 

020470 

GS4 

FLIST2 

020465 

GTEM 

FLOAT 

024325 

GZERR 

FLOO 

024321 

HSOSH 

FLOG 

022625 

HSOUT 

FLOP 

021602 

HSPX 

FLOG 

024332 

HSPXSM 

FLTONE 

022334 

HSR SET 

FLTZER 

022332 

IBAR 

FHIN 

340000 

IF 

FHPY 

0251 17 

IF 1 
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025736 

1F3 

020724 

400000 

lOMQR 

020120 

020266 

1LIST 

020664 

022107 

I MOP 

024716 

022745 

2 NAN 

026340 

022742 

iNoev 

022401 

025754 

INFIX 

922324 

024134 

1NFLG 

026463 

020736 

INFLT 

023571 

025756 

1NIG 

023100 

040000 

INLIST 

02Q063 

022637 

INPUT 

020651 

022647 

INPUTX 

020172 

022671 

INSUB 

020036 

026044 

INUO 

025751 

026067 

10 

023072 

026567 

loeuF 

026467 

026576 

I OSH 

023071 

025752 

IRETN 

020126 

024167 

1TER1 

021656 

024365 

KILL 

023275 

022627 

LACX1N 

023063 

024767 

LASTLN 

020026 

300000 

LASTOP 

020040 

021653 

LASTV 

020032 

021622 

LORFG 

023540 

024517 

LIBOAT 

023602 

024156 

LIBGO 

023122 

022257 

LIBLST 

023107 

020236 

LIBRARY 

023101 

024572 

LINENO 

020051 

021267 

LISTGO 

021250 

022216 

L1ST3 

020060 

020202 

LIST6 

020054 

021273 

L1ST7 

020056 

022252 

LOG 

025570 

022271 

LOO 

025651 

020250 

LT 

023654 

021404 

MESAG 

007000 

020052 

MESFOC 

022753 

021257 

MI 

026377 

020131 

MODIFY 

021 154 

020473 

MPIR 

C24727 

021330 

MPTN 

025052 

021341 

NAGSM 

020047 

0217 > 

NCHR 

026371 

0213- . 

NEGI 

025247 

021355 

NCR 

024731 

020022 

NUM1 

026271 

020257 

OON 

026143 

023536 

OOUT 

016267 

C23541 

OP 

026464 

023516 

OPNEXT 

021507 

023537 

OPTABL 

021652 

023560 

OUTFLT 

023074 

020113 

OUT 10 

023075 

020712 

PACBUF 

022757 

020734 

PACKST 

020030 
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PARTEST 021774 

PC 020023 

PCHK 020372 

PCKJ 023003 

PCI 020504 

POLXR 023054 

POTN 026370 

PCRCHK 026445 

PIOT 025454 

PMTN 026367 

POPP 020451 

POPJ 021451 

POP I 7 020423 

PREAD 023623 

PREAO I 023636 

PRINT 006752 

PR INTO 022420 

PRNT 022355 


prntln 

022337 

PROC 

020502 

PROCESS 020501 

PSEQ 

023771 

PT1 

020031 

PUNBIN 

011600 

PUNCH 

023645 

PUNSH 

007347 

PUSHA 

020361 

PUSHF 

020431 

PUSHJ 

020402 

PUSH 17 

020415 

PUTDIS 

022675 

PUTREG 

022700 

RANG 

021416 

ROBLK 

002606 

R001R 

008054 

ROIV , 

025205 

REAOC 

022100 

RCAOl 

012376 

RECOVX 

022470 

RET 

007436 

RETC 

006257 

RETRN 

021447 

RPAPER 

011565 

RSEQ 

023753 

RSHO 

024303 

RTAPE 

002600 

RUBI 

022515 

RUBE 

022532 

RUB3 

022547 

RUB4 

022526 

SOAR 

021201 

SCHAR 

021172 

SCONT 

021 167 

SEARCH 

006141 


SET 020736 
SEX 021241 
SEXC 020633 
STOUNO 021206 


SON 024234 

SOOT 021212 

SIN 025476 

SORTC 020614 

SORTCN 020037 

SORTJ 021214 

SPAC 026244 

SPECIAL 022327 

SPNOR 023045 

SQAX 025266 

SQO 025262 

SQRX 025276 

SRETN 020162 

SRNLST 021244 

SRTN 024330 

START 020075 

STARTV 020043 

STAX IN 023057 

SUBS 023045 

SVPAC 026214 

SVHO 024272 

TASK 021066 

task 4 021152 

tcrlf 021150 

TCRLF2 021145 

TOUHP 022554 

TELSM 022443 

TERBUF 023073 


terms 

021720 

testa 

020220 

TESTC 

020573 

TESTN 

021421 

TEXTP 

020020 

TH1SLN 

020024 

THISOP 

020025 

TINTR 

021135 

TLIST 

021260 

TLIST2 

021264 

TLIST3 

022322 

TQUOT 

021 126 

TSTGRP 

020637 

tstlpr 

021762 

type 

021065 

TVPE2 

021117 

T1 

020033 


12 020053 
TS 020034 
UPAR 021617 
UTE 022220 
WTO 022227 
UT * 022240 
MALL 020557 
HR1TE 020525 
MTOEC 006514 
MTOIR 006072 
MTESTG 020562 
MTCST2 020546 
Hx 020566 
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XAB 024240 

XABS 021744 

XCT 020021 

XCT1N 020046 

XINT 021037 

XRAN 021437 

XRT 023067 

XRT2 023070 

XSON 021741 

XSQRT 022633 

XT3 020611 

XX 740040 

XYZ 022364 
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/ LSOFIT RCO 11/72 

ASS- 13726 

ACZ- 13702 

0EC1N-I2461 

D1SAOO-7660 

D1SONE- I 0407 

ON* 15220 

FAOD-300000 

FBLKSV-15570 

FC1A-136S2 

FCLA-13686 

FDAC-000000 

FDlV-700000 

FEXT—131T2 

F1MT- 13051 

FLAC-200000 

FHUL-500000 

FRO I SK- 1557 l 

HESAG-7000 

NN0C0-76S7 

NOCD-10344 

ONARK-6746 

READ* 12366 

NET C -6257 

S-HOOOO 

SPASNA- 13657 

SON-13752 

(Ml T5- 15703 





.LOC 

20000 





.LIT 

S1HGU+3 


020000 

012415 


012415 


7 MATRIX 

020001 

020007 


MATRIX 



020002 

•(25661 


425661 


7 INVERT 

020003 

020163 


INVERT 



02000** 

•*61037 


461037 


7 ©SHIFT 

020005 

021336 


OSH I FT 



020006 

000000 


0 



020007 

121660 

MATRIX 

JNS* 

•tOEClNl 

7 ARRAY *. 

020010 

0**01Q2 


OAC 

SUM 


020011 

3**166t 


TAD 

*1—1121 


020012 

7 **0300 


SNAISZA 



020013 

621662 


JNP* 

<(QMANK) 

/ * TOO LARGE. 

02001** 

200102 


LAC 

SUN 


020015 

7**H010 


RCL 


/ MULT BY 3 

020016 

340102 


TAO 

SUN 


020017 

361663 


TAO* 

*1 FOLKS VI 

/ START BLK. 

020020 

0400SS 


OAC 

NATOLK 


020021 

22166** 


LAC* 

(OISONEI 


020022 

361665 


TAO* 

I01SA001 


020023 

040062 


OAC 

SPOOK 


02002** 

776400 


LAM 

-1400 


020025 

041052 


OAC 

NCTR 


020026 

777777 


LAN 

-1 


020027 

340054 


TAO 

SPECS 


020030 

061666 


OAC* 

112* 


020031 

160012 


DZN* 

12 

t ZERO OUT SUFFER 

020032 

441052 


1SZ 

NCTR 
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© 


020033 

600031 

03003* 

331667 

020035 

0*1053 

020036 

30005* 

020037 

0*0061 

0200*0 

131670 

0200*1 

360063 

0200*2 

030061 

0200*3 

131671 

0200** 

**0063 

0200*5 

100536 

0200*6 

**1053 

0200*7 

6000*0 

020050 

131672 

020051 

*21673 

020052 

000000 

020053 

776*00 

02005* 

026*00 

020055 

000000 

020056 

000005 

020057 

62167* 

020060 

000000 

020061 

000000 

020062 

000000 

030063 

000000 

02006* 

035000 

020065 

033*00 

020066 

033000 

020067 

00000Q 

020070 

000000 


020071 000000 
020072 000000 
020073 000000 
02007* 000000 
020075 000000 
020076 000000 
020077 000000 
020100 000000 
020101 000000 
020102 000000 
020103 000000 
02010 * 000000 


SPECS 

HATBLK 


HPUT 

SPEC 

SPOOK 

UNK 

SPOOKS 

HBUFU 

HBUF 

1NV1 

CINVI 

INV2 

SCALE 

B 

BIO 


R 


sun 


020105 020106 SCALES 

020106 000000 ZERO 


030107 

OOOOOC 


030110 

000000 


030111 

000000 

XI 

030113 

000000 

030113 

000000 


03011* 

000000 

xs 

030115 

000000 

030116 

000000 


02011? 

SS9Q0Q 

XI 

030130 

000000 

020131 

000000 


030122 

000000 

?1 

030123 

000000 

03012* 

000000 
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0S01SS 

000000 

y a 

0 

0S01S6 

000000 


0 

0S0IS7 

000000 


0 

0S0130 

000000 

Y3 

0 

030131 

000000 


0 

0S013S 

000000 


O 

020133 

oooooc 

AA 

0 

0201 34 

000000 


0 

020135 

000000 


0 

020136 

000000 

00 

D 

020137 

000000 


0 

020 mo 

000000 


0 

osomi 

000000 

ce 

0 

020 ms 

000000 


0 

020 m3 

000000 


0 

020 mn 

000000 

T 1 

0 

020145 

000000 


0 

020146 

000000 


0 

020147 

000000 

T2 

0 

020150 

000000 


0 

020151 

000000 


0 

020152 

000000 

HATRD 

0 

020153 

040157 


OAC 

020154 

421673 


XCT* 

020155 

000000 


0 

020156 

776400 


-1H00 

020157 

000000 


0 

02060 

000000 


0 

020161 

000003 


3 

020162 

620152 


JHP* 

020163 

121660 

INVERT 

JHS* 

020164 

741200 


SNA 

020165 

621662 


JHP* 

020166 

040067 


OAC 

020167 

740001 


CHA 

020170 

341675 


TAD 

020171 

040070 


OAC 

020172 

341666 


TAD 

020173 

741100 


SPA 

020174 

621662 


JHP* 

020175 

221663 


LAC* 

020176 

040055 


OAC 

020177 

040160 


OAC 

020200 

121672 


JHS* 

020201 

200065 


LAC 

020202 

100152 


JHS 

020203 

200066 


LAC 

020204 

040060 


OAC 

020205 

200105 


LAC 

020206 

040072 


OAC 

020207 

201676 


LAC 

020210 

040073 


OAC 

02021 1 

140071 


OZH 

020212 

40600 


OZH 

020213 

440071 

LP632 

ISZ 

020214 

200071 


LAC 

020215 

744010 


RCL 

020216 

340071 


tao 


. ♦H 

(FRDISK+2) 


HATRD 

(OECIN) 

(OMARK) 

INV1 

til 

CINV1 

CIS) 

(ON ARK) 

CFBLKSV) 

HATBLK 

MATRONS 

(UNITS) 

NBUFU 

MATRD 

MBUF 

HPUT 

SCALES 

SCALE 

(16606) 

B 

1NVS 

LSUB 

1NVS 

1NVS 

I NWS 


READ 1H00 MQRDS 


MC 

CA 

BLK * 


GET * OF STANDARDS. 


TOO MANY? 
YES 


READ IN UNKNOWN 


00 632 I«1.*0F STDS. 
MULT BY 3. 
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02021? 

3*40055 

020220 

OHO 160 

020221 

20005H 

020222 

100152 

020223 

IHI123 

02022H 

HH1I23 

020225 

201123 

020226 

7HH0I0 

020227 

3H 1 1 23 

020230 

3H0055 

020231 

OHO 160 

020232 

20005H 

020233 

0H0061 

02023H 

20006H 

020235 

OHO 062 

020236 

100152 

020237 

200065 

0202*40 

0H0063 

0202*41 

221667 

0202*42 

OH 1052 

0202*43 

121677 

0202*4*4 

121670 

0202*45 

000102 

0202*46 

220061 

0202*47 

520062 

020250 

720063 

020251 

300102 

020252 

100520 

020253 

100555 

02025*4 

HH 1 052 

020255 

6002H5 

020256 

020060 

020257 

121671 

020260 

HH0600 

020261 

100550 

020262 

200071 

020263 

5H1123 

02026*4 

7HI000 

020265 

60022H 

020266 

121670 

020267 

121706 

020270 

020072 

020271 

121671 

020272 

221667 

020273 

OH 1052 

02027*4 

20005H 

020275 

OHO 061 

020276 

121670 

020277 

121677 

020300 

000102 

020301 

220061 

020302 

300102 

020303 

1 00526 

02030*4 

HH1052 

020305 

600300 

020306 

720072 

020307 

100610 

020310 

020073 
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02031 1 

121671 


JMS* 

(FEXT) 


020312 

100533 


JMS 

INCS8 


020313 

200071 


LAC 

INV2 


020314 

540067 


SAD 

1NV1 


020315 

741000 


SKP 



020316 

600213 


JMP 

LP632 


020317 

100616 


JMS 

SCALA 

/ SCALE A. 

020320 

100662 


JMS 

DMA IN 


020321 

100616 


JMS 

SCALA 

/ RE-SCALE A 

020322 

201676 


LAC 

(16606) 


020323 

040073 


DAC 

8 


020324 

200105 


LAC 

SCALEB 


020325 

040072 


DAC 

SCALE 


020326 

200070 


LAC 

CINV1 


020327 

041052 


DAC 

MCTR 

/ 00 662 I»l.*OF STDS 

020330 

121670 


JMS* 

(FINT) 


020331 

100610 


JMS 

M0DE2 


020332 

220073 

LP662 

PL AC* 

8 


020333 

100613 


JMS 

M00E3 


020334 

720072 


FOIV* 

SCALE 


020335 

100610 


JMS 

M0DE2 


020336 

020073 


PDAC* 

8 

/ 8-B/SCALE 

020337 

100533 


JMS 

INCSB 


020340 

441052 


IS2 

MCTR 


020341 

600332 


JMP 

LP662 


020342 

121671 


JMS* 

(TEXT) 


020343 

201676 


LAC 

(16606) 


020344 

040073 


DAC 

8 


020345 

777777 


LA U 

-1 


020346 

340054 


TAD 

SPECS 


020347 

061666 


DAC* 

(12) 


020350 

776400 


LAW 

-1400 


020351 

041052 


DAC 

MCTR 


020352 

150012 


02M* 

12 

/ SPEC *0.0 

020353 

441052 


IS2 

MCTR 


020354 

600352 


JMP 

. -2 


020355 

140071 


02M 

INV2 


020356 

440071 

LP830 

IS2 

INV2 

/ DO 830 ! * 1 . *OF STOS. 

020357 

200071 


LAC 

1NV2 


020360 

7440 10 


RCL 


/ MULT BY 3. 

020361 

340071 


TAO 

2NV2 


020362 

340055 


TAD 

HAT8LK 


020363 

040160 


DAC 

MATRO+6 

/ BLK * OF SPECTRUM 

020364 

200054 


LAC 

SP00K8 


020365 

040062 


OAC 

SPOOK 


020366 

100152 


JMS 

MATRO 


020367 

200054 


LAC 

SPECS 


020370 

040061 


OAC 

SPEC 


020371 

221667 


LAC* 

(MNOCD) 


020372 

041052 


OAC 

MCTR 

/ 00 829 J-LL.UL 

020373 

121670 


JMS* 

(FINT) 


020374 

220062 

LP829 

FLAC* 

SPOOK 


020375 

100620 


JMS 

M0DE2 


020376 

520073 


FMUL* 

8 


020377 

100613 


JMS 

MOOES 


020400 

320061 


FAOO* 

SPEC 

/ SPEC “SPEC+B * SPOOK 

02S4Q1 

020061 


FOAC* 

SPEC 


020402 

100520 


JMS 

IMCPT 
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020403 >«•* 1 032 

020404 600374 

020405 121671 

020406 200071 

020497 340067 

020410 600413 

020411 100544 

020412 600336 

020413 221663 

020414 341701 

020415 040060 

020416 200065 

020417 040062 

020420 200034 

020421 040061 

020422 221667 

020423 041052 

020424 121670 

020425 121677 

020426 000077 LPSill 

020427 220061 

020430 121702 

020431 320062 

020432 060060 

020433 000102 

020434 500102 

020435 720062 

020436 300077 

020437 440060 

020440 100520 

020441 441052 

020442 600426 

020443 000077 

020444 240067 

020445 121702 

020446 361703 

020447 000102 

020450 121671 

020451 201704 

020432 040073 

020453 1 40505 

020454 200070 

020455 041052 

020456 121670 

020457 200077 

020460 700102 

020461 000102 

020462 100477 LP840 

020463 220060 

020464 121705 

020463 500102 

020' 16 121700 

020467 100610 

020470 020073 

020471 10C6I3 

020472 100544 

020473 441052 

020474 600462 
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ISZ 

JMP 

JMS* 

LAC 

SAO 

JMP 

JMS 

JMP 

LAC* 

TAO 

OAC 

LAC 

OAC 

LAC 

OAC 

LAC* 

OAC 

JMS* 

JMS* 

FOAC 

FLAC* 

JMS* 

FADO* 

FOAC IS* 

FOAC 

FMUL 

FOIV* 

FAOO 

ISZ 

JMS 

ISZ 

JMP 

FOAC 

FLAC IS 

JMS* 

FAOOIS* 

FOAC 

JMS* 

LAC 

OAC 

OZM 

LAC 

OAC 

JMS* 

FLAC 

FOIV 

FOAC 

JMS 

FLAC* 

JMS* 

FMUL 

JMS* 

JMS 

r OAC* 

JMS 

JMS 

ISZ 

JMP 


MCTR 

LP829 

(FEXTl 

INV2 

INV1 

.♦3 

INC8 

LP830 

(OISAOO) 

(37400) 

MPUT 

M8UFU 

SPOOK 

SPECS 

SPEC 

( MNOCO 

MCTR 

(FINT) 

(FCLA) 

R 

SPEC 

(FCIA) 

SPOOK 

MPUT 

SUM 

SUM 

SPOOK 

R 

MPUT 

INCPT 

MCTR 

LP83I 

R 

INVi 

(FCIA) 

(NOCO) 

SUM 

(FEXT) 

(16636) 

8 

L 

CINV1 

MCTR 

(FINT) 

R 

SUM 

SUM 

AAORS 

MPUT 

(ABS) 

SUM 
(SQRl 
MODE 2 
B 

MODE 3 
INC8 
MCTR 
LP840 


/ F BKG. BUFFER 

/ 00 831 I-LL.UL 
/ R*0.0 

/ F DISPLAY • RES I DUALS . 

/ R*R* (RES*RES) /UNK 

/ SUM-UL~LL-»OF STOS. 

/ ABS ( A ) 

/ STO. OEV . » SORT(ABS(A)*R/SUM) 
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029175 

121671 


JNS* 

020176 

621671 


JNP* 

020177 

000000 

AAORS 

0 

020500 

110505 


ISZ 

020501 

711130 


CLL 

020502 

200335 


LAC 

020503 

311675 


TAD 

020501 

353122 


NUL 

029505 

000000 

L 

0 

020506 

611002 


LACG 

020507 

711020 


RCR 

02051 G 

311706 


TAO 

020511 

011123 


OAC 

020512 

711010 


RCL 

020513 

311123 


TAO 

020511 

011123 


OAC 

020515 

310066 


TAO 

020516 

010060 


OAC 

020517 

620177 


JNP* 

020520 

000000 

INCPT 

0 

020521 

110062 


ISZ 

020522 

110062 


ISZ 

020523 

110062 


ISZ 

020521 

100526 


JNS 

020525 

620520 


JNP* 

020526 

000000 

INCSP 

G 

020527 

110061 


ISZ 

020530 

110061 


ISZ 

020531 

110061 


ISZ 

020532 

620526 


JNP* 

020533 

000000 

INC SB 

0 

020531 

100537 


JNS 

020535 

100511 


JNS 

020536 

820533 


JNP* 

020537 

000000 

INCS 

0 

020510 

110072 


ISZ 

020511 

110072 


ISZ 

020512 

110072 


ISZ 

020513 

620537 


JNP* 

020511 

000000 

INCB 

0 

020515 

110073 


ISZ 

020516 

110073 


ISZ 

020517 

620511 


JNP* 

020550 

000000 

INCPUT 

0 

020551 

110060 


ISZ 

020552 

110060 


ISZ 

020553 

110Q60 


ISZ 

020551 

620550 


JNP* 

020555 

oooooo 

INC UNK 

0 

020553 

110063 


ISZ 

020557 

110063 


ISZ 

020560 

11C063 


ISZ 

020961 

630555 


JNP* 

020562 

OOOOOO 

JNTOKN 

0 

020563 

200505 


LAC 

020561 

010577 


OAC 

020565 

311706 


TAO 

020566 

010576 


OAC 


IFEXTl 

CRETCI 

L 

L 

m 


i-n 

INV3 

INV3 

INV3 

NBUF / START AORS OF A. 

NPUT 

AAORS 

SPOOK 

SPOOK 

SPOOK 

INCSP 

INCPT 

SPEC 

SPEC 

SPEC 

INCSP 

/ INC, SCALE AND B. 

1NCS 
INCB 
INC SB 

SCALE 

SCALE 

SCALE 

INCS 

B 

a 

INCB 

NPUT 

NPUT 

NPUT 

INCPUT 

UNK 
UNK 
UWK 
INC UNK 

L 

Ki 

1-11 

K 
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OSOS67 7*4*4310 

020970 3*40576 

020971 0*40576 

020972 201123 

020973 0*40575 

02057*4 620962 

020575 000000 N 

020976 000000 K 

020577 000000 K1 

020600 000000 LSUB 

000000 IFRL 

020602 220012 

020603 7H1200 

02060*4 *461670 

020605 620601 

020606 026917 Rl 

020607 000000 Km 

020610 000000 H00E2 

020611 *461707 

020612 620610 

020613 000000 H0DE3 

02061*4 161707 

020615 620613 

JJfJJf 1 ® 008000 SCALA 

020617 200105 

020620 0*40072 

020621 0H0063 

020622 200066 

020623 0*40060 

02062*4 1*40061 

020625 1 H0062 

020626 200600 

020627 7 *tOOO 1 

020630 3*41675 

020631 0*41052 

020632 121670 LP655 

020633 220072 

02063*4 520063 

020635 000102 

020636 220060 

020637 700102 

0206*40 020060 

0206*41 121671 

0206*42 200061 

0206*43 5*40062 

0206*4*4 7m 000 

0206H5 60065*4 

0206*46 *4*40062 

0206*47 100555 

020650 1*40061 

020651 200105 

020652 0*40072 

020653 600656 

02065*4 *4*40061 

020655 100537 

020656 100550 

020657 *4*41052 

020660 600632 
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RCL 


TAD 

K 

OAC 

K 

LAC 

INV3 

OAC 

N 

JHP* 

JNTOKN 

0 


0 


0 


0 


0 


LAC* 

12 

SNA 


tsz* 

ifinti 

JHP* 

ifrl 

26517 


0 


0 


ISZ* 

(ON) 

JHP* 

N00E2 

0 


OZN* 

(OH) 

JHP* 

H00E3 

0 


LAC 

SCALES 

OAC 

SCALE 

OAC 

UNK 

LAC 

NBUF 

OAC 

HPUT 

OZN 

SPEC 

OZN 

SPOOK 

LAC 

LSUB 

CNA 


TAD 

(I) 

OAC 

NCTR 

JNS* 

(FINT) 

FLAC* 

SCALE 

PNUL* 

UNK 

FOAC 

SUN 

flac* 

HPUT 

FOIV 

SUN 

FOAC* 

HPUT 

JNS* 

(FEXT) 

LAC 

SPEC 

SAO 

SPOOK 

SKP 


JNP 

.♦7 

ISZ 

SPOOK 

JNS 

INC UNK 

OZN 

SPEC 

LAC 

SCALES 

OAC 

SCALE 

JNP 

• ♦3 

ISZ 

SPEC 

JNS 

INCS 

JNS 

INC PUT 

ISZ 

NCTR 

JNP 

LP655 


/ MULT BY 3. 


' SKIP IF TRUE 
/ SPECB-* 1 20 


/ 00 655 I-l.L 

/ A-A/ (SCALE (H)*SCAI E(J)) 

/ N-J7 
/ YES 
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020661 

620616 


JHP* 

SCALA 


020662 

000000 

OMAIN 

0 


020663 

200606 


LAC 

RL 


020664 

061666 


OAC* 

(12) 


020669 

777764 


LAN 

-14 


020666 

041052 


OAC 

HCTR 


020667 

160012 


OZH* 

12 

/ RUI>- FALSE 

020670 

441052 


ISZ 

HCTR 

020671 

600667 


JMP 

.-2 


020672 

140071 


OZM 

1NV2 


020673 

440071 

LP$0 

ISZ 

1NV2 

/ 00 80 I-!.*0F STOS. 

020674 

140505 


OZM 

L 

020675 

200070 


LAC 

CINV1 


020676 

041052 


OAC 

HCTR 


920677 

200606 


LAC 

RL 


0207C0 

061666 


OAC* 

(12) 


020701 

121670 


JHS* 

(FINT) 


020702 

121677 


JMS* 

(FCLA) 


020703 

000074 


FOAC 

810 

/ BIG-0.0 

02070** 

100477 

LPiiO 

JMS 

AAORS 

/ 00 20 J-1,»0F STOS. 

020705 

220060 


FLAC* 

MPOT 

020706 

121705 


JHS* 

(ABS) 


020707 

000102 


F0AC 

SUM 


020710 

200074 


FLAC 

BIG 


020711 

121702 


JHS* 

( FC I A I 


020712 

300102 


FAOO 

SUM 


020713 

121710 


JHS* 

(SPASNAt 

/ IF ( ABS ( A (H) -BIO) 20.20.15 

0207 1 4 

600723 


JMP 

.♦7 


020715 

100601 


JHS 

IFRL 


020716 

600724 


JMP 

.♦6 


020717 

200102 


FLAC 

SUM 


020720 

000074 


FOAC 

BIO 


020721 

100562 


JHS 

JHTOKN 


020722 

600724 


JMP 

.♦2 


020723 

461666 


ISZ* 

( 12) 


02072** 

441052 


ISZ 

HCTR 


020725 

600704 


JMP 

LP20 


020726 

200074 


FLAC 

BIG 


020727 

121710 


JHS* 

CSPASNA) 


020730 

601332 


JMP 

LI 00-1 

/ SINGULAR MATRIX 

020731 

121671 


JHS* 

(FEXT) 

020732 

200576 


LAC 

K 


020733 

34Q054 


TAO 

SPECS 


02073** 

040081 


OAC 

SPEC 

/ POO 

020735 

341711 


TAO 

(44) 


020736 

040072 


OAC 

SCALE 

/ OIK) 

020737 

200577 


LAC 

KI 


020740 

340606 


TAO 

RL 


020741 

041123 


OAC 

INV3 

/ RL(K) 

0207**2 

200575 


LAC 

N 


0207**3 

349066 


TAO 

MBUF 


02C7*»*» 

040060 


OAC 

HFUT 


020745 

121670 


JHS* 

CF1NT) 


020746 

241675 


FLAC IS 

(!) 


020747 

020061 


FOAC* 

SPEC 

/ P(K) -1 . 0 

020750 

720060 


FOIV* 

HPUT 

020751 

020072 


FOAC* 

SCALE 

/ Q(K)-1.0/A(N) 

020752 

121677 


JHS* 

(FCLA) 
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020753 

020754 

020755 

020756 

020757 

020760 

020761 

020762 

020763 

020764 

020765 

020766 

020767 

020770 

020771 

020772 

020773 

020774 

020775 

020776 

020777 

021000 

021001 

021002 

021003 

021004 

021005 

021006 

021007 

021010 

021011 

021012 

021013 

021014 

021015 

021016 

021017 

021020 

02*021 

021.022 

021023 

021024 

021025 

021026 

021027 

021030 

021031 

021032 

021033 

C21034 

021035 

021036 

021037 

021040 

021041 

021042 

021043 

021044 


020060 

121671 

461123 

200577 

341675 

041256 

341712 

040607 

741100 

601333 

741201 

601024 

341675 

041052 

200054 

040061 

341711 

040062 

200606 

061666 

750001 

340607 

040505 

100477 

121670 

100550 

220060 

020061 

520072 

020062 

121677 

020060 

100601 

601020 

220062 

121702 

020062 

100520 

441052 

601004 

121671 

200070 

340577 

741200 

601111 

740100 

601333 

201256 

041052 

200577 

040505 

744010 

340577 

340054 

040061 

341711 

040062 

200606 


LP40 


L45 
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FOAC* 

JMS* 

ISZ* 

-AC 

TAD 

OAC 

TAD 

OAC 

SPA 

JHP 

SNAICMA 

JHP 

TAD 

OAC 

LAC 

OAC 

TAO 

OAC 

LAC 

OAC* 

CLC 

TAO 

OAC 

JMS 

JMS* 

JMS 

FLAC* 

FOAC* 

FMOL* 

FOAC* 

JMS* 

FOAC* 

JMS 

JMP 

FLAC* 

JMS* 

FOAC* 

JMS 

ISZ 

JHP 

JMS* 

LAC 

TAD 

SNA 

JMP 

SNA 

JHP 

LAC 

OAC 

LAC 

OAC 

RCL 

TAO 

TAO 

OAC 

TAO 

OAC 

LAC 


MPUT 

1FEXT1 

INV3 

KI 

(I) 

KPI 

(- 2 ) 

KM I 


L45 

III 

HCTR 

SPECS 

SPEC 

(44) 

SPOOK 

RL 

( 12 ) 

KM1 

L 

AAORS 

(FINT) 

INCPUT 

MPUT 

SPEC 

SCALE 

SPOOK 

(FCLA) 

MPUT 

IFRL 

.♦4 

SPOOK 

(FCIA) 

SPOOK 

INCPT 

MCTR 

LP40 

(FEXT) 

CINV1 

Kl 


/ A(N)*C.O 
/ RL-TRUE 


Kl 

SPECS 

SPEC 

(44) 

SPOOK 

RL 


' IF(KNI) 100.45.30 


/ P( J) *A(H) 


/ Q(J)ap< J)*0(K) 


/ A(M)-0.0 


/ OCJ)--Q(J) 


/ IF(Kl-NOIN) 50. .100 
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02 1045 

340377 


TAO 

K1 


0310*16 

061666 


OAC* 

(181 

/ RL 

08I0H7 

800505 

LP60 

LAC 

L 


081050 

744000 


CLL 



081031 

653188 


MUL 



081058 

000000 

HCTR 

0 



021055 

641008 


LACQ 



08105** 

744080 


RCR 



081053 

340577 


TAD 

K1 


081056 

341706 


TA8 

(-1) 


081037 

040477 


OAC 

AAORS 


081060 

744010 


RCL 



081061 

340477 


TAO 

AAORS 


081068 

340066 


TAO 

MBUF 


081063 

040060 


OAC 

MPUT 


08106** 

440505 


1SZ 

L 


081065 

181670 


■JIMS* 

(FINT1 


081066 

880060 


FLAC* 

MPUT 

• 

081067 

181708 


JMS* 

(FCIA1 


081070 

080061 


FOAC* 

SPEC 

/ P(J!»-A(M1 

081071 

580078 


FMUL* 

SCALE 


081078 

080068 


FOAC* 

SPOOK 

/ Q(J1-P(J1*Q(K> 

081073 

181677 


JMS* 

(FCLA1 


081074 

080060 


FOAC* 

MPUT 

/ A(M) “0 . 0 

081075 

100601 


JMS 

IFRL 


081076 

60110? 


JMP 

.♦4 


081077 

880061 


Ft AC* 

SPEC 


081100 

181708 


*JS 15* 

(FC1A1 


081101 

080061 


FOAC* 

SPEC 

/ P(J1 — PCJ1 

081108 

181671 


JMS* 

(FEXT) 


081103 

100580 


JMS 

INCPT 


081104 

801058 


LAC 

MCTR 


081105 

441058 


ISZ 

MCTR 


081106 

540067 


SAO 

INV1 


081107 

741000 


SKP 



081110 

601047 


JMP 

LP60 


081111 

141058 

L65 

OZM 

MCTR 


081118 

800054 


LAC 

SPECS 


081113 

040061 


OftC 

SPEC 

/ P 

081114 

441058 

LP70 

ISZ 

MCTR 

/ 00 70 J-l.NDIM 

081115 

801058 


LAC 

MCTR 


081116 

041183 


OAC 

INV3 

/ 00 70 K-J.NOIM 

081117 

750001 


CLC 



081180 

341183 


TAO 

INV3 


021181 

744000 


CLL 



081188 

633122 


MUL 



081183 

000000 

IMV3 

0 



081184 

641008 


LACQ 



081185 

744080 


RCR 



081186 

341058 


TAS 

MCTR 


081 187 

341706 


TAPy 

(-1 1 


081130 

040073 


OAC 

B 


081 131 

744010 


RCL 



081138 

340073 


TAO 

B 


021133 

340066 


TAO 

MBUF 


081134 

040060 


OAC 

MPUT 

/ A(H1 

081135 

750001 


etc 



081136 

341183 


rm 

INV3 
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021137 040073 

021 1H0 744010 

021 mi 340973 

021 1H2 340054 

021 m3 3m 7i i 

021144 o**oo 62 

021 ms 121670 

021 1H6 220061 

021 rn7 520062 

021150 320060 

021 151 020060 

021152 121671 

021153 200067 

021154 SHI 123 

021155 601160 

021156 441123 

021157 601117 

021160 54! 052 

021161 601 164 

021162 100526 

021163 601 im 

021164 540071 

021165 741000 

021166 600673 

021 167 200054 

021170 040061 

021171 140071 

021172 200071 LP90 

021173 041200 

021174 341675 

031175 040071 

021176 744000 

021177 653122 

021200 0Q0000 

021201 641002 

021202 744020 

021203 040060 

021204 744010 

021205 340060 

021206 340066 

021207 040060 

021210 20007] 

02121 1 341675 

021212 041256 

031213 200071 

021214 740001 

021215 341675 

031316 041052 

021217 040505 

021220 201676 

021231 040073 

021222 121670 

021323 121677 

021324 020061 

021235 220060 LP9I 

021226 100610 

021227 520073 

021230 100613 
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OAC 
RCL 
TAD 
TAD 
TAD 
OAC 
JHS* 
PLAC* 
FHUL* 
FADO* 
FOAC* 
JHS* 
LAC 
SAD 
JHP 
ISZ 
JHP 
SAD 
JHP 
JHS 
JHP 
SAD 
SKP 
JHP 
LAC 
OAC 
OZM 
LAC 
DAC 
TAD 
OAC 
CLL 
HUL 
0 

LACO 

RCR 

DAC 

RCL 

TAO 

TAD 

OAC 

LAC 

TAD 

OAC 

LAC 

CHA 

TAD 

OAC 

OAC 

LAC 

OAC 

JHS* 

JHS* 

FOAC* 

FLAC* 

JHS 

FHUL* 

JHS 


B 

B 

SPECS 

1441 

SPOOK / Qoo 

(FINT) 

SPEC 

SPOOK 

HPUT 

(FEXT) ' AtM, " A(H, * P <'”*Q<Kl 

1NVI 

INV3 

.♦3 

INV3 

LP70+3 

HCTR 

.♦3 

1NCSP 

LP70 

INV2 

LPBO 

SPECS 

SP£C / Poo 

INV2 

INV2 / 00 SO K-l ,NDIH 

• ^3 
111 
INV2 


HPUT 

HPUT 

HBUF 

HPUT 

INV2 

(1) 

KPl / KP1-K*I 

INV2 

111 

HCTR 

L 

1166061 

B 

1FINT1 

IFCLAI 

SPEC / PlKl-0.0 

MPUT / DO 91 I»I ,K 

H00E2 
B 

H00E3 
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021231 

320061 


FADD® 

SPEC 

021232 

020061 


FDAC® 

SPEC 

021233 

1005** 


JHS 

1NCB 

02123* 

100550 


jhs 

INCPUT 

021235 

**1052 


ISZ 

HCTR 

021236 

601225 


JHP 

LP9! 

021237 

121671 


JHS® 

(FEXT) 

0212*0 

200505 


LAC 

L 

0212*1 

3*0067 


TAD 

INVi 

0212*2 

7*1100 


SPA 


0212*3 

601333 


JHP 

L100 

0212** 

7*1200 


SNA 


0212*5 

601306 


JHP 

L90 

0212*6 

200071 


LAC 

IN VS 

0212*7 

7**010 


RCL 


021250 

3*1676 


TAD 

(16606) 

021251 

0*0073 


DAC 

e 

021252 

750001 

LP92 

CLC 


021253 

3*1256 


TAD 

KP1 

02125* 

7**000 


CLL 


021255 

653122 


HUL 


021256 

000000 

KP1 

0 


021257 

6*1002 


LACQ 


021260 

7**020 


RCR 


021261 

3*0071 


TAD 

IN VS 

021262 

3*1706 


TAD 

(-1 ) 

021263 

0*0505 


OAC 

L 

02126* 

7**010 


RCL 


021265 

3*0505 


TAD 

L 

021266 

3*0066 


TAD 

H6UF 

021267 

0*0060 


DAC 

HPUT 

021270 

121670 


JHS® 

(TINT) 

021271 

100610 


JHS 

NODES 

021272 

220073 


FLAC® 

B 

021273 

100633 


JHS 

NODE 3 

02127* 

520060 


FHUL® 

HPUT 

021275 

320061 


FADD® 

SPEC 

021276 

020061 


FDAC® 

SPEC 

021277 

121671 


JHS® 

(FEXT) 

021300 

1005** 


JHS 

INCB 

021301 

201256 


LAC 

KP1 

021302 

**1256 


ISZ 

KP! 

021303 

5*0067 


SAD 

INVI 

02130* 

7*1000 


SKP 


021305 

601252 


JHP 

LP93 

021306 

100526 

L90 

JHS 

INCSP 

021307 

200067 


LAC 

INVI 

021310 

5*0071 


SAD 

IN VS 

02131 1 

7*1000 


SKP 


021312 

601172 


JHP 

LP90 

021313 

200070 


LAC 

C INVI 

02131* 

0*1052 


OAC 

HCTR 

021315 

201678 


LAC 

( 16606) 

021316 

0*0073 


DAC 

B 

021317 

20005* 


LAC 

SPECB 

021320 

0*0072 


OAC 

SCALE 

021321 

121670 

LP95 

JHS® 

(FINT) 

021322 

220072 


FLAC® 

SCALE 


/ P(K»P(KI«BllMA(m 


/ IF<N01H-K) 100.90,93 


/ 00 92 I-KP1.N0IM 


/ 1-1 )/2 


/ PCK)-PdO*B( I)*A<H) 


& 

p 
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021323 100610 

02I32H 020073 

021325 121671 

021326 100533 

021327 HHI052 

021330 601321 

021331 620662 

021332 121671 

021333 761655 

02533H 121713 

021335 62 1 674 

021336 1 HI 052 

021337 750001 

021 3H0 36166H 

0213H1 361665 

0213H2 0H0073 

02I3H3 2016HH 

021 3HH OH 1373 

021 3H5 0H1H02 

0213H6 12171H 

021 3H7 7H0200 

021350 5HI7I5 

02135! 601366 

021352 5H1716 

021353 601356 

02135H 201H0H 

021355 0HI373 

021356 12171 H 

021357 7H0200 

021360 5H1715 

021361 601366 

021362 5HI716 

021363 601366 

02136H 201H0H 

021365 0H1H02 

021366 121670 

021367 121677 

021370 000102 

021371 221717 

021372 721720 

021373 I016H5 

021 37H 3H1675 

021375 000077 

021376 100610 

021377 221676 

02IH00 721721 

021H0I 100613 

02IH02 I016H5 

021 H03 000106 

021H0H 121702 

021 H05 361703 

02IH06 500077 

021H07 301652 

021 HI 0 0H0505 

02IHI1 121702 

02IHI2 361703 

021H13 121710 

021HIH 101620 
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021415 

101631 

L95P 

JMS 

ASPOOK 


021416 

200102 


FLAC 

SUM 


021417 

341675 


FAOOIS 

(I) 


021420 

000102 


FOAC 

SUM 

/ SUM-SUM* 1.0 

021421 

700077 


FOIV 

R 


021422 

300106 


F ADO 

ZERO 


021423 

000074 


FOAC 

BIG 

/ B 16-SUM/ RAT I O+ZERO 

021424 

301647 


FAOO 

FMI 


021425 

121710 


JMS* 

(SPASNA) 

/ IF (BIG- 1 . ) 105.105.100 

021426 

«01434 


JMP 

L105P 


021427 

>01647 


FADO 

FMI 


021430 

121710 


JMS* 

(SPASNA) 

/ IF (BIG-2. 1 110.115.115 

021431 

101624 


JUS 

ACZERO 


021432 

601457 


JMP 

LII5P 


021433 

601440 


JMP 

L 1 1 OP 


021434 

260061 

L10SP 

FLACIS* 

SPEC 


021435 

700077 


FOIV 

R 


021436 

020062 


FOAC* 

SPOOK 

/ SPOOK ( 111 -SPEC( 1 ! /RATIO 

022437 

601415 


JMP 

L95P 


021440 

241675 

Li I OP 

FLAC IS 

(1) 


02M41 

0001 11 


FOAC 

XI 

/ X I - 1 

021442 

341675 


FAOOIS 

(!) 


021443 

000114 


FOAC 

X2 

/ X2-2 

021444 

341675 


FAOOIS 

( I ) 


021445 

000117 


FOAC 

X3 

/ X3-3 

021446 

260061 


FLAC IS* 

SPEC 


021447 

000122 


FOAC 

Y I 

/ Y 1 -SPEC ( 1 1 

021450 

440061 


ISZ 

SPEC 


021451 

260061 


FLAC IS* 

SPEC 


021452 

000125 


FOAC 

Y2 

/ Y2-SPEC (21 

021453 

440061 


ISZ 

SPEC 


021454 

260061 


FLAC IS* 

SPEC 


021455 

000130 


FOAC 

Y3 

/ Y3-SPEC(3) 

021456 

601511 


JMP 

L125P 


021457 

200074 

LII5P 

FLAC 

BIG 


021460 

301652 


FAOO 

F .5 


021461 

040576 


FOAC IS 

K 

/ K-B1G+.5 

021462 

121671 


JMS* 

(FEXT) 


021463 

221667 


LAC* 

(MNOCO) 


021464 

340576 


TAD 

K 


021465 

750301 


SMAISZAICLC 

/ I F ( K . GT . 256 1 GOTO 136 

021466 

601603 


JMP 

LI36P 


021467 

340576 


TAO 

K 


021470 

340073 


TAO 

B 


021471 

040061 


OAC 

SPEC 


021472 

121670 


JMS* 

(FINT) 


021473 

260061 


FLAC IS* 

SPEC 


021474 

000122 


FOAC 

Y 1 

/ Yl-SPEC(K-I) 

021475 

440061 


ISZ 

SPEC 


021476 

260061 


FLAC IS* 

SPEC 


021477 

000125 


FOAC 

Y2 

/ Y2-SPEC(K> 

§21500 

440061 


ISZ 

SPEC 


021501 

280061 


FLAC IS* 

SPEC 


021502 

000130 


FOAC 

Y3 

/ V3»SPEC(K*I) 

021503 

240576 


FLAC IS 

K 


021504 

000114 


FOAC 

X2 

/ X2-K 

021505 

301647 


FAOO 

FH! 

/ XI-K-l 

021506 

000111 


FOAC 

X! 
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02 I 307 3HI 722 

021510 000117 

021511 200125 

021512 541722 

021513 121702 

021 5 14 300130 

021515 300122 

021516 741722 

021517 000133 

021520 200117 

021521 300114 

021522 500122 

021523 121702 

021524 000144 

021525 200111 

021526 300117 

021527 500125 

021530 541722 

021531 000147 

021532 200114 

021533 300111 

021534 500130 

021535 121702 

021536 300144 

021537 300147 


021540 

741722 

021541 

000136 

021542 

2001 1 1 

021543 

500114 

021544 

500130 

021545 

000144 

021546 

241722 

021547 

5001 1 1 

021550 

500117 

021551 

500125 

021552 

121702 

021553 

000147 

021554 

200 1 1 4 

021555 

500117 

021556 

500122 

021557 

300144 

021560 

300147 

021561 

741722 


021562 000141 

021563 200133 

021564 500074 

021565 300136 

021566 500074 

021567 300141 

021570 700077 

021571 020062 

021572 121671 

021573 201652 

021574 740001 

021575 341675 

021576 340505 

021577 741300 

021600 601603 
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L125P 


FAOO IS 

FDAC 

FLAC 

FMULIS 

JMS* 

FAOO 

FAOD 

FDIVIS 

FDAC 

FLAC 

FADD 

FMUL 

JMS* 

FDAC 

FLAC 

FAOO 

FMUL 

FMULIS 

FOAC 

FLAC 

FAOO 

FMUL 

JMS* 

FAOO 

FAOO 

FOIVIS 

FOAC 

FLAC 

FMUL 

FMUL 

FOAC 

FLAC 1 S 

FMUL 

FMUL 

FMUL 

JMS* 

FOAC 

FLAC 

FMUL 

FMUL 

FAOO 

FAOO 

FOIVIS 

FOAC 

FLAC 

FMUL 

FAOO 

FMUL 

FAOO 

FOIV 

FOAC* 

JMS* 

LAC 
CMA 
TAO 
TAO 

SPA I SNA 
JMP 


(21 
X3 
Y2 
( 2 ) 
CFCIA) 
Y3 
Yi 
( 2 ) 

AA 

X3 

X2 

Yl 

(FCIA) 
T 1 
XI 
X3 
Y2 
(2) 

T2 

X2 

XI 

Y3 

(FCIA) 

T I 
T2 
(2) 

BB 
XI 
X2 
Y3 
T 1 
(2) 

XI 

X3 

Y2 

(FCIA) 

T2 
X2 
X3 
Yl 
T 1 
T2 
( 2 ) 

CC 

AA 

BIG 

BB 

BIG 

CC 

R 

SPOOK 

(FEXT) 

MCTR 

( 1 ) 

L 

.♦3 
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/ X3*K* 1 


/ AA»(Y3-2*Y2*Y1 )/2.0 


• “Yl • (X3+X2) 


I 2*Y2*(X1+X3) 


t “Y3* (X2+XI ) 


/ CC«(X1*X2*Y3-2*XI*X3*Y2*X2*X3*VI )/2.fl 


/ SPOOK(I1)«cBIG*(AA*BJG*BB)*CC)/R 
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021601 121670 

021602 60IHI5 

021303 20006*4 

02160H 0*40061 

021605 221667 

021606 0*41052 

021607 121670 

021610 220061 

021611 *4*40073 

021612 060073 

021613 100536 

02161*4 *4*4 1 CS2 

021615 601610 

021616 121671 

021617 62167*4 

021620 000000 

021621 221703 

021622 0*40505 

021623 621620 

02 1 62*4 000000 

021625 121723 

021626 62162*4 

021627 *461670 

021630 62162*4 

021631 000000 

021632 200073 

021633 3HI675 

02163H 0*40061 

021635 201052 

02 1 636 7*4*4010 

021637 3*41052 

0216*40 *4*41052 

0216*41 3*4006*4 

0216*42 0*40062 

0216*43 621631 

0216*4*4 1016H5 

0216*45 000000 

0216*46 6216H5 

0216*47 000000 

021650 600000 

021651 000001 

021652 000000 

021653 20C000 

02165*4 000000 

021655 231116 

021656 0725IH 

021657 012200 

021660 012*461 

021661 777766 

021662 0067H6 

021663 015570 

02166*4 010*407 

021665 007660 

021666 000012 

021667 007657 

021670 013051 

021671 0131 12 
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LI36P 

LPHOO 

ACZERO 

ASPOOK 

FNOP 

FM1 

F.5 


JMS* 

(PINT) 

JMP 

L95P 

LAC 

SP00K8 

OAC 

SPEC 

LAC* 

(MN0C01 

DAC 

MCTR 

JMS* 

(PINT) 

PL AC* 

SPEC 

ISZ 

B 

POACIS* 

B 

JMS 

INCSP 

ISZ 

MCTR 

JMP 

.-5 

JMS* 

(PEXT) 

JMP* 

0 

(RETC) 

LAC* 

(NOCD) 

OAC 

L 

JMP* 

0 

LPHOO 

JMS* 

(ACZ) 

JMP* 

ACZERO 

ISZ* 

(PINT) 

JMP* 

0 

ACZERO 

LAC 

B 

TAD 

(1) 

DAC 

SPEC 

LAC 

RCL 

MCTR 

TAD 

MCTR 

ISZ 

MCTR 

TAD 

SPOOKB 

OAC 

SPOOK 

JMP* 

ASPOOK 

JMS 

0 

PNOP 

JMP* 

0 

600000 

1 

0 

200000 

0 

231116 
0725 1H 
012200 
-END 

FNOP 


/ AC ZERO? 
/ YES 

/ NO 


SINGU 


/ SINGULAR 


ooe^-a 


03/01/73 LSQFIT RCO 11/72 


021672 01S703 
021673 QISS73 
02167** 006257 
021675 000001 
021676 016606 
021677 013666 
021700 013752 

! 021701 037400 

021702 013652 
021703 0103*tH 
02170** 016636 
021705 013726 
021706 777777 
021707 015220 
021710 013657 
021711 000044 
021712 777776 
021713 007000 
0217IH 012366 
021715 000040 
021716 000053 
021717 016600 
021720 016603 
021721 016610 
021722 000002 
021723 013702 
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;■ I 


AA 

020133 

LP6S5 

020632 

XI 020111 

AAORS 

020V77 

LP662 

020332 

X2 0201 IV 

ABS 

013726 

LP70 

02111V 

X3 020117 

ACZ 

013702 

LP80 

020673 

Y1 020122 

ACZERO 

02162V 

LP829 

02037V 

Y2 020125 

ASPOOK 

021631 

LP830 

020356 

Y3 020130 

B 

020073 

LP83I 

020V26 

ZERO 020106 

BB 

020136 

LP8V0 

020V62 


BIO 

02007V 

LP90 

021172 


CC 

0201 VI 

LP9I 

021225 


CINV1 

020070 

LP92 

021252 


DEC IN 

012V61 

LP95 

021321 


DISAOQ 

007660 

LSUB 

020600 


DtSONE 

0I0V07 

L100 

021333 


OH 

019220 

L105P 

021V3V 


OMAIN 

020662 

LIIOP 

021 WO 


F.5 

021692 

L115P 

C21V57 


FAOO 

300000 

LI25P 

021S1 1 


FBLKSV 

019970 

LI36P 

021603 


FCU 

013652 

LV5 

02102V 


FCLA 

013666 

L65 

021111 


rOAC 

000009 

L90 

021306 


FOH 

700000 

L95P 

02IVI5 


FEXT 

01 31 12 

MATBLK 

020055 


FINT 

013051 

MATRO 

020152 


FLAC 

200000 

MATRIX 

020007 


FMUL 

500000 

MBOF 

020066 


FH1 

0216V7 

MBUFU 

020065 


FNOP 

02I6V5 

MCTR 

021052 


FROISK 

015571 

MESAO 

007000 


OSHIFT 

021336 

HNOCO 

007657 


OSHO 

021366 

MCDE2 

020610 


OSHt 

021373 

M00E3 

020613 


GSH2 

021V02 

MPUT 

020060 


I FPL 

020601 

N 

020575 


INCB 

0205VV 

NOCO 

0I03VV 


INCPT 

020520 

OMARK 

0067V6 


INCPUT 

020550 

R 

020077 


INCS 

020537 

RE AO 

012366 


INCSB 

020533 

RETC 

006257 


INCSP 

020526 

RL 

020606 


INCUNK 

020555 

S 

ovoooo 


INVERT 

020163 

SCALA 

020616 


INVI 

020067 

SCALE 

020072 


IN Vi? 

020071 

SCALES 

020105 


INV3 

021123 

SION 

021V0V 


JHTOKN 

920562 

SINGU 

021655 


K 

020576 

SPASNA 

013657 


KHI 

020607 

SPEC 

020061 


KPI 

021256 

SPECS 

02005V 


Kt 

020577 

SPOOK 

020062 


L 

020505 

SPCOKB 

02006V 


LP20 

02070V 

SQR 

013752 


LPVO 

02100V 

sun 

020102 


LPVOO 

021620 

T1 

020 1VV 


LPSO 

021 0V7 

T2 

0201V7 


LP632 

020213 

UNIT5 

015703 


LP6S5 

02022V 

UNK 

020063 




WM U W W B gagg 
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RETC-6257 


020000 

*415276 

020001 

020003 

020002 

000000 

020003 

1221 16 

02000H 

731026 

020005 

101006 

020006 

761056 

020007 

101006 

020010 

1221 17 

02001 1 

0H2I 13 

020012 

7*41200 

020013 

622120 

02001>* 

3*42121 

020015 

7*4*4100 

020016 

622120 

020017 

2021 13 

020020 

742020 

020021 

742020 

020022 

042113 

020023 

122116 

02002H 

761070 

020025 

101006 

020026 

122122 

020027 

5421 14 

020030 

600124 

020031 

542063 

020032 

600036 

020033 

760277 

02003*4 

122123 

020035 

600023 

020036 

122116 

020037 

761 137 

0200*40 

101006 

0200*4! 

122117 

0200*42 

042041 

0200*43 

340357 

0200*4*4 

740100 

0200*45 

600051 

0200*46 

761740 

0200*47 

101006 

020050 

600037 

020051 

1221 16 

020052 

761 ISO 

020053 

101006 

02005*4 

1221 17 



.LOC 

20000 


.LIT 

MAGCON+ 

/OECTAPE 

FORMAT GENERATOR - 

/tape 1 




HI 5276 



BEGIN 



0 


BEGIN 

jus* 

(CRLF) 


LAW 

MESS1 


JMS 

MESAGE 


LAW 

MESS2 


JMS 

MESAGE 


JMS* 

(DEC IN) 


OAC 

UNIT 


SNA 



JMP* 

(QMARK) 


TAD 

(-7) 


SMAICLL 



JMP* 

(QMARK) 


LAC 

UNIT 


RTR 



RTR 



DAC 

UNIT 

TMESS3 

JMS* 

(CRLF) 


LAW 

MESS3 


JMS 

MESAGE 


JMS* 

CREADI ) 


SAD 

YYY 


JMP 

STAND 


SAD 

NNN 


JMP 

TMESS4-I 


LAW 

277 


JMS* 

(PRINT) 


JMP 

TMESS3 


JMS* 

(CRLF) 

rMESS4 

LAW 

MESSH 


JMS 

MESAGE 


JMS* 

(OECIN) 


OAC 

BLOCKS 


TAD 

FOURTH+5 


SMA 



JMP 

.♦H 


LAW 

MESS2H 


JMS 

MESAGE 


JMP 

TMESSH 


JMS* 

(CRLF) 

MESS5 

LAW 

MESS5 


JMS 

MESAGE 


JMS* 

(DECIN) 


POP-9 TC02 TU55 
/ FORMAT 


/typeout FIRST MESSAGE 
/type out secono message 

/RETURN WITH UNIT NUMBER 


/ LESS THAN 7? 

/ NO. 

/YES. MOVE IT 
/ 4 RIGHT 
/AND STORE AWAY 


/TYPE 3R0 MESSAGE 
/ GET CHARACTER 
/WAS IT Y? 

/YES 

/WAS IT N? 

/YES 

/IT WAS NEITHER 
/ TYPE *?* 

/AND ASK AGAIN 


/TYPE OUT NEXT MESSAGE 
/STORE NUMBER OF BLOCKS 
/MAKE SURE AT LEAST 2 BLOCKS 
/NOT 2 OR MORE 


/TYPE OUT NEXT MESSAGE 
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020055 

0H2050 


OAC 

DATAS 

/STORE NUMBER OF DATA NORDS 

020056 

3H2062 


TAD 

MINUSH 


020057 

7H0100 


SMA 


/IS IT AT LEAST H 

020060 

60006H 


JMP 

. *H 

/ YES 

020061 

761163 

TMESS6 

LAN 

MESS6 

/NO TYPE OUT ERROR 

020062 

101006 


JMS 

MESAGE 

/MESSAGE 

020063 

600052 


JMP 

TMESS5 

/ASK QUESTION AGAIN 

02006H 

0H2050 


DAC 

DATAS 


020065 

7H0020 


RAR 



020066 

7H0H00 


SWL 


/IS NUMBER DIVISIBLE BY 2? 

020067 

600073 


JMP 

.♦H 

/YES 

020070 

761212 

TMESS7 

LAN 

MESS7 

/NO. TYPE OUT 

020071 

101006 


JMS 

MESAGE 

/ERROR MESSAGE 

020072 

600052 


JMP 

TMESS5 

/ASK AGAIN 

020073 

202036 


LAC 

AA 


02007H 

7HH000 


CLL 



020075 

3H205G 


TAD 

OATAS 


020076 

7H0H00 


SNL 


/IS NUMBER OF DATANORD TOO LARGE? 

020077 

600103 


JMP 

.♦H 

/NO 

020100 

76176H 

TMESS8 

LAN 

MESS25 

/YES, TYPE OUT 

020101 

101006 


JMS 

MESAGE 

/ERROR MESSAGE 

020102 

600052 


JMP 

TMESS5 

/TRY AGAIN 

020103 

202050 


LAC 

OATAS 

/ THIS 

0201 OH 

3H2110 


TAD 

TEN 

/LITTLE 

020105 

7H0001 


CMA 


/BIT 

020106 

3H2066 


TAD 

ONE 


020107 

0H20H6 


OAC 

CNTRI 

/OF 

020110 

75H000 


CLA1CLL 


/COOING 

020111 

3H20H1 


TAD 

BLOCKS 

/MULTIPLIES 

020112 

HH20H6 


ISZ 

CNTRI 

/BLOCK NUMBER 

020113 

600111 


JMP 

.-2 

/TIMES DATA WORD* 10 

0201 1H 

7H1H00 


SZL 



020115 

600121 


JMP 

.♦H 


020116 

3H21 15 


TAD 

MAGCON 

/ADD THIS TO <-> MAX NUMBER OF MARKS 

020117 

7H0H00 


SNL 


/TOO MANY? 

020120 

600131 


JMP 

NEXT 

/NO 

020121 

76123H 


LAN 

MESS8 

/YES, TYPE OUT 

020122 

101006 


JMS 

MESAGE 

/ERROR MESSAGE 

020123 

600037 


JMP 

TMESSH 

/GO 'NAY BACK 

020 12H 

122116 

STAND 

JMS* 

CCRLF) 


020125 

2020H3 


LAC 

CONST 1 


020126 

0H20H1 


DAC 

BLOCKS 

/SET UP SLOCKS 

020127 

2C20HH 


LAC 

C0NST2 


020130 

0H2050 


OAC 

DATAS 

/AND DATAS 

020131 

122116 

NEXT 

JMS* 

(CRLF) 


020132 

75000H 


LAS 

. 


020133 

7H1100 


SPA 



020 13H 

600137 


JMP 

.*3 


020135 

761251 


LAN 

MESS9 


020136 

101006 


JMS 

MESAGE 

/TYPE OUT NEXT MESSAGE 

020137 

122122 


JMS* 

CREAD1 1 


£320 1 HO 

202113 


LAC 

UNIT 


0201 HI 

2H2031 


XOR 

WTMT 


020 IH2 

2H2032 


XOR 

STOPGO 

/FORM UNIT. WTMT. STOP 

020 1H3 

7075H5 


7075H5 


/CLEAR AND LOAD »A 

020 1HH 

7H0000 


NOP 


/WAIT FOR XSA OELAY 

020IH5 

7H0000 


NOP 



0201H6 

7H0000 


NOP 








w£S®y5Sfi$55jS3E 


m, 
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020147 

740000 

NOP 


020150 

740000 

NOP 


020151 

740000 

NOP 


020152 

707561 

707561 


020153 

600164 

JMP 

FIRST 

020154 

707572 

707572 


020155 

707555 

707555 


020156 

502056 

ANO 

MASK2 

020157 

741200 

SNA 


020160 

600737 

JMP 

ERROR 1 

020161 

761404 

LAW 

MESS 10 

020162 

101006 

JMS 

MESAGE 

020153 

60013! 

JMP 

/ROUTINE TO WRITE 

NEXT 

MARK TRACK 

020164 

202031 

FIRST LAC 

WTMT 

020165 

2421 13 

XOR 

UNIT 

020166 

707545 

707545 


020167 

7600C0 

LAW 


020170 

062124 

OAC* 

(WC) 

02017! 

202014 

LAC 

REVEND 

020172 

042137 

OAC 

BUFFER 

020173 

202136 

LAC 

BUFFER- I 

020174 

062125 

OAC* 

(CA) 

020175 

222124 

LAC* 

(WC) 

020176 

740200 

SZA 

020177 

600173 

JMP 

.-4 

020200 

707544 

707544 


020201 

777471 

LAW 

-307 

020202 

062124 

OAC* 

(WC) 

020203 

202015 

LAC 

EXPANO 

020204 

042137 

OAC 

BUFFER 

020205 

202136 

LAC 

BUFFER-1 

020206 

062125 

OAC* 

(CA) 

020207 

222124 

LAC* 

(WC) 

020210 

740200 

SZA 


02021 1 

500205 

JMP 

.-4 

020212 

707544 

707544 


020213 

202041 

SECOND LAC 

BLOCKS 

020214 

740001 

CMA 


020215 

342066 

TAO 

ONE 

020216 

042102 

OAC 

SAVE1 

020217 

042045 

OAC 

CNTR 

020220 

202136 

LAC 

BUFFER- 1 

020221 

062125 

OAC* 

(CA) 

020222 

062126 

OAC* 

(12) 

020223 

202050 

LAC 

OATAS 

020224 

342110 

TAO 

TEN 

020225 

740001 

CMA 


020226 

342066 

TAO 

ONE 

020227 

042101 

OAC 

SAVE 

020230 

062124 

OAC* 

(WC) 

020231 

202015 

LAC 

EXPANO 

020232 

060012 

OAC* 

12 

020233 

202016 

LAC 

MARK 

020234 

060012 

OAC* 

12 

020235 

202017 

LAC 

REVGRO 

020236 

060012 

OAC* 

12 

020237 

202020 

LAC 

LOCK 


/ERROR C0N01 T ION? (E.F1 
/NO. PROCEED TO MAIN PROGRAM 
/YES. READ STATUS B 


/SELECT ERROR 

/NO 

/YES 

/TYPE OUT ERROR MESSAGE 


/LOAO AC MITH HTMT FMD GO CONT 
/COMBINE UNIT NUMBER 
/CLEAR AND LOAO r A“ 

/ MC - -8192 

/SET BUFFER TO “55" 

/ CA - BUFFER- I 
/ GET MC 
/IS IT 0? 

/NO. RESET CA 

/YES. CLEAR OTF (DONE REV. END) 

/ MC - -199 

/SET BUFFER TO "25" 


/IS IT 0? 

/NO. RESET CA 

/YES. CLEAR OTF <OONE EXPAND) 
/GET NUMBER OF BLOCKS 

/TAKE 2‘S COMPLEMENT 
/SAVE 

/AND STORE IN COUNTER 


/ ALSO 12 

/GET NUMBER OF OATA MOROS 
/ADO 10 

/2‘S COMPLEMENT 
/SAVE 

/ ANO STORE IN MC. 

/ STORE EXPAND CODE IN BUFFER. 
/ STORE MARK 
/ STORE REVERSE GUARD 
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020240 

0202m 

020242 
0202*43 
0202*4*4 
0202H5 
0202*46 
0202*47 
020250 
020251 
020252 
020253 
02023*4 
020255 
020256 
020257 
020260 
020261 
020262 
020263 
02026*4 
020265 
020266 
020267 
020270 
020271 
020272 
020273 
02027*4 
020275 
020276 
020277 
020300 
020301 
020302 
020303 
02030*4 
020305 
020306 
020307 
020310 
02031 1 
020312 
020313 
02031*4 
020315 
020316 
020317 
020320 
020321 
020322 
020323 
02032*4 
020325 
020326 
020327 
020330 
02033!. 


060012 
050012 
060012 
060012 
202050 
3*42062 
7*41200 
600257 
7*40001 
3*42066 
0*420*46 
202021 
060012 
* 4 * 420*46 
60025*4 
202022 
060012 
060012 
060012 
060012 
202023 
060012 
20202*4 
060012 
202015 
060012 
222I2H 
7*40200 
600272 
7075*4*4 
202136 
062125 
202101 
06212*4 
*4*420*45 
600272 
777*47 1 
06212*4 
202015 
0*42137 
202136 
062125 
22212*4 
7*40200 
600310 
7075*4*4 
760000 
062124 
202025 
042137 
202136 
062125 
222124 
740200 
600322 
202031 
707544 
750004 
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THIRO 


OAC* 

DAC* 

OAC* 

OAC* 

LAC 

TAD 

SNA 

JMP 

CMA 

TAD 

OAC 

LAC 

DAC* 

IS2 

JMP 

LAC 

DAC* 

DAC* 

DAC* 

OAC* 

LAC 

DAC* 

LAC 

DAC* 

LAC 

OAC* 

LAC* 

S2A 

JMP 

7075*4 

LAC 

DAC* 

LAC 

DAC* 

IS2 

JMP 

LAN 

OAC* 

LAC 

DAC 

LAC 

DAC* 

LAC* 

S2A 

JMP 

707544 

LAN 

OAC* 

LAC 

DAC 

LAC 

DAC* 

LAC* 

S2A 

JMP 

LAC 

707544 

LAS 


12 

12 

12 

12 

DATAS 

MINUS* 

.♦10 

ONE 

CNTRI 

DATAM 

12 

CNTRI 

.-2 

PREFIN 

12 

12 

12 

12 

GUARD 

12 

RCVMRK 

82 

EXPAND 

12 

(NO 

.-2 

BUFFER- I 
(CA) 

SAVE 
(NO 
CNTR 
.-11 
-307 
(NO 
EXPAND 
BUFFER 
BUFFER- 1 
(CAI 
(NO 

.-4 


(NCI 

END 

BUFFER 

BUFFER-I 

(CA) 

(MO 

.-4 

MTMT 


/ STORE LOCK, 

/ REVERSE CHECK, 

/ REVERSE FINAL, 

/ AND REVERSE PREFINAL. 


/SET UP COUNTER FOR N-4 DATA HOROS 
/ STORE N-4 DATA MARKS 


/ STORE PREFINAI , 

/ FINAL. 

/ CHECK. 

/ AND REVERSE LOCK. 

/ STORE GUARD. 

/ STORE REVERSE MARK. 

/ STORE EXPAND. 

/HAS NHOLE BLOCK BEEN TRANSFERRED? 

/NO 

/YES, CLEAR DTF (DONE MITH THIS BLOCK) 
/AND SET UP FOR BLOCK AGAIN 


/MRITTEN ALL BLOCKS? 

/NO 

/YES, SET UP FOR 199 EXPANDS 


/SET BUFFER TO "25- 


/!S IT 0? 

/NO, RESET CA 

/YES. CLEAR DTF (DONE EXPAND) 

/ HC • -8192 

/SET BUFFER TO m 22 m 


/IS IT 0? 

/YES. THEN 
/STOP TAPE 


TMESli 
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02U332 7m 100 
020333 600336 
020334 761507 
020335 101006 
020336 122122 
020337 202113 
020340 707545 
0203m 740000 
020342 740000 
020343 740000 
020344 740000 
020345 740000 
020346 740000 
020347 707561 
020350 741000 
020351 600331 


020352 202f 30 

020353 242113 

C20354 707545 

020355 2021 35 

020356 06c 1 25 

020357 777776 

020360 062124 

020361 222124 

020362 741200 

020363 600367 

020364 707561 

020365 600361 

020366 600352 

020367 202027 

020370 242113 

020371 707545 

020372 162124 

020373 750001 

020374 34204! 

020375 042104 

020376 100757 

020377 042103 

020400 042137 

020401 202136 

020402 062125 

020403 707561 

020404 600401 

020405 707572 

020406 502055 

020407 741200 

020410 600737 

020411 202030 

020412 242034 

020413 242113 

020414 7075 -*5 

020415 202135 

020416 062125 

020417 707601 

020420 600417 

020421 707552 
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SPA 
JHP 
LAM 
JMS 
JMS* 
LAC 

707545 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
707561 
SKP 
JMP 

/routine to mrite 
/then all blocks 
FOUi'IH lac 
XOR 

707545 

LAC 

DAC* 

LAN 

OAC* 

LAC* 

SNA 

JMP 

707561 

JMP 

JMP 

LAC 

XOR 

707545 

DZM* 

CLA ICMA 

TAO 

OAC 

JMS 

OAC 

OAC 

LAC 

DAC* 

707561 

JMP 

707572 

AND 

C NA 

JMP 

LAC 

XOR 

XOR 

707545 

LAC 

OAC* 

707601 

JMP 

707552 


.♦3 

MESS 11 
ME SAGE 
I READ 1 > 
UNIT 


/TYPE OUT NEXT MESSAGE 
/WAIT FOR A KEY TO BE STRUCK 

/CLEAR ANO LOAO "A* WITH MOVE 
/WAIT FOR XSA DELAY 


TMESI I 
LAST BLOCK 
MARKS ANO A 
RESERC 
UNIT 

BUFFER-2 

(CA> 

-2 

(WC) 

(WO 


. -4 

fourth 

F WOW AC 
UNIT 


/ERROR FLAG? 

/NO 

/YES. TYPE MESSAGE AGAIN 
NUMBER IN REVERSE MARK 
VIRGIN PATTERN IN REVERSE DIRECTION 
/LOAD AC WITH SEARCH, CONTINUOUS GO, REVERSE 
/COMBINE WITH UNIT NUMBER 
/CLEAR ANO LOAO *A“ 


/WAIT FOR WC - 0 

/ERROR FLAG? 

/NO 

/YES. START AGAIN 

/LOAO AC WITH WRITE ALL. FWD. GO. CONT . 
..'COMBINE WITH UNIT NUMBER 
/CLEAR ANO LOAO *A' 


/COMPUTE LAST BLOCK NUMBER 


BLOCKS /COMPUTE L 

SAVE 3 

CALQL8 /FI NO COMP 

SAVE2 

BUFFER /STORE IN I 

BUFFER- | 

(CAI 

/WAIT FOR ERROR FLAG 
.-3 


/find complement ovberse 

/STORE IN BUFFER 


MASK I 

ERROR 1 
RESERC 
NORCON 
UNIT 

BUFFER-2 

CCA) 


/READ STATUS *8’ 

/END ZONE? 

/NO 

/YES. LOAO SEARCH REV GO CONTINUOUS 
/MAKE NORMAL 
/COMBINE WITH UNIT 
/CLEAR ANO LOAO *A* 


/WAIT FOR OTF 
/READ -A- 
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020*22 

502075 


AND 

POINT+3 


020H23 

707544 


707544 


/CLEAR FUNCTION GITS 

oaonan 

202033 


LAC 

MAC 

/LOAD AC WITH WRITE ALL CONT 

020*25 

707544 


707544 


/TRANSFER INTO "A“ 

020*25 

202136 


LAC 

BUFFER-1 


020 * 2 ? 

062126 


OAC* 

(121 

/ SETUP 12. 

020*30 

342112 


TAO 

THREE 


020 * 3 i 

062125 


OAC* 

(CA1 


020*32 

202101 


LAC 

SAVE 


020*33 

342112 


TAO 

THREE 


020*3* 

062124 


DAG* 

(WO 

/ WC • 2 LESS THAN USUAL. 

020*35 

160012 


D2M* 

12 

/ SETUP EXPAND 

020*36 

750001 


CLAICHA 



020 * 3 ? 

342041 


TAD 

BLOCKS 


020**0 

060012 


OAC* 

12 

/ SETUP BLK * INTO BUF-H 

020**1 

202050 


LAC 

OATAS 


020**2 

342111 


TAO 

JHP 


020**3 

740001 


CHA 



020 *** 

042346 


OAC 

CNTR1 

/SET UP COUNTER FOR * OF O'S 

020**5 

160012 


OZH* 

12 

/ (DATA WORDS* 3) IN MEMORY 

020**6 

442046 


ISZ 

CNTR1 

/ANO THEN STORE IN BUFFER 

020**7 

600445 


JHP 

.-2 


020*50 

750001 


CLAICHA 



020*51 

060012 


DAC* 

12 

/ REVERSE CHECKSUM 

020*52 

060012 


OAC* 

12 

/ LOCK 

020*53 

060012 


OAC* 

12 

/ REVERSE GUARO 

oao*5* 

202103 


LAC 

SAVE2 


020*55 

060012 


OAC* 

12 

/ COMPL OBVERSE IN BLK MARK 

020*56 

750001 


CLAICHA 



020 * 5 ? 

060012 


OAC* 

12 

/ EXPANO 

020*60 

202102 


LAC 

SAVE1 


020*61 

042045 


OAC 

CNTR 

/SET UP BLOCKS COUNTER 

020462 

750001 


CLAICHA 



020463 

362126 


TAO* 

( !2> 


020464 

042067 


OAC 

PNTR 

/SET UP PNTR FOR BLOCK NUMBER 

020465 

222124 

HERE1 

LAC* 

(MCI 

/ WAIT FOR BLK TO FINISH. 

020466 

741200 


SNA 



020467 

600473 


JHP 

.♦4 


020470 

707561 


707561 



020471 

600465 


JHP 

*-4 


020472 

600737 


JHP 

ERROR 1 


020473 

707544 


707544 


/CLEAR DTF 

020474 

202136 


LAC 

BUFFER* 1 


020475 

062125 


OAC* 

(CA) 


020476 

202101 


LAC 

SAVE 


020477 

062124 


OAC* 

(UC1 


020500 

750001 


CLAICHA 



020591 

342104 


TAO 

SAVE3 

/COMPUTE NUMBER OF CURRENT BLOCK 

020502 

042104 


OAC 

SAVE 3 


020503 

042140 


OAC 

BUFFER* 1 

/AND STORE IN APPROPRIATE PLACE 

020504 

100757 


JHS 

CALQL8 

/FORM COMPLEMENT OBVERSE 

020505 

062067 


OAC* 

PNTR 

/AND STORE IT 

020506 

442045 


ISZ 

CNTR 

/HAVE ALL BLOCKS BEEN PATTERNED? 

020507 

600465 


JHP 

HERE1 

/NO 

020510 

202034 


LAC 

NORCON 


020511 

707544 


707544 


/CLEAR CONTINUOUS 

020912 

707552 


707552 


/READ "A* 

020513 

502075 


ANO 

POINT *3 



LSSfe. A At- A <■ ; 
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020514 

707544 

020515 

202035 

020516 

707544 

020517 

202135 

020520 

062125 

020521 

707601 

020522 

741000 

020523 

600747 

020524 

707561 

020525 

600521 

020526 

707572 

020527 

502055 

020530 

741200 

020531 

600737 


020532 

202102 

020533 

042045 

020534 

142051 

020535 

202035 

020536 

242032 

020537 

242113 

020540 

707545 

020541 

202135 

020542 

062125 

020543 

162124 

020544 

707601 

020545 

600544 

020546 

707554 

020547 

202137 

020550 

54205! 

020551 

741000 

020552 

600753 

020553 

442051 

020554 

442045 

020555 

600544 

020556 

707552 

020557 

502075 

020560 

707544 

02056! 

202033 

020562 

707544 

020563 

202136 

020564 

062126 

020565 

342112 

020566 

062125 

020567 

202101 

020570 ' 

342112 

020571 

062124 

020572 

160012 

020573 

750001 

020574 

342041 

020575 

060012 

020576 

202050 

020577 

342111 

020600 

740001 

020601 

042046 

020602 

750001 

020603 

060012 
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ssz 

CNTR1 


JMP 

. -2 


DZM* 

12 

/ CHECKSUM 

DAC # 

12 

/ REVERSE LOCK 

DAC* 

12 

/ GUARD 

TAP 

BLOCKS 


JMS 

CALQL8 

/FORM COMP. OBVERSE 

DAC* 

12 

/ REV. MARK 

OZM* 

12 

/ EXPAND 

LAC* 

SNA 

(HC) 

/ WAIT FOR BLK TO BE WRITTEN. 

JMP 
70756 1 

. 


JMP 

. 


JMP 

ERROR 1 


707552 


/READ "A" 

AND 

POINT+3 


70755H 


/CLEAR FUNCTION REGISTER 

707561 


/WAIT FOR ERROR FLAG 

JMP 

.-1 


707572 


/READ STATUS “B" 

AND 

MASK! 


SNA 


/IS DECTAPE IN END ZONE? 

JMP 

ERROR 1 

/NO. ERROR 

TO CHECK 
CLAICMA 

REVERSE BLOCK MARK AND RE AO DATA BACKHARDS 

TAO 

BLOCKS 

/CREATE HIGHEST BLOCK NUMBER 

DAC 

EXPECT 

/AND STORE IN EXPECT 

LAC 

UNIT 

/FORM WORD 

XOR 

STOPGO 

/TO SELECT UNIT 

XOR 

MASK2 

/AND GO REVERSE 

7075H5 


/CLEAR AND LOAD *A* 

707552 


/READ "A" 

AND 

POINT+3 


7075tf4 

LAC 


/CLEAR FUNCTION REGISTER 

SERNOM 

/LOAD AC WITH SEARCH NORMAL 

7075HH 


/XOR INTO "A* 

LAC 

BUFFER-2 


OAC* 

(CA) 


707601 


/WAIT FOR DTF 

JMP 

.-1 

/GET BLOCK NUMBER 

LAC 

BUFFER 

SAD 

EXPECT 

/COMPARE AGAINST EXPECTED 

SKP 


/SAME ALL OK 

JMP 

ERR0R3 

/DIFFERENT, ERROR 

707552 


/READ "A* 

AND 

POINT+3 


7075HH 


/CLEAR FUNCTION REGISTER 

LAC 

REDNOM 

/LOAD AC WITH READ NORMAL 

7075H4 


/XOR INTO “A* 

LAC 

BUFFER- l 


DAC* 

(CA) 


DZM* 

(WC) 


707601 


/DECTAPE FLAG? 


JMP .-1 

707561 
SKP 
JMP 


/NO 

/ERROR FLAG? 
/NO. ALL OK 
/YES. ERROR 


ERR0R1 
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020675 

750001 

020676 

342051 

020677 

04205 ! 

020700 

740001 

020701 

750200 

020702 

600643 

020703 

202113 

020704 

740001 

020705 

502077 

020706 

707545 

020707 

761643 

020710 

101006 

02071 1 

202041 

020712 

122127 

020713 

202113 

020714 

242056 

020715 

707545 

020716 

760240 

020717 

122123 

020720 

761653 

020721 

101006 

020722 

202050 

020723 

122127 

020724 

760240 

020725 

122123 

020726 

761664 

020727 

101006 

020730 

761675 

020731 

101006 

020732 

122122 

020733 

5421 14 

020734 

600131 

020735 

622130 

020736 

000000 

020737 

707572 

020740 

040736 

020741 

707555 

020742 

761562 

020743 

101006 

020744 

200736 

020745 

122127 

020746 

622130 

020747 

707555 

020750 

761573 

020751 

101006 

020752 

622130 

020753 

707555 

020754 

761623 

020755 

101006 

020756 

600367 

020757 

000000 

020760 

744001 

020761 

042064 

020762 

1 42065 


LAST 


TMES23 


P0P9/I5 

ASSEMBLY 1 

CLAICMA 

TAO 

EXPECT 

OAC 

EXPECT 

CMA 

SZAICLA 

JMP 

HERE 3 

LAC 

UNIT 

CMA 

AND 

POINT*" 

707545 

TO INQUIRE OF OPES 

LA M 

MESS20 

JMS 

MESAGE 

LAC 

SLOCKS 

JMS* 

(OOUT) 

LAC 

UNIT 

XOR 

MASKS 

707545 

LAM 

240 

JMS* 

(PRINT! 

LAM 

MESS21 

JMS 

MESAGE 

LAC 

OATAS 

JMS* 

(OOUT) 

LAM 

240 

JMS* 

(PRINT) 

LAM 

MESS22 

JMS 

MESAGE 

LAM 

MESS23 

JMS 

MESAGE 

JMS* 

(RE AO I ) 

SAO 

YYY 

JMP 

NEXT 

JMP* 

(RETC) 


PAGE 


/OECREMENT EXPECT 


/HAS EXPECT GONE TO -0? 
/NO, REPEAT FOR NEXT BLOCK 
/YES 


/DESELECT UNIT 
3RS INTENTIONS 

/TYPE OUT MESSAGE 


/STOP DRIVE 


/TYPE OUT MESSAGE 


/TYPE OUT MESSAGE 
/type out message 


/NAS 

/YES 


IT Y 


ERRORI 


0 

707572 
OAC 
707555 
LAN 
JMS 
LAC 
JMS* 
JHP* 
707555 
LAN 
JMS 
JMP* 


/ RE AO B 
AND FLAGS. 


/TYPE OUT ERROR MESSAGE 


ERRORI -1 
/ CLEAR A 
MESS 1 2 
ME SAGE 
ERRORI- I 
I OOUT ) 

CRETC) 

ERR0R2 707555 / CLEAR A AND FLAGS 

MESS IB 
MESAGE 
’■ (RETC) 

/WRONG BLOCK NUMBER ERROR ROUTINE 
ERR0R3 707555 / CLEAR A AND FLAGS. 

LAN MESS 1 9 

? ES *? E /TYPE 0UT ERR0R MESSAGE 
^MP FOURTH* 1 5 /REPEAT VIRGIN PATTERN 

/CALCULATE 18 BIT COMPLEMENT OBVERSE 
CALQL8 0 

CMAICLL 

OAC NUMBER 

DZM OBVERS 


E-311 
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020763 

777772 


LAW 

-6 


020764 

042105 


OAC 

TALLY 


020765 

202042 


LAC 

CPOINT 


020766 

042070 


OAC 

PNTR1 


020767 

202064 


LAC 

NUMBER 


020770 

741000 


SKP 



02077! 

742010 

LOOP 

RTL 



020772 

742010 


RTL 



020773 

742010 


RTL 



020774 

042064 


OAC 

NUMBER 


020775 

522070 


AND* 

PNTR1 


020776 

242065 


XOR 

OBVERS 


020777 

042065 


OAC 

OBVERS 


021000 

442070 


1SZ 

PNTR1 


023001 

202064 


LAC 

NUMBER 


021002 

442105 


ISZ 

TALLY 


021003 

60677 1 


JMP 

LOOP 


021004 

202065 


LAC 

OBVERS 


021005 

620757 


JMP* 

CALQL8 




/MESSAGE 

PRINT SUBROUTINE 


021006 

000000 

MESAGE 

0 



021007 

502131 


ANO 

(37777) 


021010 

042071 


DAC 

PNTR2 


021011 

222071 


LAC* 

PNTR2 


021012 

640511 


LRS 

1 1 


021013 

502100 


AND 

RUBOUT 


021014 

542100 


SAD 

RUBOUT 


021015 

621006 


JMP* 

MESAGE 


021016 

122123 


JMS* 

(PRINT) 


021017 

222071 


LAC* 

PNTR2 


02 1020 

502100 


AND 

RUBOUT 


021021 

542100 


SAO 

RUBOUT 


021022 

621006 


JMP* 

MESAGE 


021023 

122123 


JMS* 

(PRINT) 


021024 

442071 


1SZ 

PNTR2 


021025 

601011 


JMP 

MESAGE+3 




/OECTAPE 

FORMAT GENERATOR - 

POP-9. TC02 . TU55 



/TAPE 2 






/MESSAGES 



021026 

304305 

MESS! 

304305 


/O.E 

021027 

303324 


303324 


/C.T 

021030 

301320 


301320 


/ A , P 

021031 

3Q524C 


305240 


/E.S P 

021032 

306317 


306317 


/F ,0 

021033 

322315 


322315 


/R.M 

021034 

301324 


301324 


/ A , T 

021035 

240307 


240307 


/SP,G 

021036 

305316 


305386 


/E.N 

021037 

305322 


305322 


/E,R 

021040 

301324 


301324 


/A, T 

021041 

317322 


317322 


/O.R 

028042 

255320 


255320 


/-.P 

021043 

304320 


304320 


/D.P 

021044 

255271 


255271 


/-.P 

021045 

254240 


254240 


/. .SP 

021046 

324303 


324303 


/T.C 

021047 

260262 


260262 


✓ 0,2 

021050 

254240 


254240 


/.,SP 




E-312 




V 
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OaiOSl 324325 
021052 265265 

021053 215212 

021054 212212 

021055 212377 

021056 315301 

021057 322313 

02 1060 240324 

021061 301320 

021062 305240 

021063 317316 

021064 240325 

021065 316311 

021066 324240 

021067 240377 

021070 304317 

021071 240331 

021072 317325 

021073 240304 

021074 305323 

021075 311322 

021076 305240 

021077 323324 

021100 201316 

021301 304301 

021102 322304 

021103 240306 

021104 317322 

021105 315301 

021106 324240 

021107 250262 

021110 265266 

021111 240327 

021112 317322 

021113 304323 

021114 254240 

021115 265267 

021116 266240 

021117 302314 

021120 317303 

021121 313323 

021122 251277 

021123 215212 

021124 240250 

021125 32433! 

021126 32030S 

021127 240331 

021130 255331 

021131 305323 

021132 254240 

021133 3IS2S5 

021134 316317 

021135 251240 

021136 240377 

021137 310317 

021140 327240 

021 141 315301 

021142 316331 


MESS2 


HESS3 


MESS4 
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324325 
265265 
215212 
212212 
212377 
3153Gi 
322313 
240324 
301320 
305240 
317316 
240325 
316311 
324240 
240377 
304317 
240331 
317325 
240304 
305323 
311322 
305240 
323324 
301316 
304301 
322304 
240306 
317322 
315301 
324240 “ 
250262 
265266 
240327 
317322 
304323 
254240 
265267 
266240 
302314 
317303 
313323 
251277 
215212 
240250 
324331 
320305 
240331 
255331 
305323 
254240 
316255 
316317 
251240 
240377 
310317 
327240 
315301 
3IS331 


/T.U 
/5.5 
/CR.LF 
/LF.LF 
/LF.R.O. 
/M.A 
/R.K 
/SP.T 
/A.P 
/E.SP 
/O.N 
/SP.U 
/N.| 
/T.SP 
/SP.R.O. 
/ 0.0 
/SP.Y 
/O.U 
/SP.O 
/E.S 
/ 1 ,R 
/E.SP 
/S.T 
/A.N 
/O.A 
/R.O 
/SP.F 
/O.R 
/ M.A 
/T.SP 
/« .2 
/5.6 
/SP.U 
/O.R 
/ O.S 
/ ..SP 
/ 5.7 
/ 6.SP 
/ B.L 
/ O.C 
/ K.5 
/ ».? 

/ CR.LF 
/ SP,( 

/ t.y 
/ P.E 
/ SP.Y 
/ “. Y 
/ E.S 
/ ..SP 
/ N- 
/ N.O 
/ l.SP 
/ SP.R.O 
/ H.O 
/ M.SP 
/ H.A 
/ N.Y 
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0cllH3 

240302 


SH030S 

021 1 HH 

314317 


3IH3I7 

021145 

303313 


303313 

0213H6 

323277 


323277 

021147 

240377 


2H0377 

021 150 

310317 

MESS5 

310317 

021 151 

327240 


3272H0 

021152 

315301 


315301 

021153 

316331 


316331 

021154 

240304 


2H030H 

021155 

301324 


30132H 

021156 

301240 


3052H0 

021157 

327317 


327317 

021160 

322304 


32230H 

021161 

323277 


323277 

021162 

240377 


2H0377 

021 163 

302314 

MESS5 

3023 1H 

021 164 

317303 


317303 

021165 

313240 


3I32H0 

021 166 

30631? 


306317 

021167 

322315 


322315 

021170 

301324 


30132H 

021171 

240322 


2H0322 

021172 

305321 


305321 

021173 

325311 


32531 1 

021 174 

322305 


322305 

021175 

323240 


3232H0 

021176 

264240 


26H2H0 

021177 

317322 


317322 

021200 

240315 


2H03IS 

02I2QI 

317322 


317322 

021202 

305240 


3052H0 

021203 

304301 


30H301 

021204 

324301 


32H30I 

021205 

240327 


2H0327 

021206 

317322 


317322 

021207 

304323 


30H323 

021210 

215212 


215212 

021211 

377000 


377000 

021212 

316325 

MESS7 

316325 

021213 

315302 


315302 

021214 

305322 


305322 

021215 

240317 


2H03I7 

021216 

306240 


3 062 HO 

021217 

304301 


30H30I 

021220 

324301 


32H301 

021221 

240327 


2H0327 

021222 

317322 


317322 

021223 

304323 


30H323 

021224 

240315 


2H03I5 

021225 

325323 


325323 

021226 

324240 


32H2H0 

021227 

302305 


302305 

021230 

240305 


2H0305 

021231 

326305 


326305 

021232 

316215 


316215 

021233 

212377 


212377 

021234 

324301 

MESSS 

32H301 
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/ SP.0 
/ L.O 
/ CK 
/ S.? 

/ SP.R.O 
/ H.O 
/ H.SP 
/ M.A 
/ N.Y 
/ SP.0 
/ A, T 
/ A.SP 
/ H.O 
/ R.O 
/ S.? 

/ SP.R.O. 

/ B.L 

/ O.C 

/ K.SP 

/ F.O 

/ R.M 

/ A , T 

/ SP.R 

/ E.Q 

/ U.l 

/ R.E 

/ S.SP 

/ H.SP 

/ O.R 

/ SP.M 

/ O.R 

/E.SP 

/O.A 

/T.A 

/SP.M 

/O.R 

/O.S 

/CR.LF 

/R.O 

/N.U 

/M.B 

/E.R 

/SP.0 

/F.SP 

/O.A 

/T.A 

/SP.M 

/O.R 

/O.S 

/SP.M 

/U.S 

/T.SP 

.B.E 

/SP.E 

/V.E 

/N.CR 

/LF.R.O. 

/T.A 


E-314 


I 

i 


>- 
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02123S 

320305 

021236 

240311 

021237 

323240 

021240 

316317 

021241 

324240 

021242 

314317 

021243 

316307 

021244 

240305 

021243 

316317 

021246 

325307 

021247 

310215 

021250 

212377 

021251 

323305 

021252 

324240 

021253 

323327 

021254 

311324 

021255 

303310 

021256 

240314 

021257 

301302 

021260 

305314 

021261 

305304 

021262 

240327 

021263 

322324 

021264 

315255 

021265 

316317 

021266 

322315 

021267 

301314 

021270 

255322 

021271 

304315 

021272 

313240 

021273 

240324 

021274 

317240 

021275 

327322 

021276 

324315 

021277 

240301 

021300 

316304 

021301 

240305 

021302 

316301 

021303 

302314 

021304 

305240 

021305 

215212 

021306 

327322 

021307 

311324 

021310 

305240 

02131 1 

317316 

021312 

240323 

021313 

320305 

021314 

303311 

C21315 

30631 1 

021316 

305304 

021317 

240325 

021320 

316311 

021321 

324240 

021322 

324310 

021323 

305316 

021324 

240323 

021325 

324322 

021326 

31 131 3 


320305 
240311 
323240 
316317 
324240 
314317 
316307 
240305 
316317 
325307 
310215 
212377 
MESS9 323305 
324240 
323327 
311324 
303310 
240314 
301302 
305314 
305304 
240327 
322324 
315255 
316317 
322315 
301314 
255322 
304315 
313240 
240324 
317240 
327322 
324*15 
240301 
316304 
240305 
316301 
302314 
305240 
215212 
327322 
311324 
305240 
317316 
240323 
320305 
30331 1 
30631 1 
305304 
240325 
316311 
324240 
324310 
305316 
240323 
324322 
311313 


- P.E 

/SP.i 

/S.SP 

/N.O 

/T.SP 

/L.O 

/N.G 

/SP.E 

/N.O 

/U.G 

/M.CR 

/LF.R.O. 

/S.E 

/T.SP 

/S.M 

/I.T 

/C.H 

/SP.L 

/A.0 

/e.l 

/E.O 

/SP.M 

/R.T 

/ M.- 

/N.O 

/R.M 

/A.L 

/-.R 

/O.M 

/K.SP 

/SP.T 

/O.SP 

/M.R 

/ T.M 

/SP.A 

/N.O 

/SP.E 

/N.% 

/6.L 

/E.Sf» 

/CR.LF 

/U.R 

/I.T 

/E.SP 

/O.N 

/SP.S 

/P.E 

/C.I 

/F . I 

/E.O 

/SP.U 

/N.l 

/T.SP 

/T.H 

/E.N 

/SP.S 

/T.R 

/I.K 
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■ - cuuuasapw.. 


IH 
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305240 

301240 

313305 

331240 

317316 

240324 

310305 

240313 

305331 

302317 

301322 

304215 

212301 

306324 

305322 

240315 

337325 

31S324 

31*316 

307240 

301240 

326311 

322307 

311316 

240324 

301320 

305240 

302316 

304240 

32430 1 

313311 

316307 

240262 

240327 

322301 

320323 

24G317 

316240 

324301 

313305 

325320 

240322 

305305 

314215 

212377 

323305 

314305 

303324 

240305 

322322 

317322 

254240 

303310 

305303 

313240 

306317 

322240 

324310 


/E.SP 

/A, SP 

/K.E 

/Y.SP 

/O.N 

/SP.T 

/H.E 

/SP.K 

/E.Y 

/ 9.0 

/A ,R 

/Q.CR 

/LF.A 

/F\T 

/E.R 

/SP.M 

/O.U 

/N # T 

✓ I ,N 

/G.SP 

/A.SP 

/V.I 

/R.G 

/I.N 

/SP.T 

/A.P 

/E.SP 

/A.N 

/O.SP 

/T , A 

/K.I 

/N.G 

/SP.2 

/SP.M 

/R , A 

/P.S 

/SP.O 

✓N.SP 

/T . A 

/K.E 

/U.P 

/SP.R 

/E.E 

/L.CR 

/LF\R.O 

/S.E 

/L.E 

/C.T 

/SP.E 

/R.R 

/O.R 

/..SP 

/C.H 

/E.C 

/K.SP 

/F.O 

/R.SP 

/T.H 


9ie-s 
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0£m2l 305323 

021422 305240 

02m2S 303317 

021H2H 316304 

021425 311324 

021426 311317 

021427 316323 

021430 272215 

021431 212327 

021432 322311 

021433 324305 

021434 240316 

021435 317324 

021436 240305 

021437 316301 

021440 302314 

021441 305304 

021442 215212 

021443 316317 

021444 316305 

021445 330311 

021446 323324 

021447 301316 

021450 324240 

021451 325316 

021452 311324 

021453 215212 

021454 315325 

021455 314324 

021456 311320 

021457 314331 

021460 240305 

021461 330311 

021462 323324 

021463 301316 

021464 324240 

021465 325316 

021466 311324 

021467 215212 

021470 323327 

021471 311324 

021472 303310 

021473 240316 

021474 317324 

021475 240311 

021476 316240 

021477 327322 

021500 315324 

021501 240320 

021502 317323 

021503 311324 

021504 311317 

021505 316215 

021506 212377 

021507 323305 

021510 324240 

021511 323327 

021512 311324 
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021513 

303310 


303310 

/C.H 

0215JH 

240314 


24038*4 

/SP.L 

021515 

301302 


301302 

/ A.B 

021516 

305314 


3053 1*4 

/E.L 

021517 

30530H 


30530*4 

/£ .0 

021520 

240327 


2H0327 

/SP.H 

021521 

32232*4 


32232*4 

/R.T 

021522 

315255 


315255 

/M.- 

021523 

316317 


316317 

/N.O 

C2152H 

322315 


322315 

/R.M 

021525 

30131*4 


30131*4 

/A.L 

021526 

255.322 


255322 

/-.R 

021527 

30*4315 


30*4315 

/D.M 

021530 

3132*40 


■1132*40 

/K.SP 

021531 

32*4317 


32*4317 

/T.O 

021532 

2*40316 


2*40316 

/SP.M 

021533 

317322 


317322 

/O.R 

02153H 

315301 


315301 

/ M.A 

021535 

31*425*4 


31*425*4 

/L. . 

021S36 

2*4032*4 


2*40324 

/SP,T 

02 1537 

310305 


310305 

/H.E 

0215H0 

3162*40 


316240 

/N.SP 

021 5^1 

32332*4 


323324 

/S , T 

021542 

322311 


32231 1 

/R. I 

021543 

313305 


313305 

/K.E 

021544 

2*40301 


240301 

/SP.A 

021545 

2*40313 


240313 

/SP.K 

021546 

305331 


305331 

/E.Y 

021547 

2*40317 


240317 

/SP.O 

021550 

3162*40 


316240 

/N.SP 

021551 

215212 


215212 

/CR.LF 

021552 

32*4310 


324310 

/T.H 

021553 

3052*40 


305240 

/E.SP 

021554 

313305 


313305 

/K.E 

021555 

331302 


331302 

/Y.B 

021556 

317301 


317301 

/O.A 

021557 

32230*4 


322304 

/R.O 

021560 

215212 


215212 

/CR.LF 

021561 

377000 


377000 

/R.O 

021562 

215212 

MESS 12 

215212 

/CR.LF 

021563 

30*4305 


304305 

/ OE 

021564 

30332*4 


303324 

/ CT 

021565 

301320 


301320 

/ AP 

021566 

3052*40 


305240 

/ E 

021567 

305322 


305322 

/ ER 

021570 

322317 


322317 

/ RO 

021571 

3222*40 


322240 

/ R 

021572 

377000 


377000 


021573 

32*4317 

MESS 18 

324317 

/T ,0 

021574 

3172H0 


317240 

/O.SP 

021575 

315301 


315301 

/M.A 

021576 

316331 


316331 

/N.Y 

021577 

2*40302 


240302 

/SP.B 

021600 

31H317 


314317 

/L.O 

021601 

303313 


303313 

/C.K 

021602 

3232H0 


323240 

/S.SP 

021603 

327322 


327322 

/H.R 

021604 

31 132*4 


31 1324 

/I .T 


rrr i i -| ms s ag m 3 £& B g 
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021605 
021606 
021607 
021610 
02161 1 
021612 
021613 
021614 
021615 
021616 
021617 
021620 
021621 
021622 
021623 
021624 
021625 
021626 
021627 
021630 
021631 
021632 
021633 
021634 
021635 
021636 
021637 
021640 
021641 
021642 
021543 
021644 
021645 
021646 
021647 
021650 
021651 
021652 
021653 
021654 
021655 
021656 
021657 
021630 
021661 
021662 
021663 
021664 
021665 
021666 
021667 
021670 
021671 
021672 
021673 
021674 
021675 
021676 


324305 
316254 
240320 
322317 
307322 
301315 
240305 
322322 
317322 
255322 
305314 
317301 
304215 
212377 
302314 
317303 
313240 
316325 
315302 
305322 
240323 
305321 
325305 
316303 
305240 
302322 
317313 
305316 
215212 
377000 
304317 
316305 
241240 
324301 
320305 
240310 
301323 
240377 
302314 
317303 
313323 
250317 
303324 
251240 
305301 
303310 
240377 
327317 
322304 
323250 
317303 
324251 
240314 
317316 
307215 
212377 
304317 
240331 


MESS 19 


MESS20 


MESS21 


MESS22 


MESS23 
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324305 

316254 

240320 

322317 

307322 

301315 

240305 

322322 

317322 

255322 

305314 

317301 

304215 

212377 

302314 

317303 

313240 

316325 

315302 

305322 

240323 

305321 

325305 

316303 

305240 

302322 

317313 

305316 

215212 

377000 

304317 

316305 

241240 

324301 

320305 

240310 

301323 

240377 

302314 

317303 

313323 

250317 

303324 

251240 

305301 

303310 

240377 

327317 

322304 

323250 

317303 

324251 

240314 

317313 

307215 

212377 

304317 

240331 


/t.e 

/N, , 

/SP.P 

/R.O 

/G.R 

/A.M 

/SP.E 

/R.R 

/O.R 

/-.R 

/e.l 

/O.A 

/O.CR 

/LF.RO 

/b.l 

/o.c 

/K.SP 

/N.U 

/M.B 

/E.R 

/ SP.S 

/E.Q 

/U.E 

/N.C 

/E.SP 

/B.R 

/O.K 

/E.N 

/CR.LF 

/RO 

/O.O 

/N.E 

/: ,SP 

/ T.A 

/P.E 

/SP.H 

/A.S 

/SP.RO 

/B.L 

/O.C 

/K.S 

/C.O 

/C.T 

/» .SP 

/E.A 

/C.H 

/SP.RO 

/H.O 

/R.O 

/S. C 

/O.C 

/T.) 

/SP.L 

/O.N 

/G.CR 

/LF.RO 

/O.O 

/SP, Y 
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021677 

317325 


317325 

/o.u 

021700 

2*030* 


2*030* 

/SP.D 

021701 

305323 


305323 

/E.S 

021702 

311322 


311322 

/I ,R 

021703 

3052*0 


3052*0 

/E.SP 

02170* 

32*317 


32*317 

/T.O 

021705 

2*0315 


2*0315 

/SP.M 

021706 

301322 


301322 

/A.R 

021707 

3132*0 


3132*0 

/K.SP 

021710 

301316 


301316 

/A.N 

021711 

31732* 


31732* 

/O.T 

021712 

310305 


310305 

/H.E 

021713 

3222*0 


3222*0 

/R.SP 

02171* 

32*301 


32*301 

/ T.A 

021715 

320305 


320305 

/P.E 

021716 

2*032* 


2*032* 

/SP.T 

021717 

3172*0 


3172*0 

/O.SP 

021720 

32*310 


32*310 

/T.H 

021721 

311323 


311323 

/I.S 

021722 

2*0306 


2*0306 

/SP,F 

021723 

317322 


317322 

/O.R 

02172* 

315301 


315301 

/M.A 

021725 

32*250 


32*250 

/T.l 

021726 

32*331 


32*331 

/ T.V 

021727 

320305 


320305 

/P.E 

021730 

2*0331 


2*033 i 

/ SP.V 

021731 

255331 


255331 

/-.Y 

021732 

305323 


305323 

/E.S 

021733 

2*0316 


2*031* 

/SP.N 

02173* 

255316 


255316 

/-.N 

02 1 “*35 

317251 


317261 

/O. ) 

021736 

277215 


277215 

/?.CR 

021737 

212377 


212377 

/LF.RO 

0217*0 

215212 

MESS2* 

215212 

/CRLF 

0217*1 

316325 


316325 

'/N.U 

0217*2 

315302 


31S302 

/M.B 

0217*3 

305322 


30S322 

/E.R 

0217** 

2*0317 


2*0317 

/SP.O 

0217*3 

3062*0 


3062*0 

/F.SP 

0217*6 

30231* 


30231* 

/B.L 

0217*7 

317303 


317303 

/o.c 

021750 

313323 


313323 

/K.S 

021752 

2*0315 


2*0315 

/SP.M 

021752 

325323 


325323 

/U.S 

021753 

32*2*0 


32*2*0 

/T.SP 

02175* 

302305 


302305 

/B.E 

021755 

2*0262 


2*0262 

/SP.2 

021756 

2*0317 


2*0317 

/ SP.O 

021757 

3222*0 


3222*0 

/R.SP 

0217601 

315317 


3S5317 

/M.O 

021761 

322305 


322305 

/R.E 

021762 

215212 


215212 

/CR.LF 

021763 

377000 


377000 

/RO 

02176* 

215212 

MESS25 

215212 

/CR.LF 

021765 

270313 


270313 

/8.K 

021766 

2*0317 


2*0317 

/ SP.O 

021767 

3062*0 


3062*0 

/F.SP 

021770 

315305 


315305 

/M.E 
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02177! 
021772 
021773 
02 1 774 
021775 
021776 
021777 
022000 
022001 
022002 
022003 
022004 
022005 
022006 
022007 
022010 
022011 
022012 
022013 


315317 

322331 

240303 

301316 

247324 

240303 

317316 

324301 

311316 

240324 

310311 

323240 

323311 

332305 

240302 

314317 

303313 

240215 

212377 


315317 

32233! 

240303 

301316 

247324 

240303 

317316 

324301 

311316 

240324 

31031 1 

323240 

323311 

332305 

240302 

314317 

303313 

240215 

212377 

/CONSTANTS ANO VARIABLES 
/MC ANO CA DEFINITIONS 
WC-30 
CA-31 


/M.O 

/R.Y 

/SP.C 

/ A.N 

/ ' .T 

/SP.C 

/O.N 

/T.A 

/I ,N 

/SP.T 

/H.I 

/S.SP 

/S.I 

/Z.E 

/SP.8 

/L.O 

/C.K 

/SP.CR 

/LF.RO 


PAGE NO, 


022014 

022015 

022016 

022017 

022020 

022021 

022022 

022023 

022024 

022025 


404404 

040404 

040440 

044040 

004000 

444000 

444044 

404004 

400404 

040040 


/MARK TRACK PATTERNS 


REVENO 
EXPANO 
MARK 
REVGRO 
LOCK 
OATAM 
PREFIN 
GUARO 
REVMRK 
ENO 
/DECTAPE 


404404 

040404 

040440 

044040 

004000 

444000 

444044 

404004 

400404 

040040 


022026 

002000 

REONOM 

002000 

022027 

035000 

rWDWAC 

035000 

022030 

071000 

RESERC 

071000 

022031 

036000 

WTMT 

036000 

022032 

020000 

STOPGO 

020000 

022033 

015000 

MAC 

015000 

022034 

010000 

NORCON 

010000 

022035 

001000 

SERNOM 

001000 



/ AASSORTEO SUNDRY 

022036 

772165 

AA 

-A* 1 

022037 

000000 

ANSWER 

0 

022040 

000260 

ASK 1 1 

260 

022041 

001 100 

BLOCKS 

1 100 

022042 

022072 

CPOINT 

POINT 

022043 

001 100 

CONST 1 

S 100 

022044 

000400 

C0NST2 

400 

022045 

000000 

CNTR 

0 

022046 

000000 

CNTR1 

0 

022047 

000000 

CNTR2 

0 

022050 

000400 

OATAS 

400 

022051 

000000 

EXPECT 

0 

022052 

777767 

H9 

-1-1 !♦! 

022053 

777766 

ms 

-1-12*1 


POINTERS. 


/S5 
/25 
/26 
/32 
/10 
/70 
/ 73 
/51 
/45 
/22 

/READ OATA NORM 
/WRITE ALL FHO GO CONT 
/SEARCH REVERSE GO CONT 
/WRITE T A MT FHO GO CONT 
/STOP OR GO 
/WRITE ALL CONTINUOUS 
/NORMAL CONTINUOUS 
/SEARCH NORMAL 

COUNTERS. CONSTANTS. VARIABLES. ETC. 
/NUMBER OF OATA HOROS MAX (-) 
/ANSWER TO DEC TO BIN TYPEIN (DBCV) 
/MAGIC CONSTANT 
/NUMBER OF BLOCKS 

/576 OEC 
/2S6 OEC 
/BLOCKS COUNTER 
/DATA WORD COUNTER 
/COUNTER FOR OCTAL TYPEOUT 
/NUMBER OF OATA WORDS 
/NUMBER OF BLOCK EXPECTEO 
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02205* 

777520 

022055 

100000 

022055 

0*0000 

022057 

020000 

022060 

010000 

022061 

007777 

022062 

77777* 

022063 

000316 

02206* 

GQ0G00 

022065 

000000 

022066 

000001 

022067 

000000 

022070 

022072 

022071 

000000 

022072 

000007 

022073 

000070 

02207* 

000700 

022075 

007000 

022076 

070000 

022077 

700000 

022100 

000377 

022101 

000000 

022102 

000000 

022103 

000000 

02210* 

000000 

022105 

000000 

022106 

000000 

022107 

000000 

022110 

000012 

022111 

000002 

0221 12 

000003 

0221 13 

000000 

02211* 

000331 

0221 15 

323553 


022135 

022137 

022136 

022136 

022137 

000000 

022116 

006737 

022117 

012*61 

022120 

0067*6 

022121 

777771 

022122 

012376 

022123 

006752 

02212* 

000030 

022125 

000031 

022126 

OQOOlc 

022127 

016267 

022 130 ; 

006257 

022131 

037777 


• •• 


PAGE NO. 


PI 




P0P9/I5 ASSEMBLY LISTING •** 


M260 

-1-260*1 

MASK1 

100000 

MASK2 

*0000 

MASK3 

20000 

MASK* 

10000 

MASK5 

7777 

MINUS* 

- 1 -*♦ 1 

NNN 

316 

NUMBER 

0 

OBVERS 

0 

ONE 

1 

PNTR 

0 

PNTRl 

POINT 

PNTR2 

0 

POINT 

7 


70 

700 

7000 

70000 

700000 

RUBOUT 377 

SAVE 0 

SAVE1 0 

SAVES 0 

SAVE3 0 

TALLY 0 

TEMP 0 

TEH I 0 

TEN IS 

TWO S 

THREE 3 

UNIT 0 

YYY 331 

MAGCON 3S3553 

•LOC MAGCON+SO 

/BEGINNING OF BUFFER AREA 
BUFFER 
BUFFER- I 
BUFFER 0 

A-S7763-BUFFER-I0 
.END 



/POINTER FOR STORAGE OF BLOCK NUMBER 
/POINTER FOR MASKS OF CALQLS 
/POINTER FOR MESAGE 
/MASK FOR CALQL8 


/• OF MARKS PER BLOCK (-) 

/•OF BLOCKS <-> 

/COMP. OBVERSE OF LAST BLOCK 
/•OF PARTICULAR BLOCK 
/COMP. OBVERSE COUNTER 
/STORAGE FOR TYPEOUT AND TYPIN 
/STORAGE FOR OBCV 


/UNIT NUMBER 
/MINUS I53,7H9(0EC) 
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i 


} 


A 

0056)4 

AA 

022036 

ANSWER 

022037 

ASKI I 

022040 

BEGIN 

020003 

BLOCKS 

022041 

BUFFER 

022137 

CA 

000031 

CALQL8 

020757 

CNTR 

022945 

CNTRI 

022046 

CNTRS 

022047 

CONST! 

022043 

CONSTS 

022044 

CPOINT 

022042 

CRLF 

006737 

OATAM 

022021 

DATAS 

022050 

DEC IN 

012461 

END 

022025 

ERROR! 

020737 

ERRORS 

020747 

ERROR3 

020753 

EXPANO 

022015 

EXPECT 

022051 

FIFTH 

020532 

FIRST 

020164 

FOURTH 

020352 

FWDWAC 

022027 

GUARD 

022023 

HERE! 

020465 

HERES 

020544 

HERE 3 

020643 

LAST 

020707 

LOCK 

022020 

LOOP 

020771 

MAGCON 

022115 

HARK 

0220)6 

MASK! 

022055 

MASKS 

022056 

MASK 3 

022057 

MASK* 

02206C 

MASKS 

022061 

MESAGE 

021006 

MESSl 

021026 

MESS 10 

021404 

MESSl 1 

021507 

MESS IS 

021562 

MESS1B 

021573 

MESS 19 

021623 

MESSS 

02)056 

MESSSC 

021643 


HESS21 02)653 
MESS22 02)664 
HESS23 02)675 
HESS24 02)740 
HESS2S 02)764 
HESS3 02)070 


MESS4 

021137 

MESS5 

021 150 

MESS6 

021 163 

MESS7 

Q212I2 

MESS8 

021234 

MESS9 

021251 

MINUS4 

022062 

M12 

022053 

M260 

022054 

M9 

022052 

NEXT 

020131 

NNN 

022063 

NORCON 

022034 

NUMBER 

022064 

OBVERS 

022065 

ONE 

022066 

OOUT 

016267 

PNTR 

022067 

PNTR1 

022070 

PNTR2 

022071 

POINT 

022072 

PREFIN 

022022 

PRINT 

006752 

QMARK 

006746 

RE AO) 

012376 

REONOM 

022026 

RESERC 

022030 

RET 

007436 

RETC 

006257 

REVENO 

022014 

REVGRO 

022017 

revmrk 

022024 

RUBOUT 

022100 

SAVE 

022101 

SAVE 1 

022102 

SAVE2 

022103 

SAVE 3 

022104 

SECOND 

020213 

SERNOM 

022035 

SIXTH 

020634 

STAND 

020124 

STOPGO 

022032 

tally 

022105 

TEMP 

022106 

TEMI 

022107 


TEN 022)10 
TH)RD 020304 
THREE 022112 
TMESS3 020023 
TMESS4 020037 
THESS5 020052 
THESS6 02006) 
THESS7 020070 
THESS8 020)00 
THES)i 020331 
THES23 020730 
TWO 022))) 
W<)T 022)) 3 






• •• 


SYMBOL TABLE 


HAC r 022033 
UC 000030 
HTMT 02203) 
TTY 022)) 4 
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ACOETA- 10721 

A0ECM-I0SS0 

A INF -68 

0ECC0N*657I 

DEC IN* I 2461 

OISAOD-7660 

D I SOME* 1 0407 

FACT* I 0875 

FQAC-0 

FOI V»700G0G 

FEXT*1 31 1 2 

FINT-13051 

FLAC-200000 

FMUL-500000 

LOOL IN* 10376 

LOGSUB- 1 0617 

MN0C0-7657 

NOCD* 10344 

PLOTGO- 16127 

QMARK-67H6 

RE AO* 12366 

RETC-6257 

S-40000 

STRPFG-53 

TC* 1271 4 

XX-74004Q 
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020000 474020 

020001 020036 

020002 347402 

020003 020665 

020004 440200 

020005 020327 

020006 727020 

020007 020710 

020010 S07424 

0200 II 020647 

020012 547202 

020013 020645 

020014 053230 

020015 020017 

020016 000000 

020017 122443 

020020 502444 

020021 745200 

020022 622445 

020023 342446 

020024 040040 

020025 040030 

020026 202447 

020027 653122 

020030 000002 

020031 641002 

020032 744010 

020033 102237 

020034 040222 

020035 622450 

020036 222451 

020037 653122 

020040 000002 

020041 641002 

020042 040723 

020043 744010 

020044 040364 

020045 140206 

020046 222451 

020047 640505 

020050 741200 

020051 202446 

020052 342446 

020353 102237 

020054 040724 

020055 222451 

02005S 362452 

020057 342453 

020060 04G253 

020061 140725 

020062 222454 

020063 740100 

020064 600110 

020065 040510 





... P0P9/J5 ASSEMBLY LISTING ••• PAGE NO. 2 

•TITLE PLOTTER-RCO 
.LOC 20000 

•LIT L12+1 

/PLOTTER RCD PDP-S 

474020 / PLOT 

PLOTA 

347402 / PLOTC ; A ,B A-NORMAL B-BRIGHT 

PLOTC 

440200 / PLT PLOT OVER LAST 

PLOT2 

727020 / PORG 

PORG 

507424 / TOPM 

TOPM 

547202 / BO fM 

TOPM-2 

053230 / SEX ; N 

SEX 
0 

SEX JMS* (DEC INI / READ ELONGATION FACTOR. 

AND (17) 

SNA I CLL / • MUST > 0. 

JMP* ( QMARK ) 

TAD < 1 ) 

OAC PLOTA+2 

OAC . +3 

LAC (40) 

MUL 

2 

LACQ 

RCL 

JMS TCMA 

OAC DSEX 

JMP* (RETC) 

PLOTA LAC* (NOCD) 

MUL 

2 

LACQ 

DAC ML 

RCL 

OAC XL / X AXIS LENGTH 

DZM YL 

LAC* (NOCO) 

LRS 5 / DIVIOE NOCD BY 32. 

SNA 

LAC ( 1 ) 

fAD / CAUSES VAL AT ORIG TO BE PLOTTED. 

JMS TCMA 

OAC XTICK / -m OF TICKS ON X-AXIS 

LAC* (NOCO) 

TAD* (OISAOD) 

T AO ( - 1 ) 

OAC XCOOR / VALUE OF LAST X-COORO. 

OZM YCOORL 

LAC* (LOGLIN) 

SMA / LOG OR LINEAR? 

JMP PLOTAL / LOG 

DAC LOGSCL 
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029066 

140727 


DZM 

MK 

020067 

502455 


AND 

( 177) 

020070 

741200 


SNA 


020071 

600101 


JMP 

.♦10 

020072 

342456 


TAD 

(-100) 

020073 

740100 


SMA 


020074 

600101 


JMP 

.♦5 

020075 

342457 


TAD 

(100) 

020076 

1 02237 


JMS 

TCMA 

020077 

342460 


TAD 

( 12) 

020100 

741000 


SKP 


020101 

440727 


ISZ 

MK 

020102 

340412 


TAD 

LINADR 

020103 

040726 


DAC 

YCOORU 

020104 

220726 


LAC* 

YCOORU 

020105 

040726 


OAC 

YCOORU 

020106 

600137 


JMP 

PLOTX 

020107 

100536 


JMS 

PLOGAR 

020110 

222461 

PLOTAL 

LAC* 

(FACT) 

020111 

660514 


LRSS 

14 

020112 

040643 


DAC 

PFACT 

020 113 

040726 


DAC 

YCOORU 

020114 

200107 


LAC 

PLOTAL- 1 

020115 

040510 


DAC 

LOGSCL 

020116 

777772 


LAN 

-6 

020117 

040466 


DAC 

CT2 

020120 

222462 


LAC* 

(AOECM) 

020r21 

041010 


DAC 

ALPHA 

020122 

222463 


LAC* 

(LOGSUB) 

020123 

561010 


SAD* 

ALPHA 

020124 

600130 


JMP 

. *4 

020125 

441010 


I'SZ 

ALPHA 

020126 

440466 


ISZ 

CT2 

020127 

600123 


JMP 

. -4 

020130 

200466 


LAC 

CT2 

020131 

342464 


TAD 

(6) 

020132 

040725 


DAC 

YCDORL 

020133 

340726 


TAD 

YCCORU 

020134 

040726 


DAC 

YCOORU 

020135 

342465 


TAO 

(60) 

020136 

040431 


DAC 

MESSP+4 

0201 37 

102015 

PLOTX 

JMS 

PLOT 

020140 

600144 


JMP 

. +4 

02Q141 

402453 


XCT 

(-1) 

020142 

402453 


XCT 

(-1 ) 

020143 

402453 


XCT 

(-1 ) 

020144 

102015 


JMS 

PLOT 

020145 

600151 


JMP 

.♦4 

020146 

402466 


XCT 

(0) 

020147 

402467 


XCT 

(-1750) 

020150 

402470 


XCT 

( 1750) 

020151 

102015 


JMS 

PLOT 

020152 

600156 


JMP 

.♦4 

020153 

402471 


XCT 

(2) 

020154 

402466 


XCT 

(0) 

020155 

402466 


XCT 

(0) 

020156 

102015 


JMS 

PLOT 

020157 

600153 


JMP 

.♦4 



/ DETERMINE MAX Y-SCALE . 

/ PRINT A ' K * . 

/ MAX Y-SCALE 

/ # OF DECAOES 
/ FI NO BASE-LINE DECADE. 

/ BASE LINE DECADE 
/ ♦ # OF DECADES 
/ * MAX DECADE. 

/ CONVERT TO ASCII. 


/ MOVE TO (0,0) 

/ MOVE TO (0, 1 “ ) 
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020160 
020161 
020162 
020163 
020164 
020165 
020166 
020167 
020170 
020171 
020172 
020173 
020174 
020175 
020176 
020177 
020200 
020201 
020202 
020203 
020204 
020205 
020206 
020207 
020210 
020211 
020212 
020213 
020214 
020215 
020216 
020217 
020220 
020221 
020222 
020223 
020224 
020225 
020226 
020227 
020230 
02023 I 
020232 
020233 
020234 
020235 
020236 
020237 
020240 
020241 
020242 
020243 
020244 
020245 
020246 
020247 
020250 
020251 
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40247! 


XCT 

402466 


XCT 

402472 


XCT 

102015 


JMS 

600170 


JMP 

402**66 


XCT 

402466 


XCT 

0202C6 


YL 

102015 


JMS 

600175 


JMP 

402473 


XCT 

020364 


XL 

020206 


YL 

202471 


LAC 

041226 


OAC 

102015 

PLOTAT 

JMS 

600204 


JMP 

402471 


XCT 

020364 


XL 

402464 


XCT 

100765 


JHS 

600212 


JMP 

000000 

YL 

0 

402471 


XCT 

020364 


XL 

402474 


XCT 

200253 


LAC 

100730 


JMS 

100345 


JMS 

777740 


LAN 

340253 


TAD 

741 100 


SPA 

222452 


LAC* 

040253 


OAC 

777600 

OSEX 

LAM 

340364 


TAD 

040364 


DAC 

741100 


SPA 

140364 


DZM 

102015 


JMS 

600234 


JMP 

402473 


XCT 

020364 


XL 

020206 


YL 

440724 


ISZ 

600177 


JMP 

140364 


OZM 

202470 


LAC 

040206 


DAC 

102015 


JMS 

600246 


JMP 

402473 


XCT 

020364 


XL 

020206 


YL 

200434 


LAC 

741200 


SNA 

600271 


JMP 

100765 


JMS 


ASSEMBLY LISTING 


PAGE NO. 


4 

(2) 

(0) 

(741 

PLOT / SET ORIGEN (0.0) 

.<*4 

CO) 

( 0 ) 

PLOT / ORAM X-AXIS. 

.♦4 

<4) 


12 ) 

R.SCL 

PLOT / PLOT A TICK AND ITS VALUE. 

. *4 

(2) 

( 6 ) 

CONTRO / SET ORIG FOR X-VALUE. 

.♦5 

(2) 

C-20) 

XCOOR 

DECPLT / PRINT X VALUE AT TICK. 

ORIG / GO BACK TO ORIG OF TICK. 

-40 

XCOOR 

COISAOD) 

XCOOR 

-200 

XL 

XL 

X! - t DON'T GO BEYOND (0.01 

PLOT / ORAN BACK ON X-AXIS 

.♦4 
(4) 


XTICK / 00NE7 

PLOTAT / NO 

XL 

( 1750) 

YL 

PLOT / ORAN Y-AXIS 

.♦4 

C4J 


HEST* 1 

/ IS THERE A TOP MESSAGE? 
PLOT I / NO. 

CONTRO 


E-327 
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PAGE NO 


S 


02025a 

600257 


JHP 

- *5 

020253 

000000 

XCOOR 

0 

020254 

40247! 


XCT 

CSS 

020255 

020723 


HL 


020236 

020206 


YL 


020257 

202475 


LAC 

(3) 

Q20260 

041226 


OAC 

R.SCL 

020261 

101010 


JHS 

ALPHA 

020262 

020433 


HEST 


020263 

777764 


-ih 


020264 

102015 


JHS 

PLOT 

020265 

600271 


JHP 

.♦H 

020266 

40247! 


XCT 

CSS 

020267 

020364 


XL 

020270 

020206 


YL 


020271 

100354 

PLOT! 

JHS 

YHARK 

020272 

102015 


JHS 

PLOT 

020273 

600277 


JHP 

♦ H 

C2027N 

402473 


XCT 

CHS 

020275 

402466 


XCT 

COS 

020276 

402466 


XCT 

COS 

020277 

200725 


LAC 

YCOORL 

020300 

040726 


OAC 

YCOORU 

020301 

140206 


OZH 

YL 

020302 

500354 


JHS 

YHARK 

020303 

200451 


LAC 

HESB*1 

020304 

74120Q 


SNA 

020305 

600326 


JHP 

PLOTS-! 

020306 

100765 


ins 

CONTRO 

020307 

60031M 


JHP 

.♦5 

020310 

000000 


0 


02C31 I 

402471 


XCT 

CSS 

020312 

020723 


HL 


020313 

402476 


XCT 

c-60s 

020314 

202475 


LAC 

C3S 

020315 

041226 


OAC 

R.SCL 

020316 

101010 


JHS 

ALPHA 

020317 

020450 


ncse 


020320 

777764 


-IH 


020321 

102015 


JHS 

PLOT 

020322 

600326 


JHP 

. ♦ H 

020323 

402471 


XCT 

css 

020324 

02036M 


XL 


020325 

402466 


XCT 

COS 

020326 

600341 


JHP 

PLOT3 

020327 

102015 

PLOTS 

JHS 

PLOT 

020330 

600334 


JHP 

. ♦H 

020331 

402453 


XCT 

(-1 S 

020332 

402453 


XCT 

c-i > 

020333 

402453 


XCT 

C-! S 

020334 

102015 


JHS 

PLOT 

020339 

600341 


JHP 

.♦H 

020338 

402466 


XCT 

COS 

020337 

402466 


XCT 

(Os 

020340 

402466 


XCT 

COS 

020341 

222477 

PL0T3 

LAC* 

CD1S0NES 

020342 

362452 


TAD* 

COISAOOS 

020343 

100467 


JHS 

PLTOAT 


j, — 

. . ... 




/ PLOT TOP MESSAGE. 

/ SACK TO ( 0 . YL > 

/ ORAM TICK MARK 

/ TICK MARK AT ORIGIN. 

/ BOTTOM MESSAGE? 

/ NO 

/ PLOT BOTTOM MESSAGE. 
/ RETURN TO ORIGIN. 

/ SET OR I GEN. 


t PLOT DATA 
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020344 

622450 


JMP* 

020345 

000000 

ORIG 

0 

020346 

102015 


JMS 

020347 

600353 


JMP 

020350 

402500 


XCT 

020351 

020364 


XL 

020352 

020206 


YL 

020353 

620345 


JMP* 

020354 

000000 

YMARK 

0 

020355 

102015 


JMS 

020356 

600362 


JMP 

320357 

402473 


XCT 

020360 

402464 


XCT 

020361 

020206 


YL 

020362 

100765 


JMS 

020363 

600370 


JilP 

020164 

000000 

XL 

0 

020365 

402471 


XCT 

020366 

402456 


XCT 

020367 

020206 


YL 

020370 

202471 


LAC 

020371 

041226 


DAC 

020372 

200510 


LAC 

020373 

740100 


SMA 

020374 

600400 


JMP 

020375 

200726 


LAC 

020376 

100730 


JMS 

020377 

600410 


JMP 

020400 

202501 


LAC 

020401 

040403 


OAC 

020402 

101010 


JMS 

020403 

00000^ 


0 

020404 

777774 


-4 

020405 

200725 


LAC 

020406 

342465 


TAD 

020407 

040431 


DAC 

020410 

100345 


JMS 

020411 

620354 


JMP* 

020412 

020413 

LINADR 

.♦1 

020413 

000001 


1 

020414 

000002 


2 

020415 

000004 


4 

020416 

000010 


10 

020417 

000020 


cO 

020420 

000040 


40 

020421 

000100 


100 

020422 

000200 


200 

020423 

000400 


400 

020424 

001000 


1000 

020425 

000002 

MESSP 

2 

020426 

000061 


61 

020427 

000060 


60 

020430 

000130 


130 

020431 

000000 


0 

020432 

000000 


0 

020433 

000002 

MEST 

2 

020434 

000000 


0 

020435 

000000 


0 


(RETC) 

PLOT 

.♦4 

(5) 


ORIG 

PLOT / PLOT TICK 

. +4 

(4) 

( 6 ) 

CONTRO / COORDINATE FOR VALUE AT TICK. 

.♦5 

C 2) 

(- 100 ) 

(2) 

R . SCL 
LOGSCL 

/ LOG OR LINEAR? 

.♦4 / LOG. 

YCOORU 

DECPLT 

,♦11 

(MESSP) 

.♦2 

ALPHA 


YCOORL 

(60) 

MESSP*4 

ORIG 

YMARK 

/ IK 
/ 2K 
/ 4K 
/ 8K 
/ 16K 

/ 32K OR 32 CTS 
/ 64K OR 64 CTS 
/ 1 20K OR 128 CTS 

/ 256K OR 256 CTS 

/ 512 CTS 

/ 10XP 


/ TOP MESSAGE 



v 


1 
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020436 000000 
020437 000000 
G2044Q 000000 
020441 000000 
020442 000000 
020443 000000 
020444 000000 
020445 000000 
020446 000000 
020447 000000 
02Q4S0 000002 
020451 000000 
020452 000000 
020453 000000 
020454 000000 
020455 000000 
020456 000000 
020457 000000 
020460 000000 
020461 000000 
020462 000000 
020463 000000 
020464 000000 
020465 000000 
020466 000000 
020467 000000 
020470 140535 
020471 040534 
020472 222502 
020473 040465 
020474 744002 
020475 740020 
Q20476 040533 
020477 440533 
020500 600503 
020501 202503 
020502 600504 
020503 202504 
020504 040516 
020505 220534 
020506 440534 
020507 744000 
020510 100536 
020511 100633 
020512 342505 
020513 040726 
020514 101624 
020515 600522 
020516 020531 
020517 402471 
020520 020535 
020521 020726 
020522 200040 
020523 744010 
020524 340535 
020525 040535 
020526 440465 
020527 600477 
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MESB 


CTI 

CT2 

PLTDAT 


LOGSCL 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

OZM 

DAC 

LAC* 

OAC 

STL 

PAR 

OAC 

ISZ 

JMP 

LAC 

JMP 

LAC 

OAC 

LAC* 

ISZ 

CLL 

JMS 

JMS 

TAO 

OAC 

JMS 

JMP 

CHARN 

XCT 

PSX 

YCOORU 

LAC 

RCL 

TAO 

OAC 

ISZ 

JMP 


/ BOTTOM MESSAGE 


PSX 

DATA / STORE ADDRESS OF DATA. 

CHNOCO) 

CTI / * OF POINTS 


POOTC 

PDOTC / BRIGHT DOT? 

. +3 /NO 

(CHARB) 

.♦2 

(CHARN) 

LOGSCL+6 

DATA 

DATA 

PLOGAR 

3TRP 

(75*4) 

YCOORU 

PPLOT 

.♦5 

( 2 ) 


PLQTA+2 

PSX / INCREMENT X 

PSX 

CTI / DONE? 

LOGSCL- 1 1 / NO 



E-330 
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020530 

620467 


JMP* 

PLTOAT 


020531 

000004 

CHARN 

4 


/ OATA SYMBOL 

020532 

000003 

CHARB 

3 


/ BRIGHT POINT SYMBOL 

020533 

000000 

PDOTC 

0 


920534 

000000 

DATA 

0 



020535 

000000 

PSX 

0 



020536 

000000 

PLOGAR 

0 



020537 

745200 


SNAICLL 



020540 

620536 


JMP* 

PLOGAR 

/ L0G(0)-0 

020541 

740100 


SMA 


/ -VALUES NEED SPECIAL CARE. 

020542 

60051.3 


JMP 

PLOGI 

020543 

1C0633 


JMS 

STRP 

/ SKIP' IF NOT STRIP. 

020544 

600551 


JMP 

.♦5 

020545 

744020 


RCR 



020546 

040253 


DAC 

XCOOR 

/ SAVE VALUE. 

020547 

777756 


LAN 

-22 

020550 

600557 


JMP 

PL0G2 


020551 

102237 


JMS 

TCMA 


020552 

440644 


ssz 

PMFLG 

/ SET NEG. FLAG 

020553 

650421 

PLOGI 

650421 


/ CLQ NORMS 1. 

020554 

040253 


DAC 

XCOOR 


020555 

7777C0 


LAW 

-100 


020556 

640001 


DSC 


/ IOR SHIFT COUNT. 

020557 

744001 

PL0G2 

CMAICLL 



020560 

653105 


653105 


/ MUL 5 

020561 

707070 


707070 



020562 

040642 


OAC 

PLOG 

/ STORE OECAOE. 

020563 

200253 


LAC 

XCOOR 

/ GET MANTISA FROM TABLE. 

020564 

742010 


RTL 


020565 

653606 


653606 


/ LMQ CLA LLS+6 

020566 

362506 


TAD* 

(ACOETA) 


020567 

040253 


OAC 

XCOOR 


020570 

200642 


LAC 

PLOG 


02057a 

360253 


TAD* 

XCOOR 


020572 

660507 


LRSS 

7 


020573 

362463 


TAD* 

(LOGSUB) 

/ BASE LINE OECAOE 

020574 

745100 


SPAICLL 



020575 

750000 


CLA 



020576 

100633 


JMS 

STRP 


020577 

600612 


JMP 

.♦13 


020600 

040642 


OAC 

PLOG 


020601 

122507 


JMS* 

( F 1 NT > 


020602 

242470 


FLACIS 

( 1750) 


020603 

740343 


FDIVtS 

PFACT 


020604 

742510 


FOE VIS 

(275) 


020605 

540642 


FMUL 1 S 

PLOG 


020606 

040253 


FOACIS 

XCOOR 


020607 

12251 1 


JMS* 

(FEXT) 


020610 

200253 


LAC 

XCOOR 


02061 S 

741000 


SKP 



020612 

740020 


RAR 



020613 

040253 


OAC 

XCOOR 


020614 

342467 


TAD 

(-1750) 

/ SET POINTS ABOVE RANGE TO 0. 

020615 

751300 


SPA 5 SMA 1 

CLA 


020616 

200253 


LAC 

XCOOR 


020617 

100633 


JMS 

STRP 


020620 

741000 


SKP 



020621 

620536 


JMP® 

PLOGAR 
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020622 200644 

020623 741200 

020624 600630 

020623 200253 

020626 102237 

020627 741000 

020630 200233 

020631 140644 

020632 620336 

020633 000000 STRP 

020634 040642 

020633 222312 

920336 743200 

020637 440633 

020640 200642 

020641 620633 

020642 000000 PLOG 

020643 000005 PF ACT 

020644 000000 PHFLG 

020643 202513 

020646 741000 

020647 202314 YOPM 

020630 041010 

020631 777764 

020632 040466 

020653 441010 

020634 161010 

020635 440466 

020656 741000 

02C637 622430 

020660 122515 

020661 061010 

020662 741200 

020663 622450 

020664 600633 

020665 100676 PLOTC 

020666 04033! 

020667 222516 

020670 S4gS17 

020671 74iC00 

020672 622450 

020673 1 00676 

020674 040332 

020673 622450 

020676 00Q00Q PLOT IN 

020677 122443 

020700 462520 

02070) 741200 

020702 622443 

020703 342521 

020704 740300 

020705 622443 

020706 342322 

020707 620676 

020710 102013 PGR© 

020711 600719 

020712 402453 

020713 402453 
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LAC 

PMFLO 



SNA 




JMP 

.+4 



LAC 

XCOOR 



JMS 

TCMA 



SKP 




LAC 

XCOOR 



D2M 

PMFLO 



JMP* 

0 

PLOOAR 



OAC 

. *6 

/ 

SAVE AC 

LAC* 

(STRPFG) 


SNAICLL 


/ 

STRIP? 

ISZ 

STRP 

/ 

NO 

LAC 

.♦2 

/ 

RESTORE AC 

JMP* 

STRP 



PAGE NO . 9 


6 

5 

0 

LAC 

SXP 

LAC 

OAC 

LAM 

OAC 

ISZ 

OZM* 

ISZ 

SXP 

JMP* 

JMS* 

OAC* 

SNA 

JMP* 

JMP 

JMS 

OAC 

LAC* 

SAD 

SXP 

JMP* 

JMS 

OAC 

JMP* 

0 

JMS* 

ISZ* 

SNA 

JMP* 

TAO 

SMAISZA 

JHP* 

TAO 

JMP* 

JMS 

JMP 

XCT 

XCT 


CMESB) 

IMEST) 

ALPHA 

-14 

CT2 

ALPHA 

ALPHA 

CT2 

(RETC) 

• RE AO ) 
ALPHA 

(RETC) 

.-II 

PLOT IN 

CHARN 

(TCI 

(541 

(RETC) 
PLOT IN 
CHARB 
(RETC) 

(OECIN) 

(AINF) 

( QMARX ) 
(-13) 

(QMARX) 
(13) 
PLOT IN 
PLOT 
. +4 
1-1 ) 
i~n 


/ 12 CHARS MAX. 

/ DONE? 

/ YES 

/ CRT- 
/ YES 

/ NEW CHAR FOR PLOTTING OAVA 
/ ANOTHER? 

/ NO 

/ NEW CHAR FOR BRIGHT OOT 

/ SXIP IF NO INPUT. 

/ * MUST BE > 0. 

/ * TOO LAROE. 
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02071*4 *402*453 

020715 102015 

020716 600722 

020717 *4025 00 

020720 H02H66 

020721 *402*466 

020722 622*450 

020723 000000 

02072*4 000000 

020725 000000 

020726 000000 

020727 000000 

020730 000000 

020731 122523 

@20732 00000Q 

020733 5*4252*4 

02073*4 620732 

020735 *4*40753 

020736 060753 

020737 7H0200 

0207*40 620732 

0207*41 200727 

0207*42 7H1 200 

0207*43 600750 

0207*4** 202525 

0207H5 060753 

0207*46 >4*40753 

0207i»7 160753 

020750 202526 

020751 0*40753 

020752 101010 

020753 020756 

02075*4 777772 

020755 620730 

020756 000002 

020757 000000 

020760 060000 

0207S1 000060 

020762 000000 

020763 000000 

02076*4 000000 



•• P0P9/15 ASSEMBLY LISTING ••• 


PAGE NO. 


10 


XCT 

JMS 

JMP 

XCT 

XCT 

XCT 

JMP* 


ML 0 

XTICK 0 

YCOORL 0 

YCOORU 0 

MK 0 

OECPLT 0 

JMS* 

0 


SAO 

JMP* 

ISZ 

DAC* 

SZA 

JMP* 

LAC 

SNA 

JMP 

LAC 

DAC* 

ISZ 

OZM* 

LAC 

DAC 

JMS 

OECPL1 DECPLM 

-6 

JMP* 

DECPLM 2 

0 
0 
0 
0 
0 
0 


(-11 

PLOT 

.♦*4 

(5) 

( 0 ) 

( 0 ) 


/ PLOT • IN AC. 

(DECCON) 

(2*40) / DON'T PLOT SPACES 

.-2 

DEC PL I 
DECPL 1 

/ DONE? 

.-6 / NO. 

MK 


.♦5 
(1131 
DECPL I 
OECPL 1 
DECPL 1 
CDSCPLM! 
DELPL 1 
ALPHA 


OECPLT 
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. T I TLE ALPHA 5/19/69 

// SYMBOL DEFINITIONS ANO CONTROL LOGIC FOR ALPHANUMERIC OUTPUT 
// ON THE PLOTTER ANO/OR DISPLAY 

// CONTROL ROUTINE FOR PLOTTER AWO/OR CRT ALPHANUMERIC OUTPUT 
// CALLING SEQUENCE. ALL ARGUEMENTS ARE FIXED POINT 
CALL CONTRO C NOAT . NC . N 1 . KS 5 

WHERE 

I PA OR TVA IS ASSIGNED TO 


// 

// 

// 

// 

// 

// 

// 


NOAT “.DAT SLOT NUMBER THAT 
NC ^CONTROL CODE <0.1. OR 2 ) 
NC-0. INITIALIZE SCALE 
NC 9 ! . INITIALIZE ROTATION 
NC-2. INITIALIZE P* SITION 


020765 

000000 

CONTRO 

0 


020766 

102401 


JMS 

. 0 A 

020767 

60077** 


JMP 

.♦t 

020770 

000000 

NDAT 

0 


020771 

000000 

NC 

0 


020772 

000000 

Nl 

0 


020773 

000000 

Na 

0 


02077** 

220771 


LAC® 

NC 

020775 

040771 


OAC 

NC 

020776 

220772 


LAC® 

Nl 

020777 

0*t0772 


OAC 

Nl 

021000 

220773 


LAC® 

N2 

021001 

040773 


OAC 

N2 

021002 

140770 


DZM 

NOAT 

021003 

101010 


JMS 

ALPHA 

02100** 

020770 


NDAT 


021005 

777774 


-H 


021006 

620765 


JMP* 

CONTRO 



/SYMBOL 

DEFINITIONS 

AND 0E< 



/ENTER 

HERE WITH CAL ADORE! 



✓ AC. 



021007 

oooooo 

AN I 

0 


021010 

000000 

ALPHA 

0 


021011 

201010 


LAC 

ALPHA 

021012 

041123 


OAC 

ARGP 

021013 

221123 

WRITE 

LAC* 

ARGP 

Q21014 

041007 


OAC 

AW I 

021015 

441123 


iSZ 

ARGP 

021016 

221007 


LAC® 

AW1 

021017 

741200 


SNA 


021020 

601164 


JMP 

CNTRL 

021021 

441007 


ISZ 

AW I 

021022 

102015 


JMS 

PLOT 

021023 

601027 


JMP 


02102** 

021623 


ARG33 


021025 

OOOOOO 

AM2 

0 


021026 

OOOOOO 

R.N2 

0 


021027 

221007 

SSI 

LAC* 

AW I 

021030 

441007 


ISZ 

AW I 

021031 

741200 


SNA 


021032 

601146 


JMP 

OONE 

021033 

342527 


TAD 

l-HQ 

021034 

741100 


SPA 


021035 

342457 


TAD 

C 1001 

021036 

502530 


ANO 

(77 

021037 

744020 


RCR 



/GET ARGUEMENTS 


/AMI CONTAINS ADDRESS OF WORD I OF LB 


/SPECIAL CODE -CONTROL 
/IOPS ASCI! QfXY 
/PICK UP THE PEN 


INFO 


/CR? 

/YES. 

/FINO AOORESS OF CHARACTER IN TABLE 
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02 1 OHO 3*42531 

021041 041025 

021042 221025 

021043 740400 

021044 640511 

021045 502532 

021046 342533 

021U47 041026 

021050 202534 

021051 041104 

021052 221026 

021053 041614 

021054 777775 

021055 041615 

021056 201614 

021057 653603 

021060 041612 

0210S1 641603 

021062 041613 

021063 641002 

021064 041614 

021065 202535 

021066 541612 

021067 601120 

021070 101516 

021071 201612 

021072 341231 

021073 041112 

021074 201613 

021075 341232 

021076 041113 

021077 102015 

021100 601104 

021101 021622 

021102 021112 

021103 021113 

021104 740000 

021 105 201224 

021106 041104 

021107 102015 

021110 601114 

021111 021621 

021112 000000 

021113 000000 

021114 441615 

021115 601056 

021116 441026 

021117 6010S2 

021120 102015 

021121 601125 

021122 021623 

021123 000000 

021124 000000 

021125 750000 

021126 541613 

021127 601133 

021130 202534 
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TAD (ATABL 

DAC AW2 

LAC* AU2 

SNL 

LRS 1 i 

AND (777 

TAD (SI 

/DECODE AND PLOT THE CHARACTER MHOSE ADDRESS IS IN THE AC 
OAC R.N2 

LAC (NOP 

OAC R.CHPD 

R.CS2 LAC* R.N2 /GET A PACKED HORD 

DAC R . MG 

LAH -3 

OAC R.CCT 

R.CSI LAC R.MQ 

653603 / LMO , CLA. LLS*3 

DAC R.TX 

641603 / CLA, LLS+3 

DAC R.TY 

LACQ 

OAC R.MQ 

LAC (7 

SAD R.TX 

JMP R.CS3 

JMS R.ROTA /NORMAL POINT 

LAC R.TX 

TAO R.X 

OAC R . PX 

LAC R.TY 

TAO R.Y 

OAC R.PY 

JMS PLOT 

JMP . +4 

ARG22 

R.PX 

R.PY 

R.CHPD NOP 

LAC INS2 

DAC R . CHPD 

JMS PLOT 

JMP .*4 

ARGI 1 

R.PX 0 

R.PY 0 

R.CHOK I SZ R.CCT 

JMP R.CSI 

ISZ R.N2 

JMP R . CS2 

R.CS3 JMS PLOT /EITHER END OR PU 

JMP . *4 

ARG33 

ARGP 0 

0 

CLA 

SAO R.TY 

JMP R.CS4 /END 

LAC (NOP 'PEN UP 


3 * 



E-335 


03/01 /73PL0TTER RCD POP-3 

Ocf 1131 041 I OH 
021 132 601 1 14 
021133 141613 
021134 202464 
021135 041612 
021136 1 0151 5 
021137 201612 
021140 341231 
021141 041231 
021142 201613 
021143 341232 
021 144 041232 
021145 601027 
021146 141612 
021147 777767 
021150 041613 
021 151 101516 
021152 20 k 233 
021153 341612 
021 154 041231 
0211 55 041233 
021156 201234 
021157 341613 
021160 041232 
021 161 041234 

021162 441123 
021163 621123 

021164 441007 
021165 221007 
021166 441007 
021167 745220 
021170 601203 
021 171 741200 
021172 601211 
021173 221007 
021 174 041231 
021175 041233 
021176 441007 
021177 221007 
021200 041232 
021201 041234 
021202 601162 
021203 221007 
021204 041226 
021205 141227 
02120& 202470 
021207 041230 
021210 601162 
021211 221007 
021212 741100 
021213 342453 
021214 041227 
021215 441007 
021216 221007 
021217 74! 100 
021220 342453 
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DAC 

JMP 

R.CS4 DZM 

LAC 
OAC 
JMS 
LAC 
TAD 
DAC 
LAC 
TAD 
DAC 
JMP 

DONE 07 M 

LAM 
DAC 
JMS 
LAC 
TAD 
DAC 
OAC 
LAC 
TAD 
DAC 
DAC 

/RETURN FOLLOWING 
ISZ 

OKOK JMP* 

/PROCESS CONTROL I 

CNTRL ISZ 

LAC* 

ISZ 

SNA IRCR 
JMP 
SNA 
JMP 

C. I NIT LAC* 

DAC 

DAC 

ISZ 

LAC* 

DAC 

OAC 

JMP 

C.SCAL LAC* 

DAC 

DZM 

LAC 

DAC 

JMP 

C . ROT LAC* 

SPA 

TAD 

OAC 

ISZ 

LAC* 

SPA 

YAO 


C.ROT 
AW 1 
R . X 
R.FX 
AW 1 
AW 1 
R. Y 
R.FY 
OKOK- 1 
AW1 
R.SCL 
R.SN 
C 1750 
R.CS 
OKOK- 1 
AW I 


/END 


/SET CARRIAGE RETURN 
/-8 1 ‘S COMP 


/GET CONTROL CODE 


/INITIALIZE POSITION! CODE-2) 
/LEAVE IN 2'S COMP 


/INITIALIZE SCALE ( CODE-O ) 


/INITIALIZE ROTATION 
/CONVERT AND STORE AS PS COMP 
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021221 

0*1230 


OAC R.CS 


OS 1222 

6G1 162 


JMP OKOK- 1 


021223 

601007 

IN51 

JMP AH1 


02122* 

60111* 

IN52 

JMP R.CHOK 


021225 

OOGOOO 

R. SUB 

0 

/ADDRESS OF CURRENT SUBROUT I NE (PLOT OR DRAW 

021226 

000003 

R . SCL 

3 

/SCALE FACTOR 

021227 

000000 

R.SN 

0 

/SIN 

021230 

001750 

R.CS 

1750 

/COS 

021231 

000000 

R.X 

0 

/X 0 OF CHAR 

021232 

000000 

R.Y 

0 

/Y 0 OF CHAR 

021233 

000000 

R.FX 

0 

/X OF FIRST CHAR 

02123* 

000000 

R.FY 

0 

/Y OF FIRST CHAR 

021235 

000000 

AUXBF 

0 


021236 

000000 


0 


021237 

000000 


0 


0212*0 

000000 


0 


0212*1 

000000 


0 


0212*2 

000000 


0 


0212*3 

000000 


0 


0212** 

000000 


0 




/CHARACTER OEF INI T IONS. GRID 

SIZE OF LETTER IS * BY 6. 



/SIZE 

INCLUDING SPACE IS 6 BY 

8 . 



/EACH 

OCTAL DIGIT AS A X OR Y 

COORDINATE. 



/3 PAIRS PER WORD. 70 IS END. 

77 IS PEN UP. 

02 £2*5 

700000 

SI 

7Q0000 


0212*6 

152620 

Cl 

152620 


0212*7 

103070 


103070 


021250 

051636 

C2 

051636 


021251 

*50100 


450100 


021252 

*07000 


*♦07000 


021253 

051636 

C3 

051636 


02125* 

*5**33 


454433 


021255 

*2*130 


424130 


021256 

100170 


100170 


021257 

011030 

C5 

011030 


021260 

*1*233 


414233 


021261 

0306*6 


030646 


021262 

700000 


700000 


021263 

021333 

C6 

021333 


02126* 

*2*130 


424130 


021265 

100105 


100105 


021266 

1636*5 


163645 


021267 

700000 


700000 


021270 

130*05 

C8 

130405 


021271 

1636*5 


163645 


021272 

**3313 


443313 


021273 

020110 


020110 


02127* 

30*1*2 


304142 


021275 

337000 


337000 


021276 

011030 

C9 

011030 


021277 

*1*536 


414536 


021300 

16050* 


160504 


021301 

1333** 


133344 


021302 

700000 


700000 


021303 

262*70 

S2 

262470 


02130* 

011030 

CS 

011030 


021305 

*1*233 


414233 


021306 

130*05 


130405 
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02.1307 

163645 


163645 

021310 

700000 


700000 

021311 

064626 

CT 

064626 

021312 

207000 


207000 

021313 

211112 

S7 

211112 

021314 

222110 


222110 

021315 

700000 


700000 

021316 

060202 

CU 

060202 

021317 

020140 

CJ 

020140 

021320 

304146 


304146 

021321 

700000 


700000 

021322 

060002 

CK 

080002 

021323 

461340 


461340 

021324 

700000 


700000 

021325 

060040 

CL 

060040 

021326 

700000 


700000 

021327 

000636 

CP 

000636 

021330 

454433 


454433 

021332 

037000 


037000 

021332 

341477 

X2 

341477 

021333 

133370 


133370 

021334 

133370 

X3 

133370 

022335 

162635 

X4 

162635 

022336 

312010 


312010 

021337 

700000 


700000 

021340 

023577 

X5 

023577 

022342 

451277 


451277 

021342 

441477 


441477 

021343 

033370 


033370 

022344 

362615 

X6 

362615 

021345 

112030 


112030 

021346 

700000 


700000 

021347 

443515 

X7 

443515 

021350 

041333 


041333 

021351 

4231 1 1 


423111 

021352 

027710 


027710 

021353 

167736 


167736 

021354 

307000 


307000 

021355 

000636 

CB 

000636 

021356 

454433 


454433 

021357 

033342 


033342 

021360 

413000 


413C00 

021361 

700000 


700000 

021362 

324241 

CG 

324241 

021363 

413010 

CC 

413010 

021364 

010516 


010516 

021365 

364570 


364570 

021366 

000636 

CO 

000636 

021367 

454130 


454130 

021370 

007000 


007000 

021371 

400Q00 

CC 

400000 

021372 

000333 

CF 

000333 

021373 

030646 


030646 

021374 

700000 


700000 

021375 

060003 

CH 

060003 

021376 

434046 


434046 

021377 

700000 


700000 

021400 

163626 

Cl 

163626 




8EE-H 
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021401 

201030 


021402 

700000 


021403 

123477 

xe 

021404 

242277 

021405 

321477 


021406 

133370 


021407 

101121 

MB 

021410 

201070 


02141 I 

222423 

n 

021 412 

133370 

02I4J3 

eOI333 

CA 

021414 

261333 


021415 

4C7000 


0214)6 

000620 

CH 

021 41 7 

464070 

021420 

000640 

CN 

021421 

467000 

021422 

00063S 

CR 

021423 

454433 


021424 

032340 


021425 

700000 


021426 

062046 

CV 

021427 

700000 


021430 

061026 

CM 

02143! 

304670 


021432 

062346 

cx 

021433 

002340 

021434 

700000 


021435 

062346 

cr 

021436 

232070 

021437 

303602 

CH 

021440 

427000 


02144! 

400000 

cz 

021442 

004606 

C7 

021443 

700000 


021444 

042426 

Zf 

021445 

060477 


021446 

204042 


021447 

222077 


021450 

004670 

55 

021451 

325041 

CO 

021452 

414536 

CO 

021453 

160501 

021454 

103041 


021455 

700000 


021456 

000000 

ATA0L 

021457 

000073 

021460 

102177 


021461 

000036 


021462 

077070 


021463 

136144 


021464 

046067 


021465 

142203 


021466 

205001 


021467 

003006 


021470 

I 720 12 


02 I 47 I 

016175 


021472 

02303! 
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201030 

700000 

123477 

242277 

321477 

133370 

101121 

201070 

222423 

133370 

001333 

261333 

•<07000 

000620 

464070 

000640 

•♦67000 

000636 

454433 

032340 

700000 

062046 

700000 

061026 

3Q467Q 

062346 

002340 

700000 

062346 

232070 

303602 

427000 

400000 

004606 

700000 

042426 

060477 

204042 

222077 

004670 

325041 

414536 

160501 

10304! 

700000 

0 

X5-S1 

X7-S1*I0Q0*ZI-SI 

S2-SI 

X6-SI * I Q00*X4-S I 
X8-SI • | 000*Y 1 -SI 
S7-SI*I000*X3-SJ 
X9-S I * 1 000*S5-S I 
CO-SI*IOOO«CI-SI 
C2-S1*1000*C3-S1 
C4-SI * 1000*05-51 
C6-SI *!000*C7-S1 
cb-si»iooo*c9-si 




E-339 
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021««73 000000 
021*47*4 0 0 0065 
021*475 000000 
021*476 0 001*46 
021*477 110116 
021500 12112*4 
021501 125115 
021502 130133 
021503 052055 
02150*4 060151 
021505 153205 
021506 06220*4 
021507 155037 
02 1 510 0*4*405! 
021511 161163 
021512 165170 
021513 17*4000 
02151*4 000000 
021515 000000 


021316 000000 
021517 101555 
021520 021612 
@21521 021226 
021522 0*41112 
021523 101555 
02152*4 021613 
021525 021226 
021526 0*41113 


021527 101555 
021530 021227 
021531 021113 
021532 7*40001 
021533 0^1612 
02153*4 101555 
021535 021230 
021S3S 021112 
021537 301612 
0215*40 10157*4 
0215*41 0*41612 

0215*42 101555 
0215*43 021227 
0215*4*4 021 1 12 
0215*45 0*41613 
0215H6 101555 
0215*47 021230 
021550 021113 
02IS5I 301613 
021552 10157*4 
021553 0*41613 
02155*4 621516 

021555 ©£2000 
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0 

X2-SI 

0 

CA-S1 

C8-S1 • 1 000*CC-Sl 
CO-SI • 1000*CE-Sl 
CP-SI 4$000*CG~S1 

cH-si*ioeo*ci-si 

CJ-S1»I0OO*C1C-SI 
CL-S I • 1 000*CM-S 1 
CN-Sl*lOOO«CO-Sl 

cp-si ♦iooo*cq-s» 

CR-Si*tOO0*CS-SI 
CT-SI •1000*CU-SI 
CV-SI*tOOO*CH-Sl 
CX-SI * 1OO0*CY-Sl 
CZ-S1*1000 
0 
0 

/ROUTINE TO ROTATE A VALUE- 

/JMS HERE WITH X ANO Y IN R.TX AND R.TYJS COMP I - 

/R.TX ANO R.TY MILL BE SCALED ANO ROTATEO ANC CONVERTED TO 2 COMP. 
R.ROTA 0 

J1*SS R.MULS 

R.TX 

R.SCL 

OAC R-PX 

JMS R.MULS 

R.TY 
R.SCL 

OAC R.PY 

/NOW R.PX-R.TX*R.SCL, R.PY-R. TY'R.SCL 
/COMPUTE R . TX-R . CS«R . PX-R . SN*R . PY 
JMS R.MULS 

R.SN 

R. PY 
CHA 

OAC R.TX 

JMS R.MULS 

S. CS 
R.PX 

ADD R.TX 

JMS OVIOOO 

OAC R.TX 

/COMPUTE R . T Y-R . SN«R . PX*R . CS *R . PY 


sIHS 

n.px 

R.MULS 

OAC 

R.TY 

JHS 

R.CS 

r.py 

R.MULS 


R.TY 

JHS 

OVIOOO 

OAC 

R.TY 

JHR* 

R.ROTA 


/MULTIPLY SIGNED ROUTINE 
R.MULS 0 



E-340 
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021556 221555 

021557 041616 

021560 44 1 555 

021561 221555 

021562 041617 

021563 441555 

021564 221616 

021565 664000 

021566 041571 

021567 221617 

021570 657122 

021571 000000 

021572 641002 

021573 621555 

021574 000000 

021575 041620 

021576 664000 

021577 202505 

021600 741400 

021601 740001 

021602 301620 

021603 744000 

021604 657323 

021605 001750 

021606 641002 

021607 74110Q 

021610 342446 

021611 621574 

021612 000000 

021613 000000 

021614 000000 

021615 000000 

021616 000000 

021617 000000 

021620 000000 

021621 000001 

021622 000002 

021623 000003 


••• POP9/ 1 5 ASSEmr LISTING ... PA6E „„ 

LAC* R.MULS 

DAC R . MUL 1 

IS2 R . MULS 

LAC* R .MULS 

OAC R.MUL2 

ISZ R.MULS 

LAC* R.MUL1 

CSM 

OAC . *3 

LAC* R.MUL2 

MULS 
0 

LACQ 

UMP* R.MULS 

o!?SJJ NE T 0 0,V!0E BY 1000 AND C0NVERT T0 2 COMP 

OAC OV111 

GSM 

LAC (764 

SZL 

CMA 

AOO OVlil 

CLL 

IOIVS 

1750 

LACQ 

SPA 

TAO (1 

» tv f ,p# OV1000 

R # T X 0 

R.TY 0 

2:2?r 2 /mq h °«-oer 

R.MULI 0 

R.MUL2 0 

0V111 o 

ARGI1 | 

ARG22 2 

ARG33 3 


E-341 


PAGE NO. 


19 


03/01 /73PLQTTER RCD PDP-9 ••• PDP9/I5 ASSEMBLY LISTING 

.TITLE PPLOT 5/19/69 
// POINT PLOTTING ROUTINE 

// CALLING SEQUENCE - ALL ARGUMENTS ARE FIXED POINT 


// CALL PPLOTlN.NS.NX.NYJ 

// WHERE N-CHARACTER CODE. NS-SCALE FACTOR. 

// NX AND NY ARE X AND Y COORDINATES 


021624 

000000 

PPLOT 

0 



021625 

102401 


JMS 

.DA 


021626 

601633 


JM? 

. *5 


021627 

000000 

N 

G 



021630 

000000 

SCAL 

0 



021631 

000000 

PX 

0 



021632 

000000 

Y 

0 



021633 

221630 


LAC* 

SCAL 


021634 

660701 


ALSS 

1 


021635 

740001 


CMA 



021636 

342446 


TAD 

Cl 


021637 

652000 


LMO 



021640 

361631 


TAD* 

PX 


021641 

041631 


OAC 

PX 


021642 

641002 


LACQ 



021643 

361632 


TAG* 

Y 


021644 

041632 


OAC 

Y 


021645 

102015 


JMS 

PLOT 

/PICK UP PEN 

021646 

601652 


JMP 

,♦4 


021647 

022014 


ARG3 



021650 

000000 


0 



021651 

000000 

HOLD 

0 



021652 

221627 


LAC* 

N 


021653 

502444 


AND 

<17 


021654 

342446 


TAD 

( 1 


021655 

744020 


RCR 



02 1656 

542464 


SAD 

<6 


021657 

601666 


JMP 

PCRSH 

/CROSS-HASH ONLY 

021660 

342536 


TAO 

(TABL-1 


021661 

101671 


JUS 

PCHAR 


021662 

221627 


LAC* 

N 


02 1663 

744020 


RCR 



021664 

741400 


SZL 



021665 

621624 


JMP* 

PPLOT 

/NO CRSH OVERLAY 

021666 

202537 

PCR5H 

LAC 

(TABL+5 

/PLOT CROSS-HASH 

021667 

101671 


JMS 

PCHAR 


021670 

621624 


JMP* 

PPLOT 


021671 

000000 

PCHAR 

0 


/PLOT A SYMBOL 

021672 

041650 


DAC 

HOLD* 1 


021673 

221650 


LAC* 

HOLD- 1 


021674 

041650 


DAC 

HOLD- 1 


021675 

202534 


LAC 

CHOP 


021676 

041717 


DAC 

PENS 


021677 

777775 

PI 

LAN 

-3 


021700 

041723 


OAC 

CNT 


021701 

221650 


LAC* 

HOLD-1 


021702 

041651 


DAC 

HOLD 


021703 

441650 


1SZ 

HOLD- l 


021704 

101733 

P2 

JMS 

GETMUL 


021705 

341631 


TAD 

PX 


021706 

C*# 1 754 


OAC 

PNX 


021707 

101733 


JMS 

GETMUL 



w-a 


03/01 /73PL0TTER RCD POP-9 


021710 341632 

021711 OH 1755 

021712 102015 

021713 601717 

021714 022013 

021715 021754 

021716 021755 

021717 000000 

021720 102015 

021721 601725 

021722 022012 

021723 000000 

021724 000000 

021725 201732 

021726 041717 

021727 441723 

021730 601704 

021731 601677 

021732 601727 

021733 000000 

021734 201651 

021735 744000 

021736 640517 

021737 041746 

021740 542535 

021741 601751 

02 1 742 641002 

021743 041651 

021744 221630 

021745 653122 

021746 000000 

021747 641002 

021750 621733 

021751 102015 

021752 601756 

021753 022014 

021754 000000 

021755 000000 

021756 621671 

021757 021765 

021760 021767 

021761 021771 

021762 021775 

021763 022003 

021764 022010 

021765 000444 

021766 400070 

021767 022442 

021770 200270 

021771 010314 

021772 344341 

021773 301001 

021774 700000 

021775 000112 

021776 030414 

021777 233444 

022000 433241 

022001 403021 
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TAD 

Y 


OAC 

PNY 


JMS 

PLOT 


JMP 

ARG2 

PNX 

PNY 

.♦4 

PENS 

0 



JMS 

PLOT 


JMP 

ARGI 

. ♦4 

CNT 

0 

0 



LAC 

GETMUL-1 


OAC 

PENS 

PENSWi 

ISZ 

CNT 


JMP 

P2 


JMP 

PI 


JMP 

PENSH1 

6ETMUL 

0 



LAC 

CLL 

HOLD 


LRS 

17 


OAC 

GMRK 


SAD 

(7 


JMP 

LACQ 

ENOGET 


DAC 

HOLO 


LAC* 

MUL 

SCAL 

GWRK 

0 

LACQ 



JMP* 

GETMUL 

ENOGET 

JMS 

PLOT 


JMP 

ARG3 

.♦4 

PNX 

0 


PNY 

0 



JMP* 

PCHAR 

TABL 

SQR 

DIM 

OCT 

STR 

CRS 

CRSH 


SQR 

00044*4 

400070 


DIH 

022442 

200270 


OCT 

010314 

344341 

301001 

700000 


STR 

0001 12 
030414 
233444 
433241 
403021 



/PEN DOWN AFTER FIRST POINT ONLY 


/GET A COORDINATE AND SCALE IT 
/ 1 5DEC 


/PICK UP PEN 


/ 5 X 5 GRID X»?,Y»0 IS END OF SYMBOL 
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02200S t 00070 
022003 010313 
022004 1 43433 
022005 434131 
022006 30101 1 
022007 017000 
022010 024222 
022011 242070 
022012 000001 
Q220I3 000002 
022014 000003 
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100070 
CRS 010313 

143433 
434131 
301011 
017000 
CRSH 024222 

242070 
ARGI 1 

ARG2 2 

ARG3 3 
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022015 000000 
022016 102401 
022017 602023 
022020 000000 
022021 000000 
022022 000000 
022023 222020 
022024 342540 
022025 741120 
022026 602037 
022027 202015 
022030 042020 
Q22031 202541 
022032 042015 
022033 602054 
022034 202020 
022035 042015 
022036 602117 
022037 222020 
022040 743120 
022041 602105 
022042 741100 
022043 602054 
022044 741400 
022045 602117 
022046 222021 
022047 042064 
022050 222022 
022051 042065 
021:052 142104 
022053 744002 
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.TITLE PLOT 5/19/69 
// BASIC CALC0MP HAN0LIN6 SUBROUTINE 
// CALLING SEQUENCE. ALL ARGUMENTS ARE FIXED POINT 
// CALL PLOT INC, NX. NY) 

// NC IS A CONTROL COOE AND NX AND NY ARE X AND Y ARGUMENTS RESPECTIVELY 

// NC— 2. FIRST CALL WITH BUSY SWITCH 

// NC— I. FIRST CALL 

// NC-0. INITIALIZE 

// NC-I. PUT PEN DOWN 

// NC«2. MOVE PEN 

// NC-3. PICK PEN UP 

// NC-H. MOVE WITH PEN DOWN (PUT PEN DOWN ANO MOVE) 

// NC-5. MOVE WITH PEN UP (PICK PEN UP ANO MOVE) 

// 

// COMMANDS ARE STORED IN 2 WORE PAIRS 
/PEN UP COMMANDS ARE 000000 H0G000 
/PEN DOWN COMMANDS ARE 000000 000000 
/PEN MOVE COMMANOS ARE A AAA A A MBBBBB 

/WHERE AAAAAA - ABS(X2-X1) OR A8S(Y2-Y1) WHICH EVER IS LARGER 
/ BBBBB - ABS(X2-X1 > OR ABS(Y2-Y1) WHICH EVER IS NOT AAAAAA 

/AND M« 3 BIT CODE SELECTING PROPER PAIR OF PLOTTER COMMANOS 
// 

// SEE ALGORITHM FOR COMPUTER CONTROL OF A DIGITAL PLOTTER 
// BY J. E. BRESENHAM, IBM SYSTEMS JOURNAL. VOL H.NO 1.1965 

/ 


/CALL 

HANDLER 



y 

PLOT 

0 




JMS 

.DA 

/GET ARGUMENTS 


JMP 

+ 4 


CNTROL 

0 



BIGX 

0 



8 1 GY 

0 




LAC* 

CNTROL 

/IF CNTROL - H OR 5. 


TAD 

(-4 

/GO THROUGH A PEN 


SPA 1 RAR 


/COMMANO PRIOR TO 


JMP 

GOGOGO 

/PERFORMING THE MOVE 


LAC 

PLOT 



DAC 

CNTROL 



LAC 

< .*3 



OAC 

PLOT 



JMP 

PUORD 



LAC 

CNTROL 



OAC 

PLOT 



JMP 

MOVE 


GOGGGO 

LAC* 

CNTROL 

/CHECK CNTROL 


SPAIRTR 




JMP 

F5RSTG 



SPA 




JMP 

PUORD 



S2L 




JMP 

MOVE 



LAC* 

BIGX 

/PROCESS INI T COMMAND 


DAC 

LASTX 



LAC* 

BIGY 



OAC 

LASTY 



D2M 

PENSW 



STL 




£-345 
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022054 75000C 
022055 7 ‘♦0020 
022056 042076 
022057 142075 
022060 542104 
022061 622015 
022062 042104 
022083 602202 
022064 000016 
022065 702401 
022066 000000 
022067 000000 
022070 000000 
022071 000000 


022072 042236 
022073 222021 
022074 741200 
022075 000000 
022076 000000 
022077 102237 
022100 000000 
022101 744020 
022102 741200 
022103 000001 
022104 744010 
022105 202233 
022106 042232 
022107 042231 
022110 202542 
022111 062543 
022112 042103 
022113 142235 
022114 202237 
022115 062236 
022116 622015 
022117 202064 
022120 102237 
022121 362021 
022122 042075 
022123 202065 
022124 102237 
022125 362022 
022126 042076 
022127 222021 
022130 042064 
022131 222022 
022132 042065 
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OSS 1 33 142020 

022134 202075 

022135 740100 

022136 442020 

022137 741100 

022140 102237 

022141 042075 

022142 2020 20 

022143 744010 

022144 042020 

022145 202076 

022146 740100 

022147 442020 

022150 741100 

022151 102237 

022152 042076 

022153 102237 

022154 342075 

022155 740010 

022156 740002 

022157 202020 

022160 740010 

022161 660717 

022162 042020 

022163 640702 

022164 741100 

022165 602174 

022166 202075 

022167 652000 

022170 202076 

022171 042075 

022172 641002 

022173 042076 

022174 202076 

922175 242020 

022176 042076 

022177 202075 

022200 741200 

022201 622015 

022202 2022 57 

022203 542235 

022204 602203 

022205 202075 

022206 062232 

022207 442232 

022210 202076 

02221 1 062232 

022212 442232 

022213 442235 

022214 700002 

0222S5 222236 

022216 342453 

022217 062236 

022220 700042 

022221 202232 

022222 542234 

022223 202233 
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BOOL-CNTROL 


NOSWAP 


PLACEW 


02M 

BOOL 

LAC 

DELX 

SMA 


IS 2 

BOOL 

SPA 


JMS 

TCMA 

OAC 

OELX 

LAC 

BOOL 

RCL 


OAC 

BOOL 

LAC 

OELY 

SMA 


IS2 

BOOL 

SPA 


JMS 

TCMA 

OAC 

OELY 

JMS 

TCMA 

TAO 

OELX 

RAL 


CML 


LAC 

BOOL 

RAL 


ALSS* 17 


OAC 

BOOL 

ALS+2 


SPA 


JMP 

NOSMAP 

LAC 

OELX 

LMQ 


LAC 

OELY 

OAC 

OELX 

LACQ 


OAC 

OELY 

LAC 

OELY 

XOR 

BOOL 

OAC 

OELY 

LAC 

OELX 

SNA 


JMP* 

PLOT 

LAC 

BUFFL 

SAD 

NC1B 

JMP 

.-1 

LAC 

WORD! 

OAC* 

LOAD 

'ISZ 

LOAD 

LAC 

M0R02 

OAC* 

LOAD 

IS2 

LOAD 

IS2 

NCIB 

I OF 


LAC* 

BUSYAD 

TAO 

C-l 

OAC* 

BUSYAD 

ION 


LAC 

LOAO 

SAD 

ABUFF2 

LAC 

ABUPF! 


/OCTAL 


/SWAP DELTA X ANO Y 


/PLACE COMMANO IN BUFFER 


/SUBTRACT 1 FROM 
/SUSY SWITCH 


r t 



W* a 
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022224 

022225 

022226 

022227 

022230 

022231 

022232 

022233 

022234 

022235 

022236 


022237 

022240 

022241 

022242 


022243 

022244 

022245 

022246 

022247 
022250 
02225 t 
022252 
022253 
022254 
022255 
022256 

022257 


022260 

022261 

022262 

022263 

022264 

022265 

022266 

022267 

022270 

022271 

022272 

022273 


042232 


OAC 

750000 


CLA 

542103 


SAD 

622015 


JMP* 

602312 


JMP 

022077 

UNLOAD 

BUFFI 

022077 

LOAO 

BUFFI 

022077 

abuff i 

BUFFI 

022101 

ABUFF2 

8UFF2+ 1 

000000 

NCI 8 

0 

022072 

BUSY AO 

BUSYSW 


DELX-HORD1 


DFLY-H0RD2 

000000 

TCMA 

0 

740001 


CMA 

342446 


tAD 

622237 


JMP* 


/INTERRUPT SERVICE 


LOAD 

PLSTOP 

PLOT 

INOSTP+3 /START UP PLOTTER 


/TWO CMA 

( 1 

TCMA 

- COMMAND EXECUTER 


/ 

/ USE lOT'S FOR POP-9 

PLSF *70240 1 

PLCF-702402 

PLPU*702404 

PLPR-70242I 

PLOU-702422 

PL0D*702424 

PLPL*70244l 

PLPD-702444 


/ 


702424 

INSTAB 

PLOO 



702422 


PLOU 



702441 


PLPL 



702421 


PL PR 



000031 

fgtab 

31 


/M7M6 

000013 


13 


/M5M6 

000021 


21 


/M3MH 

000012 


12 


/M5MH 

000030 


30 


/M7M8 

000003 


03 


/MSM8 

000020 


20 


/M3M2 

000002 

f 

02 


/MIM2 

000001 

BUFFL 

/ 

1 




/GET COMMAND FROM 

BUFFER ANO 

EXECUTE 

202235 

NEXTC 

LAC 

NC IB 


741200 


SNA 



602307 


JMP 

INOSTP 


342453 


TAD 

C-I 


042235 


OAC 

NC1B 


462236 


ISZ* 

BUSYAD 

/INCREMENT BUSY SNITCH 

222231 


LAC* 

UNLOAD 


442231 


ISZ 

UNLOAO 


740200 


SZA 



602314 


JMP 

XMOVE 


700002 


IOF 


/PEN UP OR DOWN 

562231 


SAD* 

UNLOAD 



E-348 
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022374 602277 

022275 702404 

022276 741000 

022277 702444 

022300 122543 

022301 442231 WRAP 

022302 202231 

022303 542234 

022304 202233 

022305 042231 

022306 602260 

/ 

022307 142103 1N0STP 

022310 442103 

022311 622015 

022312 142103 

022313 602260 

/ 

022314 042101 XKGVE 

022315 222231 

022316 502544 

022317 042102 

022320 222231 

022321 742010 

022322 7420 1 0 

022323 502535 

022324 342545 

922325 042067 

022326 222067 

022327 102367 

022330 042352 

022331 222067 

022332 742020 

022333 740020 

022334 1 02367 

022335 042353 

022336 202102 

022337 342102 

022340 042102 

022341 202101 

022342 102375 

022343 042070 

022344 342070 

022345 042101 

022346 202070 

022347 602364 

022350 700002 IPA1 

022351 740100 

022352 7*30040 M2 

022353 740040 HI 

022354 122543 

022355 202071 

022356 442070 

022357 74IOOO 

022360 602301 

022361 741100 

022362 602364 

022363 3421 01 


IPCAL2 
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JMP 

♦3 

PLPU 


SKP 


PLPO 


JMS* 

CPLOTGO) 

IS 2 

UNLOAD 

LAC 

UNLOAD 

SAD 

ABUFFS 

LAC 

A0UFFI 

OAC 

UNLOAD 

JMP 

NEXTC 

02M 

PLSTOP 

IS2 

PLSTOP 

JMP* 

PLOT 

07M 

PLSTOP 

JMP 

NEXTC 

DAC 

Ml 

LAC* 

UNLOAD 

AND 

(077777 

OAC 

we 

LAC* 

UNLOAD 

RTL 


RTL 


AND 

(7 

tad 

(FGTAB 

DAC 

AFG 

LAC* 

AFG 

JMS 

XMGET 

OAC 

Me 

LAC* 

AFG 

RTR 


RAR 


JMS 

XMGET 

DAC 

Ml 

LAC 

IPDB 

TAD 

IPDB 

OAC 

IPDB 

LAC 

I PDA 

JMS 

ITCMA 

OAC 

IPXCT 

TAD 

IPXCT 

DAC 

I PDA 

LAC 

IPXCT 

JMP 

IPCAL1 

I OF 


SMA 


XX 


XX 


JMS* 

CPLOTGO) 

LAC 

IPVI 

IS2 

IPXCT 

SKP 


JMP 

WRAP 

SPA 


JMP 

IPCALI 

tao 

I PDA 


/UP 

/DOWN 


/INDICATE PLOTTER STOPPED 
/MOVE PEN 


/SET UP Ml AND M2 


/IN IT MOVE LOOP 


E-349 
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022364 

342102 

022365 

042071 

022366 

602350 

022367 

000000 

022370 

502535 

022371 

342546 

022372 

042375 

022373 

222375 

022374 

622367 

022375 

000000 

022376 

740001 

022377 

342446 

022400 

622375 

022401 

000000 

022402 

777776 

922403 

342401 

022404 

502544 

022405 

042437 

022406 

777777 

022407 

362437 

022410 

502544 

02241 I 

062442 

022412 

502547 

022413 

042440 

022414 

220012 

022415 

502550 

022416 

242440 

022417 

102237 

022420 

362442 

022421 

042441 

022422 

442437 

022423 

442437 

022424 

442441 

022425 

741000 

022426 

622401 

022427 

442437 

022430 

220012 

022431 

74Q I 00 

S22432 

602435 

022433 

502550 

022434 

242440 

022435 

062437 

022436 

602424 

022437 

000000 

022440 

000000 

022441 

000000 

022442 

000012 

022443 

012461 

022444 

000017 

022445 

006746 

022446 

000001 

022447 

000040 

022450 

006257 

022451 

010344 

022452 

007660 


1PCALI 

TAD 

IPDB 


DAC 

IPVI 


JMP 

IPAI 

XHGET 

0 



AND 

(7 


TAD 

(INSTAB 


OAC 

ITCHA 


LAC* 

ITCHA 

IP0A-M1 

IPOB-ME 

JMP* 

XHGET 

ITCHA 

0 

CMA 



TAD 

II 


JMP* 

ITCHA 

.OA 

0 



LAN 



TAO 

.OA 


ANO 

<777771 


OAC 

* ADR 


LAM 

-I 


TAO* 

.ADR 


AjNO 

177777 I 


OAC* 

LIB 


ANO 

( 60000 ) 


OAC 

BANK 


LAC* 

ta 


ANO 

t 17777) 


XOR 

BANK 


JtlS 

TCHA 


TAD* 

ua 


OAC 

.OAS 


1SZ 

.AOR 


JSZ 

. AOR 


tsz 

SKP 

.DAS 


JMP* 

.DA 


ISZ 

.AOR 


LAC* 

SNA 

*a 


JMP 

.♦3 


AND 

f 17777) 


XOR 

BANK 


OAC* 

.AOR 


JMP 

„~ia 

.ADR 

0 


BANK 

0 


.OAS 

0 


LIB 

12 

.END 



/TWO CMA FOR I NT SERV 

/ ADDRESS OF SUBR ENTRY POINT 

/ GET ADORESS OF JHS TO SUBR. 

/ GET BANK BITS. 

/ GET JMP AFTER JHS. 

/ PUT ON BANK BITS 

/ -1» OF ARG*I» 

/ I NCR TO ADDRESS WHERE 
/ TO PUT ARGUMENTS. 

/ DONE? 
i NO 

/GET ARGUMENT ADR. 

/ PUT ON BANK BITS. 
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022453 777777 

022454 010376 

022455 000177 

022456 777700 

022457 000100 

022460 000012 

022461 010675 

022462 010620 

022463 010617 

022464 000006 

022465 000060 

022466 000000 

022467 776030 

022470 001750 

022471 000002 

022472 000074 

022473 000004 

022474 777760 

022475 000003 

022476 777720 

022477 010407 

022500 000005 

022501 020425 

022502 007657 

022503 020532 

022504 020531 

022505 000764 

022506 010721 

022507 013051 

022510 000275 


02251 I 

013112 

022512 

000053 

022513 

020450 

022514 

020433 

022515 

012366 

022516 

012714 

022517 

000054 

022520 

000062 

022521 

777765 

022522 

000013 

022523 

006571 

022524 

000240 

022525 

0001 13 

022526 

020756 

022527 

777740 

022530 

000077 

022531 

021456 

022332 

000777 

022533 

021245 

022534 

740000 

022535 

000007 

022536 

021756 

022537 

021764 

022540 

777774 

022541 

022034 

022542 

022312 

022543 

016127 

022544 

077777 
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0225*5 0222*7 
0225*6 0282V 3 
0225*7 060000 
022550 017777 
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.AOR 

022437 

CRSH 

0220 1 0 

IPVI 

-DA 

022401 

CS 

021304 

IPXCT 

.DAS 

022441 

CT 

02131 1 

ITCMA 

ABUFFl 

022233 

CT1 

020465 

LASTX 

ABUFF2 

022234 

CT2 

020466 

LASTY 

ACOETA 

01072! 

CU 

021316 

LINADR 

ADECM 

0 1 0620 

CV 

021426 

LOAD 

AFG 

022067 

CH 

021430 

LOGLIN 

AINF 

000062 

CX 

021432 

LOGSCL 

ALPHA 

021 0 1 C 

CY 

021435 

LOGSUB 

ARGP 

021123 

CZ 

021441 

L12 

ARG1 

022012 

Cl 

021246 

MESB 

ARG1 1 

021621 

C2 

021250 

MESSP 

ARG2 

022013 

C3 

021253 

MEST 

ARG22 

021622 

C4 

021437 

MK 

ARG3 

022014 

C5 

021257 

ML 

ARG33 

021623 

C6 

021263 

MNOCD 

ATABL 

02 1456 

C7 

021442 

MOVE 

AUXBF 

021235 

CB 

021270 

Ml 

AH! 

021007 

C9 

021276 

M2 

AH2 

021025 

DATA 

020534 

N 

BANK 

022440 

DECCON 

006571 

NC 

BIGX 

022021 

DEC IN 

012461 

NC IB 

B1GY 

022022 

DECPLM 

020756 

NDAT 

BOOL 

022020 

OECPLT 

020730 

NEXTC 

BUFFL 

022257 

DECPL1 

020753 

NOCD 

8UFF1 

022077 

OELX 

022075 

NOSHAP 

BUFFS 

022100 

DELY 

022076 

N1 

BUSYAD 

022236 

DIM 

021767 

N2 

BUSYSW 

022072 

D1SADD 

007660 

OCT 

C . IN! T 

021173 

DISONE 

010407 

OKOK 

C.ROT 

02121 1 

OONE 

021 146 

ORIG 

C . SCAL 

021203 

DSEX 

020222 

PCHAR 

CA 

021413 

DV1000 

021574 

PCRSH 

CB 

021355 

DVI 1 1 

021620 

PDOTC 

CC 

021363 

ENDGET 

021751 

PENS 

CD 

021366 

FACT 

010675 

PENSU 

CE 

021371 

FOAC 

000000 

PENSH1 

CF 

021372 

FDI V 

700000 

PFACT 

CG 

021362 

FEXT 

0131 12 

PLACEH 

CH 

021375 

FGTAB 

022247 

PLCF 

CHARB 

020532 

FINT 

013051 

PLOD 

CHARN 

020531 

FIRSTG 

022105 

PLDU 

Cl 

021400 

FLAC 

200000 

PLOG 

CJ 

021317 

FMUL 

500000 

PLOGAR 

CK 

021322 

GETMUL 

021733 

PLOG1 

CL 

021325 

GOGOGO 

022037 

PL0G2 

CM 

021416 

GHRK 

021746 

PLOT 

CN 

021420 

HOLD 

021651 

PLOTA 

CNT 

021723 

INOSTP 

022307 

PLOTAL 

CNTRL 

021164 

2NSTA8 

022243 

PLOTAT 

CNTROL 

022020 

INS1 

021223 

PLOTC 

CO 

021452 

INS2 

021224 

PLOTGO 

COW7RO 

020765 

KPA1 

022350 

PLOT IN 

CP 

021327 

1PCAL1 

022364 

PLOTX 

CQ 

021451 

IPCAL2 

022363 

PLOT! 

CR 

021422 

I PDA 

022101 

PL0T2 

CRS 

022003 

1PDB 

022102 

PL0T3 


022071 

PLPD 

702444 

TC 

012714 

022070 

PLPL 

70244! 

TCMA 

022237 

022375 

PLPR 

702421 

TEMPAC 

022066 

022064 

PLPU 

702404 

TEMPRA 

022074 

022065 

PLSF 

702401 

TOPM 

020647 

020412 

PLSTOP 

022103 

UNLOAD 

022231 

022232 

PLTDAT 

020467 

HORD1 

022075 

010376 

PMFLG 

020644 

H0RD2 

022076 

020510 

PNX 

021754 

HRAP 

022301 

010617 

PNY 

021755 

HRITE 

021013 

022442 

PORG 

020710 

HI 

022201 

020450 

PPLOT 

021624 

H2 

022102 

020425 

PSX 

020535 

XCOOR 

020253 

020433 

PUORD 

022054 

XL 

020364 

020727 

PX 

021631 

XMGET 

022367 

020723 

PI 

021677 

XMOVE 

022314 

007657 

P2 

021704 

XTICK 

020724 

022117 

QMARK 

006746 

XX 

740040 

022353 

R.CCT 

021615 

X2 

021332 

022352 

R.CHOK 

021 1 14 

X3 

021334 

021627 

R.CHPD 

021104 

X4 

021335 

020771 

R.CS 

021230 

X5 

021340 

022235 

R.CS1 

021056 

X6 

021344 

020770 

R.CS2 

021052 

X7 

021347 

022260 

R.CS3 

021120 

X8 

021403 

010344 

R.CS4 

021133 

XS 

021407 

022174 

R.FX 

021233 

Y 

021632 

020772 

R.FY 

021234 

YCOORL 

020725 

020773 

R.MQ 

021614 

YCOORU 

020726 

021771 

R.MULS 

021555 

YL 

020206 

021163 

R.MUL1 

021616 

YMARK 

020354 

020345 

R.MUL2 

021617 

Y 1 

02141 1 

021671 

R.N2 

021026 

Z1 

021444 

021666 

R .PX 

021212 



020533 

R.PY 

021113 



021717 

R.ROTA 

021516 



022104 

R.SCL 

021226 



021727 

R.SN 

021227 



020643 

R.SUB 

021225 



022202 

R.TX 

021612 



702402 

R.TY 

021613 



702424 

R.X 

021231 



702422 

R.Y 

021232 



020642 

READ 

012366 



020536 

RETC 

006257 



020553 

S 

040000 



020557 

SCAL 

021630 



022015 

SEX 

020017 



020036 

SQR 

021765 



020110 

SSI 

021027 



020177 

STR 

021773 



020665 

STRP 

020633 



016127 

STRPFG 

000053 



020676 

SI 

021245 



020137 

S2 

021303 



020271 

S5 

021450 



020327 

S7 

021313 



020341 

TABL 

021757 





